Excelden Veri Alma Ve Kaydı Güncelleme

Birdaha denedim ayrı kod yazıncada mükerrer kayıt olarak algılıyor dosyayı bitirince eklerim birazdan

teşekkür ederim hocam.

Rica ederim.

Deneyebilirsiniz aynı yöntem ile veri doğrulama ile yaptım.

Birde Vba kod ilede yaparım.

Buda Excel kodu ile yapıldı.Bence diğeri daha iyi.
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" '

yerine

sSql = "select * from [Sayfa1$B2:N] where [KOD] Is Not Null" '

olarak kısaca yazabilirsiniz.

Teşekkür ederim bu güzel oldu.