aşağıdaki tarih biçimini ayrı ayrı 4 tane textbox için yazıyorum.txttarih1-txttarih2-txttarih3-txttarih4. hepsi için tek bir kerede yazma imkanı yok mu acaba?
Private Sub txttarih1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txttarih1 = Mid(txttarih1, 1, 2) & " " & Mid(txttarih1, 3, 2) & " " & Right(txttarih1, 4)
End Sub
-------------------------------------------------
Yine aşağıdaki para biçimini biçimini ayrı ayrı 4 tane textbox için yazıyorum.txtkasa1-txtkasa2-txtkasa3-txtkasa4.Bunları da aynı makro içinde bir kez yazma durumu yok mu?
Private Sub txtkasa1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
kasa1.Value = Format(kasa1.Value, "#,##0.00 YTL")
End Sub
Private Sub txttarih1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txttarih1 = Mid(txttarih1, 1, 2) & " " & Mid(txttarih1, 3, 2) & " " & Right(txttarih1, 4)
End Sub
-------------------------------------------------
Yine aşağıdaki para biçimini biçimini ayrı ayrı 4 tane textbox için yazıyorum.txtkasa1-txtkasa2-txtkasa3-txtkasa4.Bunları da aynı makro içinde bir kez yazma durumu yok mu?
Private Sub txtkasa1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
kasa1.Value = Format(kasa1.Value, "#,##0.00 YTL")
End Sub