Birdaha denedim ayrı kod yazıncada mükerrer kayıt olarak algılıyor dosyayı bitirince eklerim birazdan
Excelden Veri Alma Ve Kaydı Güncelleme
teşekkür ederim hocam.
Rica ederim.
Deneyebilirsiniz aynı yöntem ile veri doğrulama ile yaptım.
Birde Vba kod ilede yaparım.
Deneyebilirsiniz aynı yöntem ile veri doğrulama ile yaptım.
Birde Vba kod ilede yaparım.
veri.rar
(Dosya Boyutu: 28,9 KB | İndirme Sayısı: 6)
Buda Excel kodu ile yapıldı.Bence diğeri daha iyi.
Bu dosya makrolu olduğu için uzantısıda xlsm oldu.
Bu dosya makrolu olduğu için uzantısıda xlsm oldu.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 2 Then
If WorksheetFunction.CountIf(Range("B3:B" & Rows.Count), Target.Value) > 1 Then
MsgBox "Mükerrer kayit bulundu...", vbCritical, "Mükerrer"
Target.Value = ""
cancel = True
Target.Select
ActiveWindow.SmallScroll up:=1
End If
End If
End Sub
Access dosyayı biraz inceledim.
sSql = "select [KOD],[Kaynak],[Tarih],[Tesis],[Yer/Bölüm],[Tespit Yapan],[Uygunsuzluk/Ramak Kala/Gözlem],[Önerilen Aksiyon],[sorumlu],[Termin tarihi],[Sorumlu Görüþü/Kararý],[Tamamlama Tarihi],[Durum] from [Sayfa1$B2:N] where [KOD] Is Not Null" 'sSql = "select * from [Sayfa1$B2:N] where [KOD] Is Not Null" '
Teşekkür ederim bu güzel oldu.
Konuyu Okuyanlar: 1 Ziyaretçi
