burdaki sadece hücrenin tamamı eşit ise gecerli ben hücrenin içindeki bir cümleye göre silmek istiyorum
Sub silme()
Range("a1").Select
Selection.End(xlDown).Select
SONSAT = ActiveCell.Row
For j = SONSAT To 1 Step -1
Cells(j, 12).Select
If ActiveCell.Value = "FOL" Then ' burdaki sadece hücrenin tamamı eşit ise gecerli ben hücrenin içindeki bir cümleye göre silmek istiyorum
RROW = ActiveCell.Row
AL1 = CStr(RROW) & ":" & CStr(RROW)
Rows(AL1).Select
Selection.Delete Shift:=xlUp
'Selection.EntireRow.Hidden = True
' Selection.ClearContents
End If
Next
Sub silme()
Range("a1").Select
Selection.End(xlDown).Select
SONSAT = ActiveCell.Row
For j = SONSAT To 1 Step -1
Cells(j, 12).Select
If ActiveCell.Value = "FOL" Then ' burdaki sadece hücrenin tamamı eşit ise gecerli ben hücrenin içindeki bir cümleye göre silmek istiyorum
RROW = ActiveCell.Row
AL1 = CStr(RROW) & ":" & CStr(RROW)
Rows(AL1).Select
Selection.Delete Shift:=xlUp
'Selection.EntireRow.Hidden = True
' Selection.ClearContents
End If
Next