userform

[bursacem]

Sayın üstadlar; eklediğim dosyada combobox a ve texbox a yazdığım verilerin
dokuma verileri çalışma sayfasındaki ilgili yerlere kaydet denince eklemesini beceremedim. Ayrıca yeni kayıt ekle ve sil butonlarınıda devreye almak istiyorum.

 

[hamitcan]

Ben bir tanesini yaptım, diğerlerini örneğe bakarak yapabilirsiniz.

Private Sub CommandButton1_Click()
    With Sheets("dokumaverileri")
        s = .[a65536].End(3).Row + 1
            .Cells(s, "b") = TextBox4.Text 'Randıman
    End With
End Sub