Kodu Revize Etmek İçin Yardım

[BedriA]

Arkadaşlar,

Aşağdaki kodu 7-44 numaralı Textbox ve Labeller için tekrar ettirmek istiyorum.
Yani For i = 7 To 44 şeklinde.
For döngüsüyle yapmaya çalıştım deneme yanılma yoluyla, beceremedim.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Private Sub Label_Click()

If TextBox7.Text <> "" Then
Label7.Visible = True
End If

End Sub

 

[halit3]

kod

For s = 7 To 44
If Controls("TextBox" & s).Text <> "" Then
Controls("TextBox" & s).Visible = True
Controls("Label" & s).Visible = True
End If
Next

 

[BedriA]

kod

For s = 7 To 44
If Controls("TextBox" & s).Text <> "" Then
Controls("TextBox" & s).Visible = True
Controls("Label" & s).Visible = True
End If
Next

Çok sağolun Halit Hocam.