Bölünerek kayıt altına alınan faturanın tek şekilde listelenmesi.

[fledermaus]

Arkadaşlar Merhaba,

Ekte göndermiş olduğum dosyada faturalar içeriğine göre bölünerek yazılmaktadır. Benim burada yapmak istediğim bölünerek yazılan her faturanın tek bir sayfada tek bir fatura olarak alt alta listelenmesi. Bu konuda bana yardımcı olabilecek biri varsa çok memnun olurum.Ayrca söz konusu sayfadaki listede yer alan bilgilerin sıralarının bozulmamasını ayrıca rica ederim. Örnek aşağıdaki gibidir. dosya ise ektedir. Yardımlarınız için şimdiden çok teşekkür ederim.

Ayhan Ltd. 125152 Sehpa 100 TL
Ayhan Ltd. 125152 Masa 100 TL
Ayhan Ltd.125152 Sandalye 100 TL
-----------
Toplam 300 TL


Aşağıdakilerin bir tablo başlığı olduğunu farzedersek;

Şirket Fatura No Tutar

Ayhan Ltd. 125152 300 TL gibi...

 

[Emir Hüseyin Çoban]

. . .

Invoice List sayfasını tablo olarak kullanmanız gerekli mi.
Tablo özelliğinde olduğu için işlemi biraz zorlaştırıyor.

. . .

 

[turist]

Eklenen dosya tarafımdan silinmiştir.
Dikkatli kontrol edilmeden yüklendiği için, bu yanlışlıktan ötürü özür dilerim.
Sn.veyselemre'nin çözümü doğru sonuç vermektedir.

 

[veyselemre]

Fatura kalemlerini toplar, ilgili sayfaya yazar.

Sub faturaTopla()
    Set sc = Sheets("Cost data")
    Set sI = Sheets("Invoice List")
    son = sc.Cells(Rows.Count, "K").End(3).Row
    Liste = sc.Range("K9:AB" & son).Value
    ReDim yListe(1 To UBound(Liste), 1 To 9)

    sI.Select
    mx = 0: sira = 0
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(Liste)
            key = Trim(Liste(i, 2)) & "|" & Trim(Liste(i, 1))

            If Not .exists(key) Then
                mx = mx + 1
                .Item(key) = mx
                yListe(mx, 1) = Liste(i, 1)
                yListe(mx, 2) = Liste(i, 3)
                yListe(mx, 3) = Liste(i, 2)
                yListe(mx, 8) = Liste(i, 17)
            End If
            sira = .Item(key)
            yListe(sira, 4) = yListe(sira, 4) + Liste(i, 12)
            yListe(sira, 5) = yListe(sira, 5) + Liste(i, 13)
            yListe(sira, 6) = yListe(sira, 6) + Liste(i, 14)
            yListe(sira, 7) = yListe(sira, 7) + Liste(i, 15)
            yListe(sira, 9) = yListe(sira, 9) + Liste(i, 18)
        Next i
    End With
    Range("b10:J" & Rows.Count).ClearContents
    Range("b10").Resize(mx, 9).Value = yListe
End Sub

 

[fledermaus]

: Bölünerek kayıt altına alınan faturanın tek şekilde listelenmesi. Konuyu Yanıtla

Emre Bey Merhaba,

İlgili sayfadaki listeyi tablo stili ile oluşturduğumdan listenin en altındaki toplam en üstte çıkıyor ve bazı rakamlar ve tarihler kendi biçimlerinde çıkmıyorlar. Tabloyu tekrar revize ettim ve bir başlık daha ekledim. Şifreli ve gizlenen sayfaları ise kaldırdım. Diğer sayfalardaki tablo stilleri aynı olduğu için bu tablonunda aynı stilde olması gerekli. Yardımcı olursanız çok memnun olurum. Şimdiden çok teşekkür ederim.

 

[fledermaus]

Emre Bey Merhaba,

İnceleme şansınız oldumu acaba ? İyi çalışmalar.

 

[fledermaus]

Arkadaşlar,

Konuyla ilgili yardımcı olabilecek birileri var mıdır ?

Şimdiden teşekkürler.

 

[fledermaus]

Sanırım herkes yoğun

 

[Emir Hüseyin Çoban]

. . .

2 nolu mesajdaki iletimi yanıtlasaydınız, şimdiye kadar çözmüştük...

. . .

 

[fledermaus]

Emir bey yanlış anlamayın sakın. Çok yoğun olduğum için hemen gözüme çarpan bir mesajı cevaplayarak devam etmiştim. Gerçekten kusura bakmayın ve yanlış anlamayın. Siz de yardımcı olursanız sevinirim. Diğer tablo görünümleri de aynı olduğundan bu tablonujnda aynı olması gerekli. Sadece 1 boşluk olacak şekilde renkli ve renksiz olması gerekiyor. Yardımcı olursanız çok sevinirim. Şimdiden teşekkürler. İyi çalışmalar dilerim.

 

[fledermaus]

Arkadaşlar konuyla ilgili yardımcı olabilecek biri yokmu ?

 

[Korhan Ayhan]

Veyselemre beyin kodu işinizi görmüyor mu?

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Invoice List sayfasında 1000 satırlık koşullu biçimlendirme vardır.

. . .

 

[fledermaus]

Emre Bey Merhaba,

Yardımlarınız için teşekkür ederim. Tablo yenilemesini manual değilde otomatik yapabilme şansımız var mı acaba ? Hatta yenilendiği zaman, ilgili tabloda "Tablonuz Güncellendi" uyarısı çıkar ise çok daha iyi olur. Bunu dışında, veri sayfasında kayıt altına alınan yeni bilgi ilgili tablonun en altında yani toplam kısmında ve renkli olarak görünüyor. İsterseniz toplam satırınıda kaldırabilirsiniz. Gerekli düzeltmeleri yaparsanız çok memnun olurum.Yardımlarınız için şimdiden çok teşekkür ederim. Saygılarımla,



Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez
MEVLANA

 

[Emir Hüseyin Çoban]

. . .

Invoice List sayfasının üzerinde sağ tıkla > kodları görüntüle
açılan pencereye aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Activate()
    Call kod
    MsgBox "Tablonuz Güncellendi", vbInformation, ""
End Sub

Toplam aldırdığımız kodlar şu 3 satır. İsterseniz kaldırabilirsiniz. Ancak toplama için koşullu biçimlendirme var. Onuda silmeyi atlamayın.

    son = SO.Cells(Rows.Count, "B").End(3).Row
    SO.Cells(son + 1, "B") = "Totals"
    SO.Cells(son + 1, "K").Formula = "=sum(K10:K" & son & ")"

. . .

 

[fledermaus]

Emir Bey,

Vermiş olduğunuz kodu uyguladım. Herşey gayet güzel çalışıyor ancak yeni görünen bilgilerin satırları renksiz çıkıyor. Bunun dışında total satırını kaldıralım dedik ancak ben son başlıkta tek bir para birimine çevirmişim. Dolayısıyla ilk başta görmemiz gereken en alta gelen genel toplam satırınada ihtiyacım olacak. Şu an buradaki tek sorun yeni girilen bilginin toplam satırına karışması ve satırların renkli/renksiz uyumu. Yardımlarınızı talep ediyorum.

Saygılarımla,

Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez
MEVLANA

 

[Emir Hüseyin Çoban]

. . .

Renkli/renksiz uyumu hatalı olan satırdan resim ekleyebilir misiniz.
Aynı şekilde toplam satırına karışma içinde resim ekleyiniz.

. . .

 

[fledermaus]

Emre Bey Resim ektedir. Tşk,


Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez
MEVLANA

 

[Emir Hüseyin Çoban]

. . .

İsimleri doğru yazın.
Ekte dosya yok.

. . .

 

[fledermaus]

Emir Bey,

Dosya ektedir. İlgili dosyaya 131990,131991,131992,131993 nolu faturalar eklendi. Karışıklık için kusura bakmayın.