Seçilen kitabı, kitap listesinden bulma ve ilgili satıra veri yazma

[kmlpyrz]

Sınıf kitaplık programı yaparken karşılaştığım bir sorun var. Örnek olarak hazırladığım ekteki dosyada da açıkladığım şekilde, seçtiğim kitap isminin, VBA ile kitap listesinden bulunmasını ve o kitabın okunma sayısının da ilgili satırdaki hücreye yazdırılmasını yapamadım. Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub CommandButton1_Click()
Dim Bul As Range
Set Bul = Range("C:C").Find([G3], LookIn:=xlValues)
If Not Bul Is Nothing Then
    Range("D" & Bul.Row) = Range("D" & Bul.Row) + 1
End If
End Sub

Private Sub CommandButton2_Click()
Dim Bul As Range
Set Bul = Range("C:C").Find([G3], LookIn:=xlValues)
If Not Bul Is Nothing Then
    Range("E" & Bul.Row) = "Kitaplıkta"
End If
End Sub