Makro İle Kritere Göre Hücreleri Kopyalamak

[anilman]

Merhaba ekteki dosyamda B (Açıklama) sütununda 'Önceki Dönem' i filtreleyerek M (Yüklenilen KDV) sütunundaki tutarları kopyalayıp seçili halde kalmasını sağlamak istiyorum bunu yapmak mümkün mü? Teşekkürler

 

[YUSUF44]

Aşağıdaki satırları deneyin:

ActiveSheet.Range("$2:$1000").AutoFilter Field:=2, Criteria1:="ÖNCEKİ DÖNEM"
son = Cells(Rows.Count, "M").End(3).Row
Range("M3:M" & son).SpecialCells(xlCellTypeVisible).Copy

 

[anilman]

Kod çalışıyor fakat Önceki Dönem kriterini tek başına 3.satıra alırken 1 ve 2. satırları da kopyalıyor, onun haricinde sıkıntı yok. Ekte sundum son halini