listbox çoklu seçim textbox yaz aktarma

[netvolxxx]

merhaba kullanmakta olduğum formda şöyle bir ihtiyacım var kod tarafında nasıl yapıcam bulamadım

userform açılınca sayfadaki veriler listbox geliyor çoklu seçim yapıyorum ve textbox yazdığım seçmiş olduklarım sayfa da belirli yerlere yazsın istiyorum

çalışma dosyasında sarı alanlar yazsın istiyorum

Private Sub CommandButton1_Click()
On Local Error Resume Next
Dim urunAdi As String
Dim urunSatir As Long
If ListBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ListBox1.Value
urunSatir = ListBox1.List(ListBox1.ListIndex, 1)
ThisWorkbook.Sheets("Sayfa1").Cells(urunSatir + 4, "c").Value = TextBox1.Value
TextBox1 = ""
MsgBox "Kaydedildi.", vbInformation
End Sub

Private Sub UserForm_Initialize()
On Local Error Resume Next
Dim i As Long
For i = 28 To 477 Step 5
If Not ThisWorkbook.Sheets("Sayfa1").Rows(i).Hidden Then
If ThisWorkbook.Sheets("Sayfa1").Cells(i, "C").Value <> "" Then
ListBox1.AddItem ThisWorkbook.Sheets("Sayfa1").Cells(i, "c").Value
ListBox1.List(ListBox1.ListCount - 1, 1) = i
ListBox1.ListStyle = 1
ListBox1.MultiSelect = 1

End If
End If
Next i
End Sub

 

[rasimeskil]

özelden yazdım dönüş yaparsan detaylı yardımcı olayım

 

[netvolxxx]

özelden yazdım dönüş yaparsan detaylı yardımcı olayım

merhaba ustad konu hakkında yardımlarınızı sayfa üzerinden bekliyorum.....

 

[rasimeskil]

Private Sub CommandButton1_Click()
Dim i As Long
Dim urunSatir As Long
Dim urunAdi As String
Dim kaydedilenAdet As Integer
kaydedilenAdet = 0

' Hiçbir öğe seçilmemişse uyarı mesajı ver
If ListBox1.ListIndex = -1 Then
MsgBox "Lütfen en az bir ürün seçiniz.", vbExclamation
Exit Sub
End If

' Seçilen her bir ürün için işlem yap
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
urunAdi = ListBox1.List(i) '
urunSatir = CLng(ListBox1.List(i, 1)) '


ThisWorkbook.Sheets("Sayfa1").Cells(urunSatir + 4, "C").Value = TextBox1.Value
kaydedilenAdet = kaydedilenAdet + 1
End If
Next i

'
TextBox1.Value = ""
MsgBox kaydedilenAdet & " ürün açıklaması kaydedildi.", vbInformation
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
ListBox1.Clear '

'
For i = 28 To 477 Step 5
If Not ThisWorkbook.Sheets("Sayfa1").Rows(i).Hidden Then
If ThisWorkbook.Sheets("Sayfa1").Cells(i, "C").Value <> "" Then
ListBox1.AddItem ThisWorkbook.Sheets("Sayfa1").Cells(i, "C").Value '
ListBox1.List(ListBox1.ListCount - 1, 1) = i '
End If
End If
Next i

' ListBox özelliklerini ayarla
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti '
End Sub