AccessTr.neT

Bul · 05/02/2020, 22:57

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

Bul · 05/02/2020, 22:59

teşekkür ederim hocam.

Bul · 05/02/2020, 23:36

Rica ederim.

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

Birde Vba kod ilede yaparım.

Bul · 05/02/2020, 23:57

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

Bul · 06/02/2020, 00:04

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.

Bul · 06/02/2020, 00:17

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

AccessTr.neT

Excelden Veri Alma Ve Kaydı Güncelleme

Excelden Veri Alma Ve Kaydı Güncelleme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri