İki Tarih Aralığına Göre Veri Süzme

[esnaf88]

Merhaba.
Excel, macro, vba öğrenmek için farklı örnek dosyalar üzerinde birşeyler yazmaya çalışıyorum. Ekli dosya da yazılı kodlara göre, iki tarih arasındaki verileri süzdürmek istediğimde, sadece ilk kaydı getiriyor. Kodların bir yerinde hata yapıyorum. Fakat hatamı bulamadım.
Yardımcı olacak arkadaşlara teşekkür ederim.

 

[DoğanD]

Merhaba,

For XR = 1 To Range("O130000").End(xlUp).Row satırındaki sütunda veri olmadığı için değeri 1 geliyor, yani başlık. Buradaki satır sayısını O'dan değil de N sütunundan (Yada dolu herhangi bir sütun) alıp dener misiniz?

 

[esnaf88]

Denedim, çalışıyor.
Teşekkür ederim. İyi çalışmalar.