UserForm

[msanli]

Selam,
Userform üzerinde bulunan combobox ve textbox'lardan excelde bulunan listeye veri aktarmak, bir sonraki kayıtta aktardığım veriler aynı ise otomotik olarak gelmesini istiyorum. Forumdaki konu başkıllarına baltım ama, eski veriler silidiği için verilere ulaşamadım. Bana bir örnek veya bu konulara ulaşabileceğim bir kaynak verebilirmisiniz?

Teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim sat, son As Integer
For sat = 2 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") = ComboBox1 Then
ComboBox1 = Cells(sat, "a")
TextBox1 = Cells(sat, "b")
MsgBox "Mükerrer kayıt", vbInformation
Exit Sub: End If: Next
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = ComboBox1
Cells(son, "b") = TextBox1
ComboBox1 = "": TextBox1 = ""
End Sub