Arkadaşlar 1,58007E+14 hesap kodunu aşağıda ki Komut ile
Option Explicit
Sub verileri_ayır()
boslukal
UserForm1.Show
Dim S1 As Worksheet, S2 As Worksheet
Dim SAT As Long, SAY As Long
Set S1 = Sheets("Ad-Soyad Bölme"): Set S2 = Sheets("Sayfa1")
Application.ScreenUpdating = False
S2.Range("B11:F11").ClearContents: SAY = 11
With WorksheetFunction
For SAT = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row
S2.Cells(SAY, "B") = Mid(S1.Cells(SAT, "B"), 1, 17)
S2.Cells(SAY, "D") = S1.Cells(SAT, "C")
S2.Cells(SAY, "F") = Right(S1.Cells(SAT, "A"), Len(S1.Cells(SAT, "A")) - _
.Find("*", .Substitute(S1.Cells(SAT, "A"), " ", "*", Len(S1.Cells(SAT, "A")) _
- Len(.Substitute(S1.Cells(SAT, "A"), " ", "")))))
S2.Cells(SAY, "E") = Left(S1.Cells(SAT, "A"), Len(S1.Cells(SAT, "A")) - Len(S2.Cells(SAY, "F")) - 1)
SAY = SAY + 1
Next: End With
Application.ScreenUpdating = True
UserForm2.Show
Sheet1.Select
'MsgBox "Ad ve Soyad Ayrılmıştır...", vbInformation, "Musa AĞAÇ"
End Sub
158007299515389 hesap olarak yazıyor. Fakat baş kısmınada 00 eklemek istiyorum nasıl yapabilirim.
00158007299515389 şeklinde olmasını istiyorum
Option Explicit
Sub verileri_ayır()
boslukal
UserForm1.Show
Dim S1 As Worksheet, S2 As Worksheet
Dim SAT As Long, SAY As Long
Set S1 = Sheets("Ad-Soyad Bölme"): Set S2 = Sheets("Sayfa1")
Application.ScreenUpdating = False
S2.Range("B11:F11").ClearContents: SAY = 11
With WorksheetFunction
For SAT = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row
S2.Cells(SAY, "B") = Mid(S1.Cells(SAT, "B"), 1, 17)
S2.Cells(SAY, "D") = S1.Cells(SAT, "C")
S2.Cells(SAY, "F") = Right(S1.Cells(SAT, "A"), Len(S1.Cells(SAT, "A")) - _
.Find("*", .Substitute(S1.Cells(SAT, "A"), " ", "*", Len(S1.Cells(SAT, "A")) _
- Len(.Substitute(S1.Cells(SAT, "A"), " ", "")))))
S2.Cells(SAY, "E") = Left(S1.Cells(SAT, "A"), Len(S1.Cells(SAT, "A")) - Len(S2.Cells(SAY, "F")) - 1)
SAY = SAY + 1
Next: End With
Application.ScreenUpdating = True
UserForm2.Show
Sheet1.Select
'MsgBox "Ad ve Soyad Ayrılmıştır...", vbInformation, "Musa AĞAÇ"
End Sub
158007299515389 hesap olarak yazıyor. Fakat baş kısmınada 00 eklemek istiyorum nasıl yapabilirim.
00158007299515389 şeklinde olmasını istiyorum
