Skip to main content

AccessTr.neT


A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek.

A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek.

Çözüldü #1
Merhaba Hocalarım,

ekli örnekte yapmak istediğim A sütununa veri girilince D sütununda kontrol edecek yoksa ekleyecek.

Saygılarımla,
.rar Kitap1.rar (Dosya Boyutu: 7,08 KB | İndirme Sayısı: 6)
Ahmet Yenginoğlu
Cevapla
#2
Merhaba Sayın @yenginoglu

Excelde çalışma sayfanızın değiştiğinde olayına (Worksheet_Change)
    Dim StrInputValue As String, Rng As Range, LastRow As Long
        If Not Intersect(Target, Me.Columns("A")) Is Nothing Then    'Sadece A sütunundaki hücreler için işlem yap
        StrInputValue = Target.Value    'Değiştirilen hücre değerini al
            If StrInputValue <> "" Then    'Eğer hücrede veri yoksa işlem yapma
                Set Rng = Me.Range("A:A").Find(What:=StrInputValue, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)    'A sütununda bu değeri bul
                If Rng Is Nothing Or Rng.Address = Target.Address Then    'Eğer veri A sütununda yoksa veya sadece girilen hücrede varsa
                    LastRow = Me.Cells(Me.Rows.Count, "D").End(xlUp).Row    'D sütunundaki son dolu hücreyi bul
                    If LastRow < 4 Then LastRow = 4    'D4'ten önceki boş hücreleri ihmal et
                    Me.Cells(LastRow + 1, "D").Value = StrInputValue    'Değeri D4'ten sonra sütunda ilk boş hücreye ekle
                End If
            End If
        End If
şeklinde gireceğiniz kod, A sütununda girilen hücre boş ise veya girilen değer mükerrer kayıt ise ve dolayısı ile D sütununda da olacağından işlem yapmadan devam edip, şayet A sütununda girilen yeni veri ise D'de olup olmadığını kontrol edecek ve yoksa D4'ten sonraki ilk boş hücreye ekleyecektir.
Cevapla
#3
Merhaba Hocam,

Ellerinize sağlık, bence harika bir kod çok teşekkür ederim.

Saygılarımla,
Ahmet Yenginoğlu
Cevapla
#4
Rica ederim, iyi çalışmalar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da