Data Validation

[ForeveReal]

Merhaba Arkadaşlar,

Filter sekmesinde bulunan düğme altına;

Yanında bulunan Data validation değerlerini sıfırlamak için button yapmaya çalıştım ancak hata aldım.

Ayrıca Year, Month ya da Country sekmesinden 1 ya da 2 sini boş bıraktığımda tüm değerleri içererek arama yapsın.

Konu hakkında yardımcı olabilecek arkadaşlar var mıdır

Yardımcı olan arkadaşlara şimdiden Çok Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Mevcut kod'u aşağıdakiyle değiştirerek deneyin.
.

[B][COLOR="blue"]Private Sub btnFilter_Click()[/COLOR][/B]
Application.ScreenUpdating = False
If Sheets("Filter").Cells(Rows.Count, 1).End(3).Row > 8 Then _
    Sheets("Filter").Range("A9:I" & Rows.Count).ClearContents
On Error Resume Next
Sheets("Data").ShowAllData
If Sheets("Filter").[D3] <> "" Then _
    Sheets("Data").ListObjects("Table1").Range.AutoFilter Field:=2, _
                            Criteria1:=Sheets("Filter").[D3].Value
If Sheets("Filter").[D4] <> "" Then _
    Sheets("Data").ListObjects("Table1").Range.AutoFilter Field:=3, _
                            Criteria1:=Sheets("Filter").[D4].Value
If Sheets("Filter").[D5] <> "" Then _
    Sheets("Data").ListObjects("Table1").Range.AutoFilter Field:=4, _
                            Criteria1:=Sheets("Filter").[D5].Value
Sheets("Data").[A1].CurrentRegion.Copy Sheets("Filter").[A9]
Sheets("Data").ShowAllData
Application.ScreenUpdating = True
[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[ForeveReal]

Merhaba.

Mevcut kod'u aşağıdakiyle değiştirerek deneyin.
.

[B][COLOR="blue"]Private Sub btnFilter_Click()[/COLOR][/B]
Application.ScreenUpdating = False
If Sheets("Filter").Cells(Rows.Count, 1).End(3).Row > 8 Then _
    Sheets("Filter").Range("A9:I" & Rows.Count).ClearContents
On Error Resume Next
Sheets("Data").ShowAllData
If Sheets("Filter").[D3] <> "" Then _
    Sheets("Data").ListObjects("Table1").Range.AutoFilter Field:=2, _
                            Criteria1:=Sheets("Filter").[D3].Value
If Sheets("Filter").[D4] <> "" Then _
    Sheets("Data").ListObjects("Table1").Range.AutoFilter Field:=3, _
                            Criteria1:=Sheets("Filter").[D4].Value
If Sheets("Filter").[D5] <> "" Then _
    Sheets("Data").ListObjects("Table1").Range.AutoFilter Field:=4, _
                            Criteria1:=Sheets("Filter").[D5].Value
Sheets("Data").[A1].CurrentRegion.Copy Sheets("Filter").[A9]
Sheets("Data").ShowAllData
Application.ScreenUpdating = True
[B][COLOR="Blue"]End Sub[/COLOR][/B]

İlginiz için teşekkürler

 

[Ömer BARAN]

Estağfurullah, önemli olan ihtiyacın görülmesi.

Sadece son cümlenizle ilgili bir şey söyleyeyim.

İLGİ ve ALAKA anlamları aynı olan iki kelime (biri Türkçe diğeri Arapça kaynaklı sadece) ve kullandığınız haliyle biraz garip bir cümle olmuş bence.

Kolay gelsin.
.

 

[ForeveReal]

Estağfurullah, önemli olan ihtiyacın görülmesi.

Sadece son cümlenizle ilgili bir şey söyleyeyim.

İLGİ ve ALAKA anlamları aynı olan iki kelime (biri Türkçe diğeri Arapça kaynaklı sadece) ve kullandığınız haliyle biraz garip bir cümle olmuş bence.

Kolay gelsin.
.

Hemen düzelttim. Eksikliği gösterdiğiniz için teşekkür ederim.