Çoklu Verİ DoĞrulama

Katılım
4 Ekim 2006
Mesajlar
19
Excel Vers. ve Dili
2002
Öncelİkle Herkese İyİ ÇaliŞmalar...

Excel'de Ayni SÜtunda HÜcrede Hem 11 Rakami GeÇmeyen Verİ, Hemde MÜkerrer Kayit Önlemenİn FormÜlÜ Varmi?
Verİ DoĞrulama İle Bİrİnİ Yapabİlİyorum....
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sayfanız kod bölümüne aşağıdaki kodları ekleyiniz.

Kod:
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
 
Katılım
2 Kasım 2007
Mesajlar
283
Excel Vers. ve Dili
excell-türkçe
sayın ali
adım adım nereye yazacağımızı yazabilirmisin
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Bir excel dosyası açtığınızda Sayfa1,Sayfa2, İngilizcesinde Sheet1,Sheet2 gibi sayfalar görürsünüz bunlar sayfa sekmesidir.

Bu sayfa sekmelerini sağ tuş ile tıkladığınızda kod görüntüle diye kısım göreceksiniz bu seçtiğinizde excel size Visual Basic Application sayfasını açacaktır bu açılan yeni pencere içine yukarıdaki kodları ekleyin.

A sütununa aynı veriyi ikinci kez yazdığınızda yada arkadaşımızın ek olarak istediği 11 sayısını yazmak istediğinizde bunlar otomatik olarak silinecektir.
 
Katılım
4 Ekim 2006
Mesajlar
19
Excel Vers. ve Dili
2002
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.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sn egehan örnek dosya ekleyebilirmisiniz.
 
Katılım
2 Kasım 2007
Mesajlar
283
Excel Vers. ve Dili
excell-türkçe
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
)
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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
)

Private Sub Worksheet_Change(ByVal Target As Range)
.....
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
.....
End Sub

gibi Worksheet kelimesi geçiyorsa bu şekilde kullanacaksınız.

Sub makrodadı()
......
Ens dub


Function adresbul()

End sub

gibi ise bunları kullanmak içinde daha önce açılan bu pencere içinde

Insert-Module kısmını tıklayacaksınız ve excel yine bu pencere içinde size

Module1 gibi bir modül oluşturacaktır. Mavi yazı ile yazdığım türdeki

makrolarıda bunların içine yapıştıracaksınız.
 
Katılım
4 Ekim 2006
Mesajlar
19
Excel Vers. ve Dili
2002
ali beye

ali bey öncelikle açıklama yapayım tc kimlik noyu girdiğim zaman diğer hücrelere veriler otomatik olarak geliyor....2006 da çalışıyorum verileri 2005 ten alıyor
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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.
Veri doğrulama ile zaten 11 karekteri geçmeyen veri yapabiliyorum demiştiniz. Bundan hariç benzersiz TC kimlik no için fonksiyon uygulaması ektedir.

Dosyanız ektedir.
 
Katılım
4 Ekim 2006
Mesajlar
19
Excel Vers. ve Dili
2002
ali bey çok teşekkür ederim... iyi günler
 
Üst