User Form ile Hücreye Veri Aktarma

[kadir78]

İyi günler. User Formu kullanarak fare ile seçilen hücreye User Formdaki maddeleri aktarma yapılabilir mi.

Örnek: User Formun içinde 10 adet onay kutusu (CheckBox) ve her onay kutusun verileri (TextBox) var. Seçilen onay kutularının içindeki verileri (örnek: 1, 3, 4, 5 veya 2, 4, 7, 8, 9 vb.) fare ile seçilen hücreye, aralarına + işareti konularak aktarma işlemi yapılabilir mi. User Formda Verileri Aktar düğmesi ile yapılabilir mi. Hayırlı Çalışmalar Diliyorum.

 

[ÖmerBey]

Merhaba,
Aktarma yapacağınız düğme için şu kodları kullanabilirsiniz...

Private Sub CommandButton1_Click()
b = 0
Dim Metin()
For a = 1 To 10
    If Controls("CheckBox" & a) Then
        ReDim Preserve Metin(b)
        Metin(b) = Controls("Textbox" & a).Text
        b = b + 1
    End If
Next
ActiveCell.Value = Join(Metin, "+")
End Sub