- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
Kod:
Private Sub UserForm_Initialize()
Dim firstDayOfYear As Date
TextBox1.SetFocus
TextBox1.SelStart = Len(TextBox1.Text)
' Bu yılın ilk günü tarihini alalım
firstDayOfYear = DateSerial(Year(Date), 1, 1)
' TextBox11'de yılın ilk günü tarihini gösterelim
TextBox11.value = Format(firstDayOfYear, "dd.mm.yyyy")
TextBox10.value = "STOK"
Me.TextBox1.SetFocus
End Sub
Private Sub UserForm_Activate()
Me.TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Dim inputText As String
Dim formattedDate As String
' Kullanıcı tarafından girilen değeri al
inputText = TextBox1.value
' Eğer girilen karakter sayısı 2 ise, gün girilmiş demektir, araya "/" ekle
If Len(inputText) = 2 Then
inputText = inputText & "/"
End If
' Eğer girilen karakter sayısı 5 ise, ay girilmiş demektir, araya "/" ve yılı ekle
If Len(inputText) = 5 Then
inputText = inputText & "/2024"
End If
' TextBox1'e otomatik olarak formatlı tarihi geri yaz
TextBox1.value = inputText
' İmleci sona al
TextBox1.SelStart = Len(TextBox1.value)
Me.TextBox1.SetFocus
End Sub
Form üzerindeki CommandButton ile açık formu kapatıp yeni formu açıtığımda cursorun TextBox1 aktif olması, yani mause ile tıklamadan kayda başlamak. Birçok alternatif denedim ama bir türlü form açıldığında aktif edemedim. işlem yapıp commandButton ile kaydettiğim zaman Textbox1 seçili olarak işlem yapıyor ancak ilk açılışta inatlaşıyor. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim. Altın üyelik bitmiş aktif etmek için fırsat bulamadım. O yüzden dosya yüklemedim.