Userform listbox seçili olan textbox aktar değiştirme

[netvolxxx]

Merhaba arkadaşlar çalışma sayfamda a3:c12 arasında ki verilerim var
a3 de adet b3 ürün adları c3 de fiyatlarvar

userform açılınca listbox veriler geliyor listbox seçili olan textbox2 ye geliyor bunu değiştirip kaydetmek istiyorum.gelen veri hangi satırda hücrede ise aynı yere kayıt yapması.

kullandığım kodlar şöyle

CommandButton4_Click()bu alana yazıcağım kodlarla ilgili yardımınıza ihtiaycım var..


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

Private Sub UserForm_Initialize()
On Local Error Resume Next
ListBox1.RowSource = "etiket!a3:c12" 'lisbox'ta gösterilecek hücre aralığı
ListBox1.ColumnCount = 3 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = "1cm;10cm;4cm;"
ListBox1.ColumnHeads = True
End Sub

Private Sub CommandButton4_Click()

End Sub

 

[tamer42]

Merhaba arkadaşlar çalışma sayfamda a3:c12 arasında ki verilerim var
a3 de adet b3 ürün adları c3 de fiyatlarvar

userform açılınca listbox veriler geliyor listbox seçili olan textbox2 ye geliyor bunu değiştirip kaydetmek istiyorum.gelen veri hangi satırda hücrede ise aynı yere kayıt yapması.

kullandığım kodlar şöyle

CommandButton4_Click()bu alana yazıcağım kodlarla ilgili yardımınıza ihtiaycım var..


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

Private Sub UserForm_Initialize()
On Local Error Resume Next
ListBox1.RowSource = "etiket!a3:c12" 'lisbox'ta gösterilecek hücre aralığı
ListBox1.ColumnCount = 3 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = "1cm;10cm;4cm;"
ListBox1.ColumnHeads = True
End Sub

Private Sub CommandButton4_Click()

End Sub

Sadece Adet' i değiştirmek istiyorsanız, Userform' a bir label ekleyin

aşağıdaki kodları uygulayınız...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Label1.Caption = ListBox1.ListIndex
    TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

Private Sub CommandButton4_Click()
Dim satir As Integer

    If Me.Label1 = "" Then Exit Sub
    If Me.TextBox2 = "" Then Exit Sub
    
    satir = Me.Label1.Caption
    
    ThisWorkbook.Sheets("etiket").Cells(satir + 3, 1).Value = Me.TextBox2.Value
 
End Sub