mükerrer kayıt

[poetika]

A1=AD
B1=SOYAD
C1=DOÐUM YILI
D1=BABA ADI
olmak üzere dört sütunluk bi listem var..
örneğin:
''EMRE SEVINC 1981 IBRAHIM'' kaydı daha önceden girildi..
ve aynı bilgilere sahip başka bi kayıt yapıyorum..
adı soyadı doğum yılını ve en son baba adını girdiğim anda excelin beni uyarmasını ve bu dört kriterin aynı olduğu bir kaydın bulunduğunu bana bildirmesini istiyorum..
''EMRE SEVINC 1981 IBRAHIM'' = bu kayıt mevcut..gibi olabilir..
bu mümkün mü acaba?
teşekkürler..

 

[saltat]

bak kardeş ben buna benzer bir program yazdım geçtiğimiz seçimlerde fakat programı delphide yazdım excellde bunun olması için bütün verileri süzmesi gerek bu verileri süze bilmesi içinse bir döngü ve yine senin girdiğin kaydın bir veriye aktarılması şart bildiğim kadarı ile excell bunu makro olmadan yapamaz fakat sen bunu visual veya delphide çok rahat yapar veya yaptıra bilirsin bu program bende olacaktı delphide yazılmış hali fakat şu an nerede inan bilemiyorum okadar çok cd olduki bende artık karıştırıyorum

 

[poetika]

ya ne soru sormuşum excelde çözümü yok

 

[Levent Menteşoğlu]

Elbette çözümü var, bir çok alternatif çözüm üretilebilir. Veri sayınız ne kadar olacak.

 

[poetika]

20000 civarında olucak..

 

[Levent Menteşoğlu]

Aşağıdaki kodu verilerin bulunduğu sayfanın kod sayfasına kopyalayarak deneyin.
Veri sayısı fazla olduğunda kodun çalışması biraz uzun sürebilir.

[vb:1:906307d3bf]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:d]) Is Nothing Then Exit Sub
sat = Target.Row
For a = 1 To 4
If Cells(sat, a) = 0 Then Exit Sub
Next
Range("a1:d" & sat).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[aa1], Unique:=True
say = [a65536].End(3).Row
say2 = [aa65536].End(3).Row
If say <> say2 Then
MsgBox "SON YAZILAN VERİ KAYITLIDIR"
Range(Cells(sat, 1), Cells(sat, 4)).Select
End If
Columns("aa:ad").ClearContents
End Sub
[/vb:1:906307d3bf]

 

[poetika]

Levent bey ellerine sağlık..harika olmuş..teşekkürler..