Merhaba, çok sık ihtiyaç duyulabilecek bir başka kod da karmaşık listeleriniz istediğiniz sütununa dinamik olarak veri basmadır. Toplantı sırasında tüm tablonuzu aramak yerine sadece benzersiz bir kriter belirtilerek eşleşen kayda istediğiniz veriyi basabilirsiniz.
Yukarıdakine benzer bir tablomuz olduğunu düşünelim ve zaman zaman sonuç kısmının güncellendiğini.
Ben bu örnek için yukarıdaki basit düzeneği kurdum. Güncelle butonuna ise aşağıdaki makroyu atıyoruz.
Sub Düğme1_Tıkla()
Dim numara As Long, sonuc As String, satir As Long
numara = Sayfa2.Range("A2").Value
sonuc = Sayfa2.Range("B2").Value
bulunanSatir = Application.WorksheetFunction.Match(numara, Sayfa1.Range("A1", Sayfa1.Range("A" & Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row)), False)
Sayfa1.Cells(bulunanSatir, 4).Value = sonuc
End Sub
Bu sayede yukarıdaki gibi başka sayfadan dinamik olarak veri basabilirsiniz.
İyi çalışmalar.
BATUHAN KAMIŞ 