DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Ne yapmaya çalıştığınızı anlayamadım.ya o basıc kodu da olmadı exelden çıkınca işe yaramıyo