satır sil

[prodigy]

değerli dostlar
h1 hücresine girdiğim sayıyı a sutunda bularak ( a sutununda kaç tane varsa) bulunan tüm satırı silecek. örneğin sayı 5 olsun ve a sutunda a5, a20, a45... hücrelerinde bulunsun. bunların bulunduğu satırı silmek istiyorum.
saygılarımla

 

[AS3434]

Sub SİL()
    For X = [a65536].End(3).Row To 1 Step -1
    If Cells(X, 1) = [h1] Then Cells(X, 1).EntireRow.Delete
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. AS3434 cevap vermiş ama alternatif olması açısından aşağıdaki koduda kullanabilirsiniz.

Sub KRİTERE_GÖRE_SATIR_SİL()
    If WorksheetFunction.CountIf([A2:A65536], [H1]) = 0 Then GoTo SON
    For X = [A65536].End(3).Row To 2 Step -1
    If Cells(X, 1) = [H1] Then Rows(X).Delete
    Next
    MsgBox "Verdiğiniz kritere uygun satırlar silinmiştir.", vbInformation
    Exit Sub
SON:
    MsgBox "Verdiğiniz kritere uygun kayıt bulunamamıştır.", vbExclamation
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
For a = [a65000].End(3).Row To 1 Step -1
If Cells(a, 1).Value = [H1].Value Then Cells(a, 1).Delete
Next a
End Sub

 

[conari]

arkadaş içerir demiş sanırım

Autofilter işe yarayabilir.

 

[conari]

arkadaş içerir demiş sanırım

Autofilter işe yarayabilir.

Sub Düğme1_Tıklat()
h = " *" & Range("h1").Value & "*"
  Range("A1").Select
    Selection.AutoFilter Field:=1, Criteria1:=h, Operator:=xlAnd
    Rows("1:10000").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Selection.AutoFilter
    
End Sub