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

[Emir Hüseyin Çoban]

. . .

Faturaların firma ismi yok mu. Koşullu biçimlendirme B sütununa göre çalışıyor.
Firma ismi girerek deneyin.

. . .

 

[fledermaus]

Emir Bey,

Yardımlarınız için çok teşekkür ederim. Ellerinize sağlık. İyi Çalışmalar dilerim. Saygılarımla,

 

[fledermaus]

Emir Bey,

Yazdığınız makroları başka size göndermiş olduğum deneme dosyası değilde orjinaline ekliyorum ancak çalışmıyor. Mümkün ise orjinal tabloya kopyalayabilmem için son revizede eklenen otomatik tablo güncellemesi dahil bütün kodu paylaşabilirmisniz? Nerede hata yaptığımı anlayamadım açıkcası

 

[fledermaus]

Emir Bey,

yazdığınız makroları orjinal tabloya uyarlamak için ne yapmalıyım ? Yardımcı olabilirmisniz ? Tşk,

 

[Emir Hüseyin Çoban]

. . .

Module1 içerisindeki kodları kopyala ile alıp.
Orjinal dosyanıza modul ekleyip içine yapıştırın.
Daha sonra yukarıda verdiğim kodu çalışma sayfasının kod bölümüne yapıştırın.
Koşullu biçimlendirmeleri orjinal tablonuzada da yapın.

. . .

 

[fledermaus]

Emir Bey,

Mesajınızı görmeden hallettmiş bulundum. Yardımlarınız için çok teşekkür ederim. İyi çalışmalar dilerim.

Saygılarımla,

 

[fledermaus]

Emir Bey,

Bir yerde yanlışlık yapmışım ve tekrardan yardımınıza ihtiyacım olacak Invoice list sayfasından geçen başlık altındaki veri ınvoice total değil ınvoice tax olacak. ınvıoce total ise (cost data sayfasında Z sütunu) onun yanında olacak. yardımcı olabilme şansınız varmı acaba. Çok uğraştırdım sizi kusura bakmayın. Yoğunluktan Değşiklikleri görmeniz açısından tablo ektedir.

 

[fledermaus]

Emir Bey,

Yardımcı olabilecekmisniz ?

 

[Emir Hüseyin Çoban]

. . .

11 başlığı kontrol edip. Cost Data sayfasında hangi sütunlara denk geldiğini yazınız.

. . .

 

[fledermaus]

Emir Bey,

Talep ettiğiniz gibi denk gelen başlıklar belirtilmiş şekilde tablo ektedir.

Syg,

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    With Application
        .ScreenUpdating = False: .Calculation = xlCalculationManual: .EnableEvents = False
    End With
    
    Dim SD As Worksheet: Set SD = Sheets("Cost Data")
    Dim SO As Worksheet: Set SO = Sheets("Invoice List")
    SO.Select
    Dim dic As Object, liste(), dizi()
    
    son = SD.Cells(Rows.Count, "B").End(3).Row
    liste = SD.Range("B9:AF" & son).Value
    
    ReDim dizi(1 To son, 1 To 31)
    
    Set dic = CreateObject("scripting.dictionary")
    
    For x = 1 To UBound(liste, 1)
        
        aranan = liste(x, 10) & "#" & liste(x, 11)
        If aranan <> "#" Then
            If Not dic.exists(aranan) Then
                n = n + 1
                dic.Add aranan, n
                ReDim Preserve dizi(1 To son, 1 To 31)
                dizi(n, 1) = liste(x, 10)
                dizi(n, 2) = liste(x, 12)
                dizi(n, 3) = liste(x, 11)
                dizi(n, 4) = liste(x, 14)
                dizi(n, 10) = liste(x, 26)
            End If
            dizi(dic.Item(aranan), 5) = dizi(dic.Item(aranan), 5) + liste(x, 21)
            dizi(dic.Item(aranan), 6) = dizi(dic.Item(aranan), 6) + liste(x, 22)
            dizi(dic.Item(aranan), 7) = dizi(dic.Item(aranan), 7) + liste(x, 23)
            dizi(dic.Item(aranan), 8) = dizi(dic.Item(aranan), 8) + liste(x, 24)
            dizi(dic.Item(aranan), 9) = dizi(dic.Item(aranan), 9) + liste(x, 25)
            dizi(dic.Item(aranan), 11) = dizi(dic.Item(aranan), 11) + liste(x, 27)
        End If
    Next x
    
    SO.Range("A10:L" & Rows.Count).ClearContents
    SO.Range("B10").Resize(dic.Count, 11) = dizi
    
    son = SO.Cells(Rows.Count, "B").End(3).Row
    SO.Cells(son + 1, "B") = "Totals"
    SO.Cells(son + 1, "L").Formula = "=sum(L10:L" & son & ")"
    
    With Application
        .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: .EnableEvents = True
    End With
    
End Sub

. . .

 

[fledermaus]

Emir Bey,

Cost data sayfasını bir sütun kaydırdığımda yani en başa bir sütun eklediğimde kodu nasıl değiştirmem gerekir ?

 

[fledermaus]

Yardımcı olabilecekmisniz ?

 

[Emir Hüseyin Çoban]

. . .

Cost Data sayfasında
B başlangıcı 1.sütun
AF sütunu 31.sütun son.

Bu sıralandırmaya göre ilave ve eksiltmeler yapabilirsiniz.
Örneğin COMPANY eski hali ile 10. sütundaysa
en başa ilave yaptığınızda 11. alana gelir.

. . .

 

[fledermaus]

Emir Bey,

Sütunu ekledim kodları değiştirdim ancak olmuyor. Sanırım bir yerde eksik birşey yapıyorum

 

[Emir Hüseyin Çoban]

. . .

Bu ilaveri yapmak her zaman kolay olmuyor. Makro konusunda pek fazla bilgi sahibi değilseniz size formüllü dosya kullanmanızı tavsiye edebilirim.

. . .

 

[fledermaus]

Emir Bey,

Bir başka destek olan arkadaşta aynı soruları sordu ancak uzun zamandır excelde ne makro ende formül çalışmadığım için bazı şeyleri yerine oturtamıyorum. Zamanda kısıtlı olunca bazı şeyler parça parça ve eksik oluyor ve sormak zorunda kalıyorum. Cost data sayfasının en başına yeni sütun ekledim. Söylediğiniz gibi dizin ve liste numaralarına birer rakam atlattım. Yeni eklediğim sütun için dizin ve listeye 9 olarak ekleme yaptım ancak olmuyor. Yardımcı olursanız çok sevinirim hayır dersenizde canınız sağolsun....

 

[fledermaus]

Emir Bey,

Mümkünse sizden yalnızca son bir iyilik istiyorum ?

 

[Emir Hüseyin Çoban]

Yine basliklarin hangi sutunlara denk geldigini yaziniz.

. . .

 

[fledermaus]

Emir Bey Merhaba,

Başlıklar yeni ekte revize edilmiştir. Yardımlarınız için şimdiden çok teşekkür ederim.