ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[iremst]

Merhaba,
Option Button'da yazılmış olan değerleri seçilmesi halinde "Veri" sayfasına kaydetmesini ve Metin kutularında yazılacak değerlerin de aynı sayfaya yan yana kaydolmasını istiyorum.
Yardım edebilir misiniz?

[iremst]

Çalışma kitabı ektedir

[okutkan]

Aşağıdaki dosyada, butonlara tıklandığında veri sayfasında listeleme yapılıyor.
Metin kutusuna yazılanları yan yana yazılması sorunuz nedir; Hangi metin kutuları, Hangi satıra yan yana yazılacak?

[iremst]

Merhaba, öncelikle size teşekkür ederim.
İstediğim şey altta ekli olan dosyada Kaydet butonuna bastığım an option buttonlardan tıklananı "Data" sayfasındaki "Bölüm" sutununa, Ölçüm yapılan parça kodu textbox'unu data sayfasındaki Ölçüm yapılan parça kodu sutununa ve parça adını da yine data sayfasındaki parça adı sutununa yazdırmak ıstıyorum.

[okutkan]

Kod: Tümünü seç

Dim sf1 As Worksheet
Dim sf2 As Worksheet

son = Sheets("Data").Cells(Rows.Count, "a").End(3).Row + 1

For i = 1 To 10
buton = Sheets("SPC").OLEObjects("opt" & i).Object.Value
If buton = True Then
'If buton = True Then
Sheets("Data").Cells(son, "a") = Sheets("SPC").OLEObjects("opt" & i).Object.Caption
End If
Next i
Sheets("Data").Cells(son, "b") = Sheets("SPC").TextBox1.Value
Sheets("Data").Cells(son, "c") = Sheets("SPC").TextBox1.Value