şarta bağlı olarak textboxlara hücrelerden değer aktarmak

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar şarta bağlı olarak textboxlardan hücrelere hücrelerden textboxlara değer aktarmak konusunda güçlük çekiyorum. Bunun için basit bir dosya hazırladım. Sayfa1 A1:A20 arasında
1 ve 0 olmak üzere değerler var. Userform1 de ise 5 tane textbox var. Eğer A sutunundaki değer 1 e eşitse TextBox a 1 yazsın değilse boş bıraksın. Kendimce bir kod denemesi yaptım ama sonuç alamadım. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Dim sat As Long, sat2 As Long, say As Byte
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
sat2 = 1: say = 1
Do While sat2 <= sat And say <= 5
    If Sheets("Sayfa1").Cells(sat2, "A").Value = 1 Then
        Controls("TextBox" & say).Text = 1
        say = say + 1
    End If
    sat2 = sat2 + 1
Loop
    
End Sub

 

[excellcan]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Dim sat As Long, sat2 As Long, say As Byte
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
sat2 = 1: say = 1
Do While sat2 <= sat And say <= 5
    If Sheets("Sayfa1").Cells(sat2, "A").Value = 1 Then
        Controls("TextBox" & say).Text = 1
        say = say + 1
    End If
    sat2 = sat2 + 1
Loop
    
End Sub

Hocam istediğim gibi olmuş. Tabii bana da yeni bir çalışma konusu doğdu. (Do While...Loop ) . Emeğinize , yüreğinize sağlık.İyi geceler.