Listboxtan textboxa veri aktarımı

[okan32]

exel programımda userform hazırladım. form üzerinde lisbox, textboxlar, kaydet,güncelle ve sil butonları var. verileri kaydediyorum ve form üzerinde listboxta verileri görebiliyorum fakat aşağıdaki kodlarla textboxa verileri getiremiyorum. textboxa verileri getirdikten sonra verileri silme ve güncelleme yapmak istiyorum.Yardımlarınız için şimdiden teşekkürler...

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "100;250"
ListBox1.RowSource = "BORDRO!B8:B" & Sheets("BORDRO").Range("A65536").End(xlUp).Row


UserForm1.Caption = "VERI IÇIN FORMU AÇ"

End Sub




Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False

Bulunan_Satir_No = ListBox1.ListIndex + 2
TextBox1.Text = Sheets("BORDRO").Range("B" & Bulunan_Satir_No).Value
TextBox2.Text = Sheets("BORDRO").Range("C" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("BORDRO").Range("D" & Bulunan_Satir_No).Value
ComboBox2.Text = Sheets("BORDRO").Range("E" & Bulunan_Satir_No).Value
TextBox5.Text = Sheets("BORDRO").Range("F" & Bulunan_Satir_No).Value
TextBox6.Text = Sheets("BORDRO").Range("G" & Bulunan_Satir_No).Value
TextBox7.Text = Sheets("BORDRO").Range("H" & Bulunan_Satir_No).Value


End Sub

 

[TanerSaydam]

Benzeri bir şeyi bende yapıyorum. Sorun

Bulunan_Satir_No = ListBox1.ListIndex + 2

Bu kodda. Ben bu kod yerine satırı buldurup onu sayfada kullanmadığım bir yere yazdırıyorum. Sonra ona göre işlemimi yaptırıp o satırı sildiriyorum. Kullandığım kodlar aşağıda.

Bu kodu ListBoxt Double Click içine yazıyorsun. Böylece silinecek satırın bulunması için gereken değerleri herhangi bir sayfaya aldırıyorum.

Sayfa1.Range("D1").Value = IadeGirisi.TextBox3.Text 'Fatura Numarası
Sayfa1.Range("E1").Value = IadeGirisi.ComboBox1.Text 'Firma ismi
Sayfa1.Range("F1").Value = IadeGirisi.TextBox4.Text 'GTIP No
Sayfa1.Range("D2").Value = IadeGirisi.TextBox6.Text 'Adet
Sayfa1.Range("E2").Value = IadeGirisi.TextBox10.Text 'GÇB Tarihi
Sayfa1.Range("F2").Value = IadeGirisi.TextBox11.Text 'GÇB Numarası

Bu da satırın For döngüsüyle bulunup, satır numarasının bir hücreye yazılması ve satırın silinmesi. Sonrasında değerleri yazdığım satırları sildiriyorum. Aynı mantıkla Değiştir kodu da oluşturdum. Excel dosyanı paylaşabilirsen üzerinde kodlayabilirim. Tüm kodlarımı yazamıyorum çünkü kodları kullandığım excel dosyamda sayfa adı belirsiz ve o yüzden kodlar kafanı karıştırır. Ama mantığı anladığını umuyorum.

c = "İhraç-2018-" & Sayfa1.Range("M2").Value & " VD"

son_g = Sheets(c).Range("C65652").End(3).Row
yer = 5
For say = 5 To son_g
If Sheets(c).Range("E" & yer).Value = Sayfa1.Range("D1").Value And _
Sheets(c).Range("F" & yer).Value = Sayfa1.Range("E1").Value And _
Sheets(c).Range("H" & yer).Value = Sayfa1.Range("F1").Value And _
Sheets(c).Range("I" & yer) = Sayfa1.Range("D2") And _
Sheets(c).Range("L" & yer) = Sayfa1.Range("E2") And _
Sheets(c).Range("M" & yer) = Sayfa1.Range("F2") Then GoTo dur
yer = yer + 1
Next
dur:
   
tpl1 = Sayfa1.Range("A1").Value 'İhracat Form Satırı

ListBox1.Value = ""

Sheets(c).Range("A" & yer).EntireRow.Delete

 

[askm]

Bulunan_Satir_No = ListBox1.ListIndex + 2
Sonununuz bu satırda. Verileriniz 3. satırdan başlamıyor ki.8. satırdan başlıyor.
Bulunan_Satir_No = ListBox1.ListIndex + 7 olması gerekli.

 

[okan32]

tşk ederim arkadaşlar çözüldü...