labellere şartlı yazı yazdırma

[osmanfenerli1907]

merhaba


benim formumda label1 label2..........label50 olmak üzere 50 tane label var.Butona tıklayınca textbox1de hangi sayı yazıyorsa o labele XXX yazacak.Yani textbox1de 18 yazıyorsa butona tıklayınca label18de XXX yazacak.
şimdiden teşekkürler

 

[Orion1]

Private Sub CommandButton1_Click()
Dim lbl As Control
For Each lbl In Me.Controls
    If TypeName(lbl) = "Label" Then lbl.Caption = TextBox18.Text
Next
End Sub

 

[Orion1]

Soruyu yanlış anlamışım.
Kodlar aşağıdadır.

Dim lbl As Control
On Error Resume Next
If IsNumeric(TextBox1.Text) Then
    Controls("Label" & TextBox1.Text).Caption = "XXX"
End If

 

[osmanfenerli1907]

kod yanlış olmuş
butona tıklayınca butün labellere textbox18dekini yazıyor

 

[Orion1]

kod yanlış olmuş
butona tıklayınca butün labellere textbox18dekini yazıyor

3 numaralı mesaja bakınız!.