TextBox' lara veri girilmeşisse yazdırılmasın

[tufan03]

1)Userform üzerinde bulunan textbox ve combobox lara girilen verileri excel sayfasına aktararak beyanname yazdırıyorum,bazılarına zorunlu olarak veri girilmesi gerekiyor,yazdırma işlemi istenilenlere veri girilmişse yazdırılabilsin,bu konuda uyarı veren ancak istenilen veriler girildiğinde yazdırılsın.

2)Texboxların bir kaçına sürekli tarih girmek gerekiyor,türkçeye uygun tarih biçimi ile ayraç kullanmadan daha kolay girmek için nasıl bir düzenleme yapılabilir. Selamlar.

 

[Hikmet26]

Çıktı alınmaması için zorunlu alanların doldurulmasını şart koşmalısınız eğer ki doldurulmaz ve çıkış butonuna basılmışsa hatayı verecektir. Yok doluysa es geçip devam edecektir...

If TextBox1.Value = "" Then
MsgBox "Textbox1 in değeri boş çıktı alınmayacak...!", vbCritical
TextBox1.SetFocus
Exit Sub
End If

 

[Seyit Tiken]

Tarih arasına noktayı otomatik olarak yerleştiren kod.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Mid(TextBox1, 1, 2) & "." & Mid(TextBox1, 3, 2) & "." & _
Mid(TextBox1, 5, 4)
End Sub

 

[tufan03]

Malesef uygulayamadım,Sayın Seyit Tiken Mesela TextBox7 ve TextBox9 için bir örnek yazarmısınız.

 

[Skorpiyon]

Sayın tufan03,

Textbox'unuzun Exit prosedürüne aşağıdaki kodu yazınız. Tarihi nasıl yazarsanız yazın, enter'e bastığınızda araya nokta koyacaktır.

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(TextBox7, "dd.mm.yyyy")
End Sub

Saygılarımla...

 

[Orion1]

Şöyle deneyin.

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if isdate(textbox7.value) then
      TextBox7 = Format(TextBox7, "dd.mm.yyyy")
end if
End Sub

 

[tufan03]

Hata verdi. Örnek bir dosyada gösterebilirmisiniz.

 

[Skorpiyon]

Sayın tufan03,

Ekli dosyayı inceleyiniz.

Saygılarımla...

 

[Seyit Tiken]

Ekli dosyada üç farklı tarih uygulaması var, uygun olanı çalışmanıza uyarlayınız.