csv Formatında Kaydet

[ziya]

Merhaba,
Beceremedim. Dosyamı ekledim.
Dosyamda bazı satırlarda veri yok, o satırlarıda tarih " 0.01.1900 "
Bu satırların silinmesini ve son halini "Farklı Kaydet, csv dosyası olarak kaydet" Yapmak istiyorum.

Dosya Linki eklidir.

Yardımlarınız için teşekkür ederim.

 

[ziya]

Merhaba,
Beceremedim. Dosyamı ekledim.
Dosyamda bazı satırlarda veri yok, o satırlarıda tarih " 0.01.1900 "
Bu satırların silinmesini ve son halini "Farklı Kaydet, csv dosyası olarak kaydet" Yapmak istiyorum.

Dosya Linki eklidir.

Yardımlarınız için teşekkür ederim.

Süz komutu ile çözebildiğimi denedim, sonuç alacağımı gördüm. Aşağıdaki komutu 0 dan büyük olanlar şeklinde değiştirebilrsem istediğim olacak.

 ActiveSheet.Range("$A$2:$H$40").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "1/31/2022")

Yardımınız için teşekkür ederim.

 

[ziya]

Süz komutu ile çözebildiğimi denedim, sonuç alacağımı gördüm. Aşağıdaki komutu 0 dan büyük olanlar şeklinde değiştirebilrsem istediğim olacak.

 ActiveSheet.Range("$A$2:$H$40").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "1/31/2022")

Yardımınız için teşekkür ederim.

Az kaldı,
Süz sorunumu hallettim.

 ActiveSheet.Range("$A$2:$A$149").AutoFilter Field:=1, Criteria1:= _
        ">31.12.2021", Operator:=xlAnd

Olacak, olacak....

 

[ziya]

Merhaba,
Beceremedim. Dosyamı ekledim.
Dosyamda bazı satırlarda veri yok, o satırlarıda tarih " 0.01.1900 "
Bu satırların silinmesini ve son halini "Farklı Kaydet, csv dosyası olarak kaydet" Yapmak istiyorum.

Dosya Linki eklidir.

Yardımlarınız için teşekkür ederim.

Biraz çabaladım ama boşuna. Beceremiyorum.