Private Sub

[Sary]

Beste,


Ik wil volgende code
Private Sub T_03_Click()
T_05.Value = T_03.Column(1)
End Sub


Bij deze onderstaande code zetten. mag deze er gewoon bij gezet worden of dien ik nog iets toe te voegen?


Private Sub T_03_Click()
T_05.Value = T_03.Column(1)
T_18.Value = T_03.Column(2)
T_19.Value = T_03.Column(3)
T_20.Value = T_03.Column(4)
T_21.Value = T_03.Column(5)
T_22.Value = T_03.Column(6)
T_23.Value = T_03.Column(7)
End Sub

 

[edmoor]

Je kan toch direct zien of het werkt?

 

[Sary]

Ja maar hij zegt dat hij een dubbelzinnige naam gevonden heeft.


T_03_click

 

[edmoor]

Je kan uiteraard niet 2 Subs met dezelfde naam hebben.

 

[jkpieterse]

Simpel:

Private Sub T_03_Click()
T_05.Value = T_03.Column(1)
T_18.Value = T_03.Column(2)
T_19.Value = T_03.Column(3)
T_20.Value = T_03.Column(4)
T_21.Value = T_03.Column(5)
T_22.Value = T_03.Column(6)
T_23.Value = T_03.Column(7)
End Sub

 

[snb]

Of

Private Sub T_03_Click()
   T_05.Value = T_03.Column(1)
   for j = 2 to 7
     Me("T_" & 16 + j) = T_03.Column(j)
   Next
End Sub