Textbox'a yazılan değeri şarta göre kayıt etmek

[tamer060]

Merhabalar 2 ayrı excel sayfam var userform üzerindeki bilgileri sayfanın birine kayıt yapıyor yalnız ben diğer sayfada da şarta göre kayıt yapmasını istiyorum diyelim a sütunundaki hücrelerde A1,A2,A3 var textbox1'e A1 yazdığımda texttboxt2'ye 15.02.2010 yazdığımda sayfada A1 yazdığım değeri bulsun ve yazdığım tarihi karşındaki satıra d sütünuna yapıştırsın. basit bir örnek kod ile yardımcı olabilirmisiniz? Saygılarımla

 

[Necdet]

Merhaba,

Sorunuzu anlamak oldukça zor, örnek dosyayı inceleyiniz gerekirse kendinize göre uyarlayınız.

Private Sub CommandButton1_Click()
Dim c   As Range
Dim SonSat  As Long
Sheets("A").Select
    Set c = Range("A:A").Find(TextBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        Cells(c.Row, "D") = CDate(TextBox2.Value)
    Else
        Evet = MsgBox("Aranan Değer Bulunamadı, Sona Ekleyim mi?", vbYesNo)
        SonSat = [A65536].End(3).Row + 1
        If Evet = vbYes Then
            Cells(SonSat, "A") = TextBox1.Value
            Cells(SonSat, "D") = CDate(TextBox2.Value)
        End If
    End If
End Sub

 

[tamer060]

Sayın hocam ilginize ve emeğinize teşekkürler, Soru şekline gelince haklısınız hocam yorgunluktan kafam bulanmış gevvelemişim ama kod tam istediğim gibi olmuş emeğinize sağlık çok işime yarıyacak.