listbox1 ve textbox ilişkisi

[suha]

Sayın arkadaşlar;
Ekte bulunan örnekte Listbox1'e gelen a sutunu bilgilerinden birine tıkladığım zaman textbox 1-2-3 b c d satırdaki bilgileri almak istedim ama olmadı. yardımcı olabilirseniz sevinirim.

Saygılar.

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
TextBox1.Text = ListBox1.Column(1)
TextBox2.Text = ListBox1.Column(2)
TextBox3.Text = ListBox1.Column(3)

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "ANA!A1:D" & Sheets("ANA").Cells(Rows.Count, "A").End(xlUp).Row

End Sub

 

[suha]

Değişiklik yapabilmek ve yazdırmak hk

Hocam öncelikle teşekkürler;

Bir ricam daha var. Seçtiğim tarih bilgileri textboxlara geldikten sonra textboxlar içerisinde değişiklik yaparak kaydetmek istiyorum ayrıca yazdır butonuna bastığım zaman seçili satır bilgilerini yazdır data sayfasında birinci satıra kopyalamasını istiyorum;
Bu konularda da yardımcı olabilirseniz sevinirim.
Saygılarımla..

 

[Orion1]

Hocam öncelikle teşekkürler;

Bir ricam daha var. Seçtiğim tarih bilgileri textboxlara geldikten sonra textboxlar içerisinde değişiklik yaparak kaydetmek istiyorum ayrıca yazdır butonuna bastığım zaman seçili satır bilgilerini yazdır data sayfasında birinci satıra kopyalamasını istiyorum;
Bu konularda da yardımcı olabilirseniz sevinirim.
Saygılarımla..

Dosyanız ektedir.