otomatik oluşturulan makroya tarih aralığı kriteri uygulama

[burhancavus61]

Tablomdan filtre ile otomatik makro oluşturdum tarihleri seçtim. Ama tarih aralığını hücreye bağlamak istiyorum. Bu kısmı nasıl yapmalıyım.

Sub TarihSil()
    ActiveSheet.Range("$A$2:$M$100000").AutoFilter Field:=4, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "4/1/2020", 2, "4/2/2020", 2, "4/3/2020", 2, _
        "4/4/2020", 2, "4/5/2020")
    Range("A3:M100000").Select
    Selection.ClearContents
    Range("A3").Select
End Sub

 

[burhancavus61]

bu koda tarih aralığı ekleyebilirmiyiz. tarihi ben belirleyeyim hücreden A1 ve A2 hücrelerinden

 

[burhancavus61]

Kodu bu şekilde oluşturdum ama uygulamada hala hata yapıyorum.

    ActiveSheet.Range("$A$2:$Y$23").AutoFilter Field:=4, Criteria1:= _
        ">=21.04.2020", Operator:=xlAnd, Criteria2:="<=27.04.2020"

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yöntemi ile tarih aralığına göre süzerek kodları elde edebilirsiniz.

 

[burhancavus61]

hocam kodları elde ettim. Ama temizle kısmını yapamıyorum. kriter oluşturdum ama oluşturduğum alanı temizle kısmını yapamadım. işlemi yapıyor ama silmiyor. Beni aşıyor ancak bu kadar yapabildim.

Sub TarihSil()
    ActiveSheet.Range("$A$2:$Y$23").AutoFilter Field:=4, Criteria1:= _
        ">=[AA2]", Operator:=xlAnd, Criteria2:="<=[AB2]"
    Range("A4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
    ActiveSheet.Range("$A$2:$Y$5000").AutoFilter Field:=4
    End Sub

 

[Korhan Ayhan]

Merhaba,

Temizle kısmı içinde F5-Özel-Yalnızca Görünü Hücreler seçeneğini makro kaydet ile elde edip kendi kodunuzun içine entegre edebilirsiniz.

Bu seçenek filtre işleminden sonra görünür hücreleri seçecektir. Seçtikten sonra temizleme işlemi zaten kolay olacaktır.

 

[burhancavus61]

Tamam hocam deniyorum. Sizlerin sayesinde baya öğrendim.

 

[burhancavus61]

Hocam başlık kısmınıda seçti ben değiştirebilirmiyim o kısmı. Başlık hariç görünen yerleri seçmem mümkünmü.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Gorunur_Hucreleri_Sec()
    Dim Son As Long
    Son = Cells(Rows.Count, 1).End(3).Row
    Range("A3:M" & Son).SpecialCells(xlCellTypeVisible).Select
End Sub

 

[burhancavus61]

Oldu hocam artık gerisini halletmeye çalışayım

 

[burhancavus61]

Hocam kodu oluşturuyorum ama çalıştırınca bu filtre bir türlü olmuyor bi yerde hata yapıyorum ama çözemedim.

Sub Makro4()
    Rows("2:2").Select
    Selection.AutoFilter
    ActiveWindow.LargeScroll ToRight:=-1
    Range("D2").Select
    ActiveSheet.Range("$A$2:$AB$14").AutoFilter Field:=4, Criteria1:= _
        ">=21.04.2020", Operator:=xlAnd, Criteria2:="<=25.04.2020"
    Rows("8:12").Select
End Sub

 

[Korhan Ayhan]

Bu şekilde deneyiniz.

Sub Tarih_Aralıgi_Suz()
    ActiveSheet.Range("$A$2:$AB$14").AutoFilter Field:=4, Criteria1:= _
        ">=" & CLng(CDate("01.01.2020")), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate("31.01.2020"))
End Sub

 

[burhancavus61]

Çalıştı hocam sizin kod. Çok teşekkür ederim.