Giriş yapılan veriyi güncellemek

[trmusic]

Merhaba;

EK'te örneğini göndermiş olduğuma benzer bir çalışmam mevcut. "Sorgu" sekmesi ve "Giriş" sekmesi ile işlem yapılıyor.

Sorgu sekmesinde Ad veya Soyada göre sorgu yapıldığı zaman önceden veri girilmiş olan "Giriş" sekmesinden verileri alıyor ancak daha sonradan güncellenmesi gereken "Çıkış Tarihi" ve "Personel" yazılı sütunlardaki bilgiyi gene "Giriş" sekmesinden düzeltmek gerekiyor. Giriş sayısı fazlalaşınca sorgulanan veriyi bulmak güç olabiliyor. Bunun için "Kaydet" isimli hazırladığım butonu "Sorgu" sekmesinde "Çıkış Tarihi" ve "Personel" sütunlarına veri girildiği zaman "Giriş" sekmesinde ilgili satıra güncellemesini istiyorum. Hangi satırın değiştirileceğini seçmemiz gerekiyor ise "Sıra No" yazılı sütundaki verilerden faydalanabiliriz. Şimdiden yardımlarınız için çok teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Kaydet()
    
    Dim Sg As Worksheet, i As Long, c As Range, Adr As String
    
    Set Sg = Sheets("Giriş")
    
    For i = 5 To Cells(Rows.Count, "C").End(xlUp).Row
        With Sg.Range("B:B")
            Set c = .Find(Cells(i, "C"), LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    If Cells(i, "L") <> "" Then
                        Sg.Cells(c.Row, "R") = Cells(i, "L")
                    End If
                    If Cells(i, "M") <> "" Then
                        Sg.Cells(c.Row, "S") = Cells(i, "M")
                    End If
                        
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
    
End Sub

.

 

[trmusic]

Ellerinize sağlık süper olmuş. Çok teşekkür ederim.