User Formdan Hücreye Veri Girişi

[regdtee]

Merhaba, herkese kolay gelsin..

Yapmak istediğim B sütünunda herhangi bir satıra tıkladığımda user formun açılması ve user form içerisinde yanlarına tik koyup tamam butonuna bastığımda seçili olan verilerin aralarına "+" işareti koyarak aktif hücreye yazdırmak. Konuyla ilgili yardımlarınız, emeğiniz için şimdiden teşekkür ederim..

 

[Orion1]

dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim i As Byte, deg As String
For i = 1 To 6
    If Me.Controls("CheckBox" & i).Value = True Then
        deg = deg & "+" & Me.Controls("CheckBox" & i).Caption
    End If
Next
ActiveCell.Value = ""
ActiveCell.Value = Right(deg, Len(deg) - 1)
Unload Me
End Sub

 

[regdtee]

çok çok teşekkür ederim emeğinize, elinize kolunuza sağlık..

 

[regdtee]

Tekrar merhaba, bir sorum daha olacak, tamama basdığımda User Formun kapanmasınıda istiyorum ama eklediğim kodlarla bunu başaramadım..

 

[Orion1]

Tekrar merhaba, bir sorum daha olacak, tamama basdığımda User Formun kapanmasınıda istiyorum ama eklediğim kodlarla bunu başaramadım..

Gerekli kodu ekledim.
2 nolu mesajdan indirebilirisiniz.

 

[regdtee]

son olarak birşey daha sorabilirmiyim? herhangi bir seçim yapmadan tamam bastığım zaman hata alıyorum?

 

[NBATMAN]

Merhaba,

Kodlara aşağıda Kırmızı renk ile işaretli kısmı ekleyiniz...

Private Sub CommandButton1_Click()
Dim i As Byte, deg As String
For i = 1 To 6
If Me.Controls("CheckBox" & i).Value = True Then
deg = deg & "+" & Me.Controls("CheckBox" & i).Caption
Else
MsgBox ("Bir seçim yapınız!"), vbCritical, "Uyarı"
Exit Sub
End If
Next
ActiveCell.Value = ""
ActiveCell.Value = Right(deg, Len(deg) - 1)
Unload Me
End Sub

 

[regdtee]

Teşekkürler..

 

[NBATMAN]

Rica ederim...