Exelde 5 Gün Öncesi Ve 5 Gün Sonrası

1 2
07/10/2019, 19:41

cobra26

A sütununda 45500 satır var
07/10/2019, 19:43

berduş

yalnız kodda var olan "SonStr = Cells(Rows.Count, 1).End(xlUp).Row" satırı 45500 satırın hepsini alması lazım
Cells(Rows.Count, 1).End(xlUp).Row kodu son satırı bulmaya yarar
07/10/2019, 19:51

cobra26

Sayın,Berduş Bey çok teşekkür ederim çalıştı çok sağolun.
07/10/2019, 20:02

cobra26

(07/10/2019, 19:51)cobra26 yazdı: Sayın,Berduş Bey dosyayı kapatıp açtıktan sonra çalıştı,çok teşekkür ederim, çok sağolun.
1 2