Hücreye çift tıklayınca UserForm üzerindeki listbox lardan veri alma

[frksfu]

BİR ADET USER FORMUM VAR VE ÜZERİNDE İKİ ADET LİSTBOX MEVCUT
SAYFA 2 de İSE İKİ SUTUN LİSTE MEVCUT.

1 - SAYFA 1 DE D1 HÜCRESİNE ÇİFT TIKLAYINCA USER FORM1 AÇILSIN VE LİSTBOX 1 İÇİNDEKİ BİLGİ ÇİFT TIKLANINCA D1 HÜCRESİNE GELSİN

2 - SAYFA 1 DE E1 HÜCRESİNE ÇİFT TIKLAYINCA USER FORM1 AÇILSIN VE LİSTBOX 2 İÇİNDEKİ BİLGİ ÇİFT TIKLANINCA E1 HÜCRESİNE GELSİN

LİSTBOXLARA ÇİFT TIKLANINCA USERFORM KAPANSIN

YARDIMLARINIZ İÇİN ŞİMDİDEN ÇOK TEŞEKKÜR EDERİM

 

[BG]

BİR ADET USER FORMUM VAR VE ÜZERİNDE İKİ ADET LİSTBOX MEVCUT
SAYFA 2 de İSE İKİ SUTUN LİSTE MEVCUT.

1 - SAYFA 1 DE D1 HÜCRESİNE ÇİFT TIKLAYINCA USER FORM1 AÇILSIN VE LİSTBOX 1 İÇİNDEKİ BİLGİ ÇİFT TIKLANINCA D1 HÜCRESİNE GELSİN

2 - SAYFA 1 DE E1 HÜCRESİNE ÇİFT TIKLAYINCA USER FORM1 AÇILSIN VE LİSTBOX 2 İÇİNDEKİ BİLGİ ÇİFT TIKLANINCA E1 HÜCRESİNE GELSİN

LİSTBOXLARA ÇİFT TIKLANINCA USERFORM KAPANSIN

YARDIMLARINIZ İÇİN ŞİMDİDEN ÇOK TEŞEKKÜR EDERİM

1- d1 hücresine çift tıklanınca userform1. açılır problem yok listbox1 içindeki bilgi çift tıklanıncada d1 hücresine gider problem yok

2- e1 hücresinde çift tıklanınca userform1. açılır problem yok, listbox2 ye çift tıklanınca içinde bulunan bilgi e1 hücresine gider problem yok

3- peki listboxlara çift tıklanınca kapansın demişsiniz bu nasıl olacak? (1. ve 2. adımları kontol edermisiniz) eğer amacınız 1 ve 2. adımlarda olduğu gibi bilgiyi alsın istenilen hücreye getirsin ve kapansın ise yine problem yok? aksini anlayamadım.

4- sayfa 2 de iki sütun mevcut yazmışsınız bu iki liste iki listboxın değerlerini mi oluşturacak?

 

[frksfu]

Sn Brain amacım 1 ve 2. adımlarda olduğu gibi bilgiyi alsın istenilen hücreye getirsin ve kapansın istiyorum.

Sayfa ikideki ikisütun veriden A sütunundaki veri listbox1 de B sütunundaki veri
listbox2 de gözükecek

örnek dosya ekde

 

[BG]

merhaba

sadece d1 hücresine çift tıklayınca userform açılıyor e1 e çift tıklayınca userform açılmıyor çünkü akşam akşam beynim durmuş vaziyette ama geri kalan işlemler gerçekleşiyor. dosyanız ektedir.

iyi çalışmalar dilerim.

 

[frksfu]

Sn brain ekteki dosyada bazı kodlar yazdım ancak ikinci listboxa veriyi aldıramadım ve e2 hücresine getirip deniyemedim. İki ayrı UserForm da yapsam
d1 hücresi oluyor e1 hücresini başaramadım

 

[BG]

4. mesajımda bunu sağladım, galiba siz bende önce davrandınız soruyu sormak için

 

[frksfu]

dosyamı aşağıdaki şekilde çalışıyor ancak If döngüsünden hangisini üste yazarsam o çalışıyor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, [e1:e1]) Is Nothing Then Exit Sub
UserForm2.ListBox1.RowSource = "Sayfa2!B1:B" & Sheets("Sayfa2").Cells(65536, "B").End(xlUp).Row
UserForm2.Show

If Intersect(Target, [d1:d1]) Is Nothing Then Exit Sub
UserForm1.ListBox1.RowSource = "Sayfa2!A1:A" & Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
UserForm1.Show

End Sub

 

[frksfu]

dosyamın yapabildiğim son hali ekte lütfen bana yardım iki user formuda tek tek d1 userform1 i açıp listbox1 i , e1 userform2 yi açıp listbox2 yi açsın ve listboxlarda veriyi nasıl görücem . Dosyanın ilginçbir tarafı hücre tek tıklamayla formu açıyor ancak hücre seçili iken tekrar tıklayıp açamıyorsunuz. başka bir hücreyi seçip sonra d1 veya e1 hücresini tıklarsanız açılıyor

 

[frksfu]

Değerli dostlar sorunumu deneme yanılma metodu ile çözdüm gibi ancak ekli dosyayı incelerseniz çözüm şeklini göreceksiniz. Ancak burada olan şey hücrenin birine örneğin (D1) çift tıklayınca userform açılıyor fakat veri listboxun içine tek tıklama ile hücreye geliyordiğeri ise (E1) tek tıklayınca userform açılıyor fakat veri listboxun içine çift tıklama ile hücreye geliyor. Dosya ektedir sorun sayılır çözümü bilen yadabulan yazsın herkese çok teşekkürler

 

[Orion1]

Dosyanız ekte.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. Bir adet UserForm kullanılarak hazırlanmıştır. Çift tıklama ile formu açıp ve yine çift tıklama ile hücrelere verileri alabilirsiniz.

 

[frksfu]

Sayın Evren Gizlen ve Korhan Ayhan İkinizede çok teşekkür edrim ikiside işimi gördüler tam istediğim gibi sağ olun var olun iyiki varsınız

 

[iaiam]

saol işe yaradı