DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox2_Change()
If ComboBox2 = 12 Then
x = DateDiff("d", "1" & "." & ComboBox2 & "." & ComboBox1, "1" & "." & "1" & "." & ComboBox1 + 1)
Else
x = DateDiff("d", "1" & "." & ComboBox2 & "." & ComboBox1, "1" & "." & ComboBox2 + 1 & "." & ComboBox1)
End If
z = 1
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = ""
End If
Next ctrl
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = z
If z = x Then Exit For
z = z + 1
End If
Next ctrl
End Sub