TEXTBOX'DA YAZANI ARA BUL YAPIŞTIR

[cocoa35]

Merhaba Üstatlar, Bir konuda yardımınıza ihyiyacım var, Ekli örnek dosyada görüldüğü üzere program tarafından Ad ve Soyad 'a göre oluşturulmuş sayfalar var birde UserForm1 Cari hareket formu var. Benim istediğim TextBox4'de Yazılan isme göre sayfayı bulsun vede "Sonsatır" formülü ile son satıra TextBox'larda yazılanı aktarsın bu konuda yardım edermisiniz ben bazı bendeki formüller ile denedim ancak başarılı olamadım

 

[cocoa35]

Forumda bulduğum formüllerden biri işlem yapıyor ancak bulunamadı diye mesaj veriyor! ufak bir dokunuşunuza ihtiyacım var üstatlar

 

[AdemCan]

Kaydet işlemi için kodlar.

Private Sub CommandButton16_Click()

Dim s As Worksheet, sonsatir As Long

    For Each s In Worksheets
        If s.Name = TextBox4 Then GoTo cikis
    Next
        MsgBox "Cari Kart Yok", , ""
        Exit Sub
cikis:

    With s
        sonsatir = .Cells(Rows.Count, "B").End(3).Row + 1
                .Cells(sonsatir, "A").Value = TextBox2.Value
                .Cells(sonsatir, "B").Value = ComboBox1.Value
                .Cells(sonsatir, "C").Value = TextBox3.Value
                .Cells(sonsatir, "E").Value = TextBox1.Value
                .Cells(sonsatir, "F").Value = TextBox5.Value
    End With
End Sub

 

[cocoa35]

Adem bey çok teşekkürler