checkbox la kişiye kayıt

[limanC34]

Selam Arkadaşlar
Userformda görüldüğü gibi kayıt nosu ile isim çağırıp istenilenleri (tümü yada birkaçını)işaretleyip labelde yazan yazıları kişinin ilgili satırına ekleyebilirmiyiz?
Teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim i As Byte, son As Long, sat As Long, k As Byte
For i = 6 To 10
    sat = Cells(65536, i).End(xlUp).Row
    If sat > son Then
        son = sat
    End If
Next
For k = 1 To 6
    If Controls("CheckBox" & k).Value = True Then
        Cells(son + 1, k + 5).Value = Controls("Label" & k).Caption
    End If
Next
End Sub

 

[limanC34]

Sayın Orion2
kayıt yapıyor fakat istediğim kayıt nosunu yazınca adı soyadı gelsin yani sadece çağırdığım kişiye kayıt yapabileyim.

 

[Orion1]

Sayın Orion2
kayıt yapıyor fakat istediğim kayıt nosunu yazınca adı soyadı gelsin yani sadece çağırdığım kişiye kayıt yapabileyim.

Ekli dosyayı inceleyiniz.

 

[limanC34]

Sayın Orion2
Bu çözüm değil adeta bir program.
Çok teşekkür ederim.

 

[Orion1]

Sayın Orion2
Bu çözüm değil adeta bir program.
Çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[limanC34]

Sayın Orion2
Sizi yorduğumu farkındayım ama lütfen mazur görün.Kayıt nosuna göre isme kayıt yaparken ekleyeceklerimi ilgili kişinin 26. hücresinden başlayarak nasıl kayıt yapabilirim?

 

[limanC34]

checkbox

Selam Arkadaşlar
Sayın Orion2’nin sayesinde checkbox la kişiye özel kayıt işi tamam.Fakat şimdi iki problem daha oluştu.Birincisi textbox tan isimle çağırmadan da kayıt yapıyor.İkincisi 20 seçenekten örneğin 5 adet işaretlediğimizde sadece bu 5 adet seçenek ilgili kişinin sarı renkli hücrelerine yan yana yazdırılabilirmi?