kod birleştirmek

[Kusta]

Arkadaşlar iyi günler,
Aşağıda yer alan 3 kodu birleştirmek yada tek tuşla üçünü yaptırmak mümkünmüdür.





Sub sil()
Dim sat As Integer
For sat = Cells(65536, "M").End(xlUp).Row To 2 Step -1
If Not Cells(sat, "M") = "1" Then 'Not öğesini kaldırırsanız tersini yapar
Cells(sat, "M").EntireRow.Delete shift:=xlUp
End If
Next

End Sub
-------------------------
Sub Düğme7_Tıkla()
Dim sat As Integer
For sat = Cells(65536, "J").End(xlUp).Row To 2 Step -1
If Cells(sat, "J") = 0 Then 'Not öğesini kaldırırsanız tersini yapar
Cells(sat, "J").EntireRow.Delete shift:=xlUp
End If
Next

End Sub
----------------------
Sub Düğme9_Tıkla()
Dim sat As Integer
For sat = Cells(65536, "f").End(xlUp).Row To 2 Step -1
If Not Cells(sat, "f") = metin Then 'Not öğesini kaldırırsanız tersini yapar
Cells(sat, "f").EntireRow.Delete shift:=xlUp
End If
Next

End Sub

 

[YUSUF44]

Deneyiniz:

Sub sil()
Dim sat As Integer
For sat = Cells(65536, "M").End(xlUp).Row To 2 Step -1
    If Not Cells(sat, "M") = "1" Or Cells(sat, "J") = 0 Or Not Cells(sat, "f") = metin Then 'Not öğesini kaldırırsanız tersini yapar
        Rows(sat).Delete shift:=xlUp
    End If
Next
End Sub

Yalnız metin ifadesi sorun çıkarabilir.

 

[Kusta]

Deneyiniz:

Sub sil()
Dim sat As Integer
For sat = Cells(65536, "M").End(xlUp).Row To 2 Step -1
    If Not Cells(sat, "M") = "1" Or Cells(sat, "J") = 0 Or Not Cells(sat, "f") = metin Then 'Not öğesini kaldırırsanız tersini yapar
        Rows(sat).Delete shift:=xlUp
    End If
Next
End Sub

Yalnız metin ifadesi sorun çıkarabilir.

TEŞEKKÜR EDERİM. SIKINTI OLMADI. GÜZEL ÇALIŞIYOR. ELİNE SAĞLIK.