• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
. . .

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

. . .
 
Emir Bey,

Yardımlarınız için çok teşekkür ederim. Ellerinize sağlık. İyi Çalışmalar dilerim. Saygılarımla,
 
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ı :(
 
Emir Bey,

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

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.

. . .
 
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,
 
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.
 

Ekli dosyalar

. . .

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

. . .
 
Emir Bey,

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

Syg,
 

Ekli dosyalar

. . .

Kod: 
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

. . .
 
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 ?
 
. . .

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.

. . .
 
Emir Bey,

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

Ekli dosyalar

. . .

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

. . .
 
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....
 
Emir Bey,

Mümkünse sizden yalnızca son bir iyilik istiyorum ?
 
Yine basliklarin hangi sutunlara denk geldigini yaziniz.

. . .
 
Emir Bey Merhaba,

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

Ekli dosyalar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst