daha önceki kayıt varsa uyarsın

[byfeat]

merhaba arkadaşlar
sorumun cevabını aşağıdaki linkten bulacağımı sandım ama olmadı buraya yazdım. ayrıca MÜKERRER konulu tüm eklentileri inceledim
sanıyorum hepside benzersiz kayıtlarla ilgili ve tek sütunluk veriler yada ben bulamadım.
http://www.excel.web.tr/showthread.php?t=20737

olayımız
KULLANMAK DURUMUNDA OLDUĞUMUZ 12 SÜTUNDAN OLUŞAN evrak kayıt LİSTEMİZ VAR.
ZAMANLA LİSTEMİZ 10.000 leri aşıyor. Bu liste içerisinde, mükerrer
(yani birbiri ile aynı daha önce Faks ile gelmiş ise) kayıtların olup olmadığını öğrenmek istiyoruz.
Kıstasımız E-F-G sütunlarındaki verilerin birebir aynı olduğunda Ayrıca bu tür kayıtlara rastlandığında,
en son satırda G sütununun kırmızı ile işaretlenmesini yapmaya çalıştım.
örneğin: 2.ci satır ile 13.cü satır E- F- G sütunlarındaki veriler birebir aynı olduğundan
en son yazdığım 13 satır G sütununda işim bitip H sütununa geçtiğim anda
şekildeki gibi (bkz.ekte) 505 kırmızı ve kalın olmasını istiyorum böyle birşey olabilirmi?
herşey G sütununda bitiyor.
KOŞULLU BİÇİMLENDİRMEDE UĞRAŞTIM ANCAK 3 AYRI SÜTUN SÖZ KONUSU OLUNCA KOPTUM.

Bir şekilde beni uyarsında isterse isterse alarm çalsın isterse yazı ile uyarı
versin ne yaparsa yapsın kafama tokmak vuracak değil ya)))

ekte basitleştirilmiş küçük bir örnek var.
Yardımcı olacak olan, olmayan herkese
Sevgilerle

 

[Ali]

Dediğiniz olay

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

içinede yazılabilir ama 1000ce kayıt için her seferinde çalışması bayağı yavaşlatacaktır.

Bir modül içinde çalıştırmak daha iyi olacak gibi.

Sayfa1 içinde bir buton oluşturup aşağı kodları çalıştırın. M sütununda tüm verileri birleştirip mükerrer veri arama mantığına göre kurdum.

Sub isaretle()
For m = 2 To 100
Cells(m, 13) = Cells(m, 5) & Cells(m, 6) & Cells(m, 8)
If WorksheetFunction.CountIf(Range("m2:m" & m), Cells(m, "m")) > 1 Then
Cells(m, 7).Font.ColorIndex = 3
Cells(m, 7).Font.Bold = True
End If
Next
Columns("M:M").Select
Selection.ClearContents
End Sub

For m = 2 To 100 kısmındaki 100'ü siz verilerinize göre artırabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Koşullu biçimlendirme ile yapılmış hali ektedir. Umarım işinize yarar.

 

[byfeat]

Dediğiniz olay

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

içinede yazılabilir ama 1000ce kayıt için her seferinde çalışması bayağı yavaşlatacaktır.

Bir modül içinde çalıştırmak daha iyi olacak gibi.

Sevgili arkadaşlar costcontrolun yaptığı çalışma benim isteğimle birebir aynı ancak fructose arkadaşımızında dediği gibi daha 13 -15 adet veri varken yavaşlama titreme bekleme oluyor benim şu anki evrak kaydım ise 12000 lere geldi sabah ilk fırsatta yedek kopya alıp asıl belgede denemem lazım excellerinize sağlık teşekkürler. bu arada daha orijinal çözümlerin uykusuz düşünceleriniz arasında hayat bulacağına inanıyorum. Aynı tür kayıt işi yapan arkadaşlar için harika ayrıca veri girişi az olan diğer servis arkadaşlarımın çalışmalarına uygulayacağım.

sevgilerle

 

[byfeat]

olamadı malesef

arkadaşlar veri çokluğundan olsa gerek istediğim şekilde çalışmadı
çok yoğun iş tempomuz gereği bekleyecek zamanımız yok.
bir defada 50-60 mektup kargo vs. kaydediyoruz veya
evrak kayıt için gelen vatandaş başımızda beklerken,
ben pc yavaş bahanesi yapamam daha çok oyalayacak.
şimdilik yine ctrl+F ile devam.

evde tekrar denemek gerekecek yinede arkadaşlar sağolun
önerileriniz kafamda değişik lambalar yaktı.
sevgilerle

 

[byfeat]

Kayıt tekrarı önlenmeli

mükerrer mesaj ÖZÜR