(28/03/2021, 14:41)userx yazdı: Sayın necasi123Çalıştıramadım. Ekte örnek dosya gönderiyorum. teşekkürler.
Alttaki kodu kendi metin kutu isimlerinize göre değiştirerek dener misiniz?
Private Sub Metin0_Exit(Cancel As Integer)
Dim LString As String
Dim LArray() As String
LString = Me.Metin0
LArray = Split(LString, ",")
Me.Metin1 = LArray(0)
Me.Metin2 = LArray(1)
End Sub
Matematiksel İşlemlerde Tam Sayı İle Ondalık Sayıyı Ayrı Ayrı Hücreye Yazdırma
Konuyu Okuyanlar: 1 Ziyaretçi