Soru Userform Veri İşleme

[leonadies]

Merhaba Üstadlar;

Userform ile işlem yapmaya çalışıyorum ancak başarı sağlayamadım. Userform aracılığı ile fiş numarasını yazarak denk gelen C sütunundaki satırına "TAMAM" yazdırmak, yine denk gelen D sütunundaki satırına da userfomdaki notu yazdırmak istiyorum.
Aynı şekilde ihityaç olması halinde de Userform aracılığı ile sadece fiş numarasını yazıp C ve D sütunlarındaki hücrelerini temizlemek istiyorum.

Mümkün müdür?

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub Ekle_Click()
    Dim c As Range
    Set c = [A:A].Find(TextBox1.Text, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Cells(c.Row, "C") = "Tamam"
        Cells(c.Row, "d") = TextBox2.Text
    Else
        MsgBox "Bulamadım."
    End If
End Sub

Private Sub BulSil_Click()
    Dim c As Range
    Set c = [A:A].Find(TextBox1.Text, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Cells(c.Row, "C") = ""
        Cells(c.Row, "d") = ""
    Else
        MsgBox "Bulamadım."
    End If
End Sub

 

[leonadies]

Ellerine Sağlık Ömer Hocam çok teşekkür ederim