mozdem
Altın Üye
- Katılım
- 11 Kasım 2005
- Mesajlar
- 446
- Excel Vers. ve Dili
-
Windows 2011 TR
MS Office 2021 TR - 64bit
VBA, Selenium ve VBS
- Altın Üyelik Bitiş Tarihi
- 08-04-2026
Ekte dosyası mevcut .
TextBox3 (Tarih Formatı) = TextBox1 (Tarih Formatı) + TextBox2 (Sayı)
Nasıl Toplanır?
Teşekkürler
__________________________________
Private Sub Calendar1_DblClick()
TextBox1.Text = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = True
End Sub
Private Sub UserForm_Activate()
Calendar1.Visible = False
End Sub
TextBox3 (Tarih Formatı) = TextBox1 (Tarih Formatı) + TextBox2 (Sayı)
Nasıl Toplanır?
Teşekkürler
__________________________________
Private Sub Calendar1_DblClick()
TextBox1.Text = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1.Visible = True
End Sub
Private Sub UserForm_Activate()
Calendar1.Visible = False
End Sub
Ekli dosyalar
-
33 KB Görüntüleme: 46