Çift tıklama ile diğer sayfadan userforma bilgi çağırma

[irfancantr]

Hayırlı akşamlar,

Ekli dosyamda sayfa 2 de bulunan referans değerlerine çift tıklama yaptığımda, liste sayfasından çift tıklanan referansın karşılığında yazılmış olan açıklama bilgilerini sayfa2 olmak koşulu ile userformun açılması ve userformda bulunan listbox - textbox artık ne olursa bilgilerin gelmesi hakkında yardımcı olursanız çok memnun kalıcam.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim k As Range, sat As Long
On Error Resume Next
If Intersect(Target, Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row)) Is Nothing Then Exit Sub
sat = Sheets("liste").Cells(Rows.Count, "B").End(xlUp).Row
Set k = Sheets("liste").Range("B2:B" & sat).Find(Target.Value, , xlValues, xlWhole)
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
If Not k Is Nothing Then UserForm1.TextBox1.Text = k.Offset(0, 1).Value
If Not k Is Nothing Then UserForm1.TextBox2.Text = k.Offset(0, 2).Value
UserForm1.Show
End Sub

 

[irfancantr]

Dosyanız ektedir.

Evren hocam emeğine sağlık hayırlı akşamlar diliyorum.

 

[irfancantr]

Hocam bu textboxları listbox'a çevirme imkanımız var mı? Uzun bilgi girişi olduğunda textboxlar da kaydırma çubuğundan mahrum kalıyorum. Listboxta deneme yaptım fakat bu sefer bilgi gelmedi. Textboxları listbox olarak değiştirerek denedim.

 

[irfancantr]

Hocam bu textboxları listbox'a çevirme imkanımız var mı? Uzun bilgi girişi olduğunda textboxlar da kaydırma çubuğundan mahrum kalıyorum. Listboxta deneme yaptım fakat bu sefer bilgi gelmedi. Textboxları listbox olarak değiştirerek denedim.

Tamamdır hocam scrollbars özelliğinden faydalanarak sorunu çözdüm. Tekrardan teşekkürler.