DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub sil()
For krdnt = 3 To Sheets("Sayfa1").Range("A65536").End(3).Row
If Sheets("Sayfa1").Cells(krdnt, 2) = Sheets("Sayfa1").Cells(krdnt, 3) Then
Sheets("Sayfa1").Cells(krdnt, 2) = ""
End If
Next
Sheets("Sayfa1").Range("B3:B65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub