veri doğrulama

[inowjoin]

merhabalar
ekte gönderdiğim dosyada B , E ve H sutunlarına mükerrer kayıdı önlemek için veri doğrulama ile bir işlem yaptım ama tüm sütünların ve sayfaların ortak olarak tarama yapmasını ve aynı numaranın girilmesini engellemesini istiyorum bunu nasıl sağlarım

Teşekkürler..
dosya:
http://rapidshare.com/files/45321192/telefon_numaralar__305_.xls.html

 

[conari]

Dosyanızın boyutu o kadar büyükmüdür.
buraya ekleyebilirmisiniz.

 

[inowjoin]

kısalttım

50.000 kayıt için düşünüyoruz ve sadece sıra numarası var bu yüzden bu boş hali olduğu halde yaklaşık 2.5 mb o yüzden gönderdim olmadı ama ilk 10 satır şeklinde yaparsam olur galiba

 

[conari]

Alternatif olarak kullanabilirsin,
iki sayfa içinde de
E- F- H sütunlarına telefon nosu 1 then fazla girildi ise uyarır.

fakat veri girildikten sonra aynı satırı tekrar aktif etmen lazım.
Anlık kontrol yaptıramadım.:roll:
Kısa süre sonra tekrar bakmaya çalışacağım.

 

[inowjoin]

tekrar aktif etme olayı pratikliği yok ediliyor kullanış açısından olmuyor ama yinede sağol

 

[Orion1]

Merhabalar .
Bir şeyler yapmaya çalıştım.
Ekli dosyayı inceleyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim syf As Worksheet, adr As String, i As Byte
If Intersect(Target, [B3:B65536,E3:E65536,H3:H65536]) Is Nothing Then Exit Sub
On Error GoTo hata
For Each syf In Worksheets
    For i = 2 To 8 Step 3
        If Target.Value = "" Then Exit Sub
        adr = Range(Cells(3, i), Cells(65536, i)).Address
        If WorksheetFunction.CountIf(Sheets(syf.Name).Range(adr), Target.Value) >= 1 Then
        sayac = sayac + WorksheetFunction.CountIf(Sheets(syf.Name).Range(adr), Target.Value)
        If sayac > 1 Then
        MsgBox "[ " & Target.Value & " ] Numara dağa önceden girilmiş..!!", vbCritical
        Target.Select
        Exit Sub
        End If
        End If
    Next i
Next
hata:
End Sub

 

[inowjoin]

işime yaradı çok teşekkürler uyarlama yapıyorum şu anda kodlar çok güzel

 

[Orion1]

işime yaradı çok teşekkürler uyarlama yapıyorum şu anda kodlar çok güzel

İşinize yaradığına sevindim.
Kolay gelsin.

 

[conari]

tekrar aktif etme olayı pratikliği yok ediliyor kullanış açısından olmuyor ama yinede sağol

Kısa süre sonra bakacağım söylemiştim.
İşin çözülmüş ama döngü yerine bu kod daha az kasar sanırım.