fatura numaralarını ve tarihlerini hepsini tek satırda nasıl yazabiliriz

[bere20]

dökümü aldığım firmaları excele döküp firma firma ayırıyoruz fakat vergi dairesi bunu tek satırda istiyor
mesela bir örnek veriyorum ekli dosyada bunun gibi isteniyor rakamları toplamada sorun yok
sorunum ve çözemediğim fatura numaraları ve tarihleride tek satırda yazılacak.
çoğu firmanın 70-80faturası geliyor aylık. Tek tek bu fatura numaralarını tarihlerini bakıp tek satıra yazmak müthiş zamanımı alıyor
bu fatura numaralarını tek satıra nasıl yazabilirim bunun yolu varmı yardımcı olursanız çok sevinirim şimdiden yardımcı olan arkadaşa teşekkür ederim

 

[Seyit Tiken]

Hücre Biçimlendirme'den şöyle bir şey yapın. 0#\.##\.####-000000
Hücreye nokta koymadan veri girin.

 

[HAKANYILDIZ]

Sayın Bere20,
Fatura noları arasında nokta olmak zorunda mı ?
Ve nakliye faturalarını noları ayrı, kargo faturalarının noları ayrı mı yazılacak ?

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub NN()
Rows(40).ClearContents
For i = 2 To 29
    [b40:d40] = [b2:d2].Value
    If i <> 29 Then
        [e40] = IIf([e40] = "", Format(Day(Cells(i, "e")), "00"), [e40] & "." & Format(Day(Cells(i, "e")), "00"))
    Else
        [e40] = [e40] & Cells(i, "e")
    End If
    [f40] = IIf([f40] = "", Cells(i, "f"), [f40] & "." & Cells(i, "f"))
Next
    [g40] = 28
    [h40] = "NAKLİYE"
    [J40] = WorksheetFunction.Sum([J2:J29])
    [K40] = WorksheetFunction.Sum([K2:K29])
End Sub

 

[bere20]

Sayın Bere20,
Fatura noları arasında nokta olmak zorunda mı ?
Ve nakliye faturalarını noları ayrı, kargo faturalarının noları ayrı mı yazılacak ?

dostum nokta değil virgül tirede olabilir eğer noktala işaretleri olmadan oluyorsa onada razıyım en azından nokta yada virgülleri ben koyarım
ARTI nakliye ve kargo faturaları noları aynı yerde olacak. önemli olan nokta aynı firma olması. yani aynı firmanın bütün noları tarihleri benim örnekte yazdıgım gibi aynı yerde olacak

 

[bere20]

Aşağıdaki kodu dener misiniz?

Sub NN()
Rows(40).ClearContents
For i = 2 To 29
    [b40:d40] = [b2:d2].Value
    If i <> 29 Then
        [e40] = IIf([e40] = "", Format(Day(Cells(i, "e")), "00"), [e40] & "." & Format(Day(Cells(i, "e")), "00"))
    Else
        [e40] = [e40] & Cells(i, "e")
    End If
    [f40] = IIf([f40] = "", Cells(i, "f"), [f40] & "." & Cells(i, "f"))
Next
    [g40] = 28
    [h40] = "NAKLİYE"
    [J40] = WorksheetFunction.Sum([J2:J29])
    [K40] = WorksheetFunction.Sum([K2:K29])
End Sub

dostum bu kodu nasıl kullanıyoruz

 

[HAKANYILDIZ]

Sayın bere20,
Şu formülü denermisiniz.
=BİRLEŞTİR(F2;"-";F3;"-";F4;"-";F5;"-";F6;"-";F7;"-";F8;"-";F9;"-";F10;"-";F11;"-";F12;"-";F13;"-";F14;"-";F15;"-";F16)

 

[bere20]

Sayın bere20,
Şu formülü denermisiniz.
=BİRLEŞTİR(F2;"-";F3;"-";F4;"-";F5;"-";F6;"-";F7;"-";F8;"-";F9;"-";F10;"-";F11;"-";F12;"-";F13;"-";F14;"-";F15;"-";F16)

olmadı dostum

 

[HAKANYILDIZ]

sizin kullandığınız excel ingilizce değilse bu formül olur

sizin kullandığınız excel ingilizce değilse bu formül olur
ekteki dosyayı inceleyin.

 

[bere20]

sizin kullandığınız excel ingilizce değilse bu formül olur
ekteki dosyayı inceleyin.

dostum teşekkür ederim aynı formülü tarih içinde uygulayabiliriz değilmi

 

[HAKANYILDIZ]

evet uygulayabilirsiniz.

 

[bere20]

evet uygulayabilirsiniz.

YARDIMCI OLAN BÜTÜN ARKADAŞLARA TEŞEKKÜR EDERİM SAĞLICAKLA KALIN