belirli bir değere göre satır gizleme

[wedontneed]

A1' e ali girdiğimde, içinde ali geçen satırları bırakacak, diğer satırları gizleyecek bir makro konusunda yardımcı olurmusunuz.

Teşekkürler.

Dosya ekte.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
For sut = 1 To [a65536].End(3).Row
bak = UCase(Replace(Replace(Range("a" & sut), "ı", "I"), "i", "İ"))
huc = UCase(Replace(Replace(Range("a1"), "ı", "I"), "i", "İ"))
If bak Like "*" & huc & "*" Then
Rows(sut).Hidden = False
Else
Rows(sut).Hidden = True
End If
Next
End Sub

 

[AS3434]

Sayın wedontneed

İstediğiniz herhalde şöyle;

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
    ToggleButton1.Caption = "GÖSTER"
    Application.ScreenUpdating = False
    [a4:I65536].Interior.ColorIndex = xlNone
    For o = [a65536].End(3).Row To 4 Step -1
    If WorksheetFunction.CountIf(Rows(o), "*" & [a3] & "*") = 0 Then Rows(o).Hidden = True
    Next
End If
If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "GİZLE"
    Rows.EntireRow.Hidden = False
End If
    Application.ScreenUpdating = True
End Sub

 

[karaelmas4467]

satır yerine sütun gizle..

Sayın wedontneed

İstediğiniz herhalde şöyle;

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
    ToggleButton1.Caption = "GÖSTER"
    Application.ScreenUpdating = False
    [a4:I65536].Interior.ColorIndex = xlNone
    For o = [a65536].End(3).Row To 4 Step -1
    If WorksheetFunction.CountIf(Rows(o), "*" & [a3] & "*") = 0 Then Rows(o).Hidden = True
    Next
End If
If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "GİZLE"
    Rows.EntireRow.Hidden = False
End If
    Application.ScreenUpdating = True
End Sub

sayın as3434: bu çalışmanız çok işime yaradı. bunu sütunlar için de yapabilirmiyiz.. yani hücre içindeki veriye göre sütun gizleyebilirmiyiz..

 

[AS3434]

Sayın karaelmas4467

Aranan değere göre satır gizleyen , sütun gizleyen ve satır&sütun gizleyen dosya ekte.