Vadesi geçen alacak hesaplama

[nemiroff]

Öncelikle forumdaki bütün ustalara biz acemileri ihya ettikleri için saygılarımı sunuyorum.Benim sıkıntım şu ekteki tablodaki cari hesapların vadesi geçmiş alacaklarını görebileceğim bir rapor hazırlamak istiyorum.
Rapro sayfası yazan kısma muhasebe porgramından çektiğim raporu aynen yapıştırıp vadesi geçen alacak sayfasına otomatik olarak bilgilerin akmasını istiyorum. O sayfada bir liste yok çünkü cari kısma sürekli yeni cariler ekleniyor.
Benim istediğim cari hesapları diğer sayfaya birer adet olarak kopyalayıp bunları borç-alacak-bakiye-vadesi geçen ve eğer mümkünse yan sütunlara geciken vade ve ortalama vadeyi bir liste halinde versin istiyorum. Bir de eğer mümkünse otomatik olarak yüksek rakamdan aşağı doğru sıralasın.
Rapor yaklaşık 2 mb olduğundan ben birçok hareketi sildim ancak bütün hareketlerden var. Bakiyeler çok saçma sapan çıkabilir sebep budur.
Bana bu konuda yardım edene hem bol bol hayır dua ederim hemde kendisine küçük bir hediye yollamak isterim. Tekrar saygılar..

 

[hamitcan]

Bu şekilde deneyin.

Sub VadesiGecenler()
    c = 1
    Sheets("VADESİ GEÇEN ALACAK").[a2:p10000].Clear
    For i = 4 To Sheets("RAPOR SAYFASI").[A65536].End(3).Row
        If Format(Replace(Sheets("RAPOR SAYFASI").Cells(i, "H"), ".", "/"), "00000") < Format(Date, "00000") Then
        For j = 2 To 8
            If Sheets("RAPOR SAYFASI").Cells(i, "F") Like "*" & Sheets("HAREKET AÇIKLAMALARI").Cells(j, 1) & "*" Then
                c = c + 1
                Sheets("VADESİ GEÇEN ALACAK").Rows(c) = Sheets("RAPOR SAYFASI").Rows(i).Value
            End If
        Next
        End If
    Next
    Sheets("VADESİ GEÇEN ALACAK").[a2:p10000].Sort key1:=[p2], Order1:=xlDescending
    MsgBox "Bitti"
End Sub

 

[nemiroff]

olmadı malesef

Hocam yardımınız için teşekkürler ancak makroyu çalıştırdığımda "run time error1004 Sıralama başvurusu geçerli değil sıralama istediğiniz verilerin içinde olduğundan ve birinci sıralama ölçütü kutusunun aynı ve boş olmadığından emin olun uyarısı verdi.

 

[hamitcan]

Sheets("VADESİ GEÇEN ALACAK").[a2:p10000].Sort key1:=[p2], Order1:=xlDescending

bu satırı aşağıdaki ile değiştirin.

Sheets("VADESİ GEÇEN ALACAK").[a2:p10000].Sort key1:=Sheets("VADESİ GEÇEN ALACAK").[p2], Order1:=xlDescending

 

[nemiroff]

Az kaldı olacak sanırım

Hocam hızlı cevanız için teşekkürler ancak malesef olmadı. Aynı firma birden çok sayıda çıkıyor boş sütunlar öıkıyor o önemli değil silerim manuel olarak.Ekte makronun çalıştırılmış hali var üst tarafta kırmızı başlıkları içersin istiyorum ancak olmazsa bakiye + vadesi geçeni verse yeter.
İyi çalışmalar.

 

[hamitcan]

Sizin verdiğiniz başlıklar rapor sayfasında yok.

 

[nemiroff]

Rapor başıkları

Hocam vadesi geçen alacak kısmına tarif etmeye çalıştım gerekli verileri o başlıklar altına atabilirsek ne ala ama başlıklara takılmayın mühim olan gerekli verileri alabilmek.

 

[hamitcan]

Sorunuzun şekli değişti. Konu göründüğü kadar basit değil. Siz, eşleştirme yapmak istiyorsunuz. Forumdaki örnek uygulamaları incelemenizi öneririm.

 

[nemiroff]

ilgi ve alakanız için teşekkür ederim.