Makro Sorunu

[ojibu]

İyi günler. ekteki basit muhasebe programında Genel Raporlama makrosunda bir hata var. nedense kasa defterinin 1. satırını mükerrer atıyor

 

[ojibu]

dosya yüklenmiyor neden acaba

 

[ojibu]

HESAP.V1.xlsm

docs.google.com

 

[YUSUF44]

Dosyanızı inceledim ama çalışma mantığını çözemedim maalesef. RAPOR1 sayfasındaki veriler nasıl oluşuyor?

 

[ojibu]

isimleri kasadan benzersiz çekip rapor sayfasına yapıştırıyor. sonra hücrelerdeki =EĞER(A3>0;ÇOKETOPLA(tahsilat;adi;$A3);"") ile benzersiz isimlerin hesaplarını topluyor.
hocam siteye dosya neden yüklenmiyor

 

[YUSUF44]

Dün de dosya yüklemeyle ilgili bir sıkıntı yaşanmıştı. Ben de yükleyememiştim. Nedenini bilmiyorum.

Benzersiz çekip yapıştırma işlemi nasıl oluyor onu çözemedim!

 

[ojibu]

Sheets("KASA")

.Range("C2:C" & .Range("C65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Range("C2:C" & .Range("C65536").End(xlUp).Row).Copy Sheets("RAPOR1").Range("A2")
.ShowAllData

sorunu bu şekilde halletim. yani başlığı da alıp kopyalayınca sorun olumyuor.
formülde kasada c2:c deki bilgileri alıp unique (benzersiz) leri alıp rapor1 sekmesindeki a2 hücrelerine yapıştırıyor

 

[YUSUF44]

Sorun çözüldüyse sıkıntı yok. Ancak ben hala çözemedim maalesef.

 

[ojibu]