+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek. (/konu-a-sutununa-girilen-veriyi-d-sutununda-yoksa-ekleyecek.html)
A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek. - yenginoglu - 03/09/2024
Merhaba Hocalarım,
ekli örnekte yapmak istediğim A sütununa veri girilince D sütununda kontrol edecek yoksa ekleyecek.
Saygılarımla,
RE: A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek. - atoykan - 03/09/2024
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
RE: A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek. - yenginoglu - 05/09/2024
Merhaba Hocam,
Ellerinize sağlık, bence harika bir kod çok teşekkür ederim.
Saygılarımla,
RE: A Sütununa Girilen Veriyi D Sütununda Yoksa Ekleyecek. - atoykan - 05/09/2024
Rica ederim, iyi çalışmalar.