Döngüde hata

[acar6783]

Dim g As CommandButton

For i = 8 To 28
Me.Controls("g" & i).Caption = Me.Controls("g" & i - 1).Caption + 1
Next i

Burada nerede hata yapıyorum ki commandbuttonlara değer veremiyorum?
Commanda buttonları g7 g8 g9 g10... diye isimlendirdim.

 

[acar6783]

Private Sub UserForm_Initialize()
For i = 1 To 5
Controls("TextBox" & i) = i
Next
End Sub

TExtboxda oluyor ama command button da olmuyor.Farklı bir yöntemi varmı acaba?

 

[acar6783]

Hatayı buldum Dim olayı hatalı

For i = 8 To 28
Controls("g" & i).Caption = Controls("g" & i - 1).Caption + 1
Next i

 

[Orion1]

Hatayı buldum Dim olayı hatalı

For i = 8 To 28
Controls("g" & i).Caption = Controls("g" & i - 1).Caption + 1
Next i

Burada Dim satırı yok.
Dim olayını nasıl çözdüğünüzü burada göstermemişsiniz.

 

[Orion1]

Dim g As CommandButton

Hatayı buldum Dim olayı hatalı

Doğrusu.

Dim g As Object

 

[acar6783]

Evet ben de Dim satırını yazmamıştım

 

[acar6783]

Yine bir sorun;
Her commoand button tıklamasına tek bir kod verebilirmiyiz?

Yani Tek tek bu şekilde yazmak yerine tek subda olayı bitirmek.

Private Sub CommandButton1_Click()
....
End Sub
Private Sub CommandButton2_Click()
....
End Sub
Private Sub CommandButton3_Click()
....
End Sub
.
.
.
.
.

 

[Orion1]

Yine bir sorun;
Her commoand button tıklamasına tek bir kod verebilirmiyiz?

Yani Tek tek bu şekilde yazmak yerine tek subda olayı bitirmek.

Private Sub CommandButton1_Click()
....
End Sub
Private Sub CommandButton2_Click()
....
End Sub
Private Sub CommandButton3_Click()
....
End Sub
.
.
.
.
.

Clasemodule uygulaması yapmalısınız.

 

[Orion1]

Ekli dosyayı inceleyiniz.

DOSYAYI İNDİR

....

 

[acar6783]

Function özelliği ile yapamazmıyız?
class module kullanmak istemiyorum. Yapamazsak mecbur tabii

 

[acar6783]

Ekli dosyayı inceleyiniz.

DOSYAYI İNDİR

....

Hocam burada formdaki commandbuttonlara tek bir kod sağladık.
Fakat formda diyelim ki 100 tane commandbuttton var ben bunlardan
1-15 arasına farklı bir kod 16-50 arasına ayrı bir kod 51-100 araasına ayrı bir kod tanımlamak istiyorum.
Farklı bir classmodule ekleyip aynı kodların benzerlerini yazdım fakat hata aldım
Ne yapmalıyım?

Örnekteki kodlar;
classmodule:

Public WithEvents cmdbtn   As MSForms.CommandButton

Private Sub cmdbtn_Click()
MsgBox "deneme"
End Sub

userform intialize :

Dim i As Byte
For i = 0 To 9
    Set cmdbtn(i).cmdbtn = Controls("t" & i)
Next i

 

[acar6783]

Sorunumu çözdüm.
Teşekkürler