fatura no düzenleme

igultekin2000

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
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.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Ne istediğiniz net anlaşılmıyor, aşağıda tireli faturaların ikinci kısmı ilk bölüme benzetildi.
Kod:
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

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
Ne istediğiniz net anlaşılmıyor, aşağıda tireli faturaların ikinci kısmı ilk bölüme benzetildi.
Kod:
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
Kod:
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
 
Üst