Daha Kısa Kod Yazmak

[Huseyinkis]

Ekteki kod nasıl daha kısa yazılabilir.

Yardımlar için şimdiden teşekkürler.

Private Sub DTPicker1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker01.Value = DTPicker1.Value
End Sub

Private Sub DTPicker2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker02.Value = DTPicker2.Value
End Sub

Private Sub DTPicker3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker03.Value = DTPicker3.Value
End Sub

Private Sub DTPicker4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker04.Value = DTPicker4.Value
End Sub

Private Sub DTPicker5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker05.Value = DTPicker5.Value
End Sub

Private Sub DTPicker6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker06.Value = DTPicker6.Value
End Sub

Private Sub DTPicker7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker07.Value = DTPicker7.Value
End Sub

Private Sub DTPicker8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker08.Value = DTPicker8.Value
End Sub

Private Sub DTPicker9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker09.Value = DTPicker9.Value
End Sub

Private Sub DTPicker10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker010.Value = DTPicker10.Value
End Sub

Private Sub DTPicker11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker011.Value = DTPicker11.Value
End Sub

Private Sub DTPicker12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker012.Value = DTPicker12.Value
End Sub

Private Sub DTPicker13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker013.Value = DTPicker13.Value
End Sub

Private Sub DTPicker14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker014.Value = DTPicker14.Value
End Sub

Private Sub DTPicker15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker015.Value = DTPicker15.Value
End Sub

Private Sub DTPicker12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker016.Value = DTPicker16.Value
End Sub

Private Sub DTPicker12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker017.Value = DTPicker17.Value
End Sub

Private Sub DTPicker12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker018.Value = DTPicker18.Value
End Sub

Private Sub DTPicker12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker019.Value = DTPicker19.Value
End Sub

Private Sub DTPicker12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DTPicker020.Value = DTPicker50.Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Hüseyin bey istediğiniz işlem ClassModule ile yapılabilir. Fakat nesnelerin Exit olayı ClassModule'de desteklenmediği için Change olayı kullanılabilir. Forumda bununla ilgili örnekler bulunmaktadır. Ararsanız ulaşabilirsiniz.

 

[Huseyinkis]

Selamlar,

Hüseyin bey istediğiniz işlem ClassModule ile yapılabilir. Fakat nesnelerin Exit olayı ClassModule'de desteklenmediği için Change olayı kullanılabilir. Forumda bununla ilgili örnekler bulunmaktadır. Ararsanız ulaşabilirsiniz.

Sayın Korhan Bey ilgi için teşekkürler.