fatura no düzenleme

[igultekin2000]

iyi günler;
uzun listede C sütununda fatura no aralığı yazıyor. fatura noların hazırlanıp programa almam için 6 hane olması gerekiyor. " - " den sonraki 3 hanenin " - " den önceki son üç hanenin yerine geçmesi gerekiyor. excel formülle uğraşarak yapabiliyorum ama makro olarak daha pratik hale getirmek istiyorum. Teşekkürler.

 

[veyselemre]

Ne istediğiniz net anlaşılmıyor, aşağıda tireli faturaların ikinci kısmı ilk bölüme benzetildi.

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        al = Cells(i, 3).Value
        If InStr(al, "-") Then
            bol = Split(al, "-")
            If Len(bol(0)) > Len(bol(1)) Then
                al = bol(0) & "-" & Mid(bol(0), 1, Len(bol(0)) - Len(bol(1))) & bol(1)
            End If
        End If
        Cells(i, 4) = al
    Next i
End Sub

 

[igultekin2000]

Ne istediğiniz net anlaşılmıyor, aşağıda tireli faturaların ikinci kısmı ilk bölüme benzetildi.

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        al = Cells(i, 3).Value
        If InStr(al, "-") Then
            bol = Split(al, "-")
            If Len(bol(0)) > Len(bol(1)) Then
                al = bol(0) & "-" & Mid(bol(0), 1, Len(bol(0)) - Len(bol(1))) & bol(1)
            End If
        End If
        Cells(i, 4) = al
    Next i
End Sub

konuyu şu şekilde açıklarsan, fatura numarasının ilk üç rakami ile " - " ' den sonraki son üç rakam şeklinde. verdiğiniz kodla bira uğraştım ama kendime uyarlayamdım, teşekkürler
A B fatura son hali
Satış 26.02.2019 819318-328 819328
Satış 26.02.2019 819329-337 819337
Satış 26.02.2019 819338-346 819346
Satış 26.02.2019 819347 819347
Satış 26.02.2019 819348 819348
Satış 26.02.2019 819349 819349

 

[veyselemre]

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        al = Cells(i, 3).Value
        If InStr(al, "-") Then
            bol = Split(al, "-")
            If Len(bol(0)) > Len(bol(1)) Then
                al = Mid(bol(0), 1, Len(bol(0)) - Len(bol(1))) & bol(1)
            End If
        End If
        Cells(i, 4) = al
    Next i
End Sub

 

[igultekin2000]

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        al = Cells(i, 3).Value
        If InStr(al, "-") Then
            bol = Split(al, "-")
            If Len(bol(0)) > Len(bol(1)) Then
                al = Mid(bol(0), 1, Len(bol(0)) - Len(bol(1))) & bol(1)
            End If
        End If
        Cells(i, 4) = al
    Next i
End Sub

teşekkür ederim, bu şekilde sorunsuz oldu, hayırlı akşamlar