CommandButton lar arasında döngüyü nasıl kurabilirim?

[ismailozkan4224]

i döngüsü hata veriyor. neden. nasıl çözebilirim?
Private Sub Form_Click()
For i = 1 To 20
CommandButton(i).Height = Cells(i + 1, 25).Value
CommandButton(i).Left = Cells(i + 1, 26).Value
Next i
end sub

 

[yanginci34]

Denermisiniz.
Private Sub Form_Click()
For i = 1 To 20
Controls("CommandButton" & i).Height = Cells(i + 1, 25).Value
Controls("CommandButton" & i).Left = Cells(i + 1, 26).Value
Next i
end sub

 

[ismailozkan4224]

Denermisiniz.
Private Sub Form_Click()
For i = 1 To 20
Controls("CommandButton" & i).Height = Cells(i + 1, 25).Value
Controls("CommandButton" & i).Left = Cells(i + 1, 26).Value
Next i
end sub

teşekkür ederim

 

[ismailozkan4224]

yanginci34 Controls("CommandButton" & i).Widht = Cells(i + 1, 28).Value SATIRI HATA VERİYOR. NEDENDİR ACABA
Private Sub UserForm_Click()
For i = 1 To 20
Controls("CommandButton" & i).Height = Cells(i + 1, 25).Value
Controls("CommandButton" & i).Left = Cells(i + 1, 26).Value
Controls("CommandButton" & i).Top = Cells(i + 1, 27).Value
Controls("CommandButton" & i).Widht = Cells(i + 1, 28).Value


Next i
End Sub

 

[Korhan Ayhan]

Harflerin yeri kaymış.. Yer değiştirirseniz sorun düzelecektir.

Controls("CommandButton" & i).Widht