DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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 Or Cells(a, "a") = 11 Then Rows(a).Delete
Next
End Sub
teşkür ali kardeşim...
ali kardeşş bir de şu excel.web.tr adresindeki 2951 kodları ben excel de bu şekilde mi kullanacağım......(ek olarak aynı kodları acsesde de kullanabilirmiyim sayın ali
)
Veri doğrulama ile zaten 11 karekteri geçmeyen veri yapabiliyorum demiştiniz. Bundan hariç benzersiz TC kimlik no için fonksiyon uygulaması ektedir.Alİ Bey İlgİnİze Çok TeŞekkÜr Ederİm... Fakat YazdiĞiniz Kod Sanirim Makrolarla İlgİlİ Makrolarla ÇaliŞmayi BİlmedİĞİmden Sadece Excel'dekİ Fonksİyonlara GÖre Yapabİlİrİm.... TeŞekkÜrler.