Ben verdiğiniz formülleri yazdığım halde olmuyor.farklı bilgi de girsem uyarı veriyor nerde yanlış yaptım ben cep numaraları kaydetmek istiyorum.... hepinize teşekkürler
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub
ya o basıc kodu da olmadı exelden çıkınca işe yaramıyo