Hücreye çift tıklandığında listbox açılsın

  • Konuyu başlatan Konuyu başlatan sincap
  • Başlangıç tarihi Başlangıç tarihi

sincap

Kullanıcı
Katılım
27 Mar 2022
Mesajlar
183
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
ListBox nerede açılacak?

[REPLY]
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
[/REPLY]
Üstteki kodlar gibi bir şey ile ilerleyebilirsiniz.
Column = 15 15. sütunu ifade eder.
MsgBox kısmına da istediğiniz kodları yazarsınız.
Kodları sayfanın VB Ekranına yapıştıracaksınız.
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
ListBox nerede açılacak?

*** Hidden text: cannot be quoted. ***

Üstteki kodlar gibi bir şey ile ilerleyebilirsiniz.
Column = 15 15. sütunu ifade eder.
MsgBox kısmına da istediğiniz kodları yazarsınız.
Kodları sayfanın VB Ekranına yapıştıracaksınız.
Genişletmek için tıklayın ...
Hocam,

Listbox Liste sayfasında hücreye tıklandığında eklediğim tasarıma benzer bir form açılacak ve yine veri doğrulama gibi listede seçim yapılabilecek desteğinizi rica ederim.

saygılar,
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Form üzerinde seçim yapacaksanız, neden veri doğrulamaya ihtiyaç duymaktasınız?
Bir de eklediğiniz dosyada hem sayfa üzerinde ListBox var hem UserForm'da...
Hangisini kullanmayı düşünüyorsunuz?
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
Form üzerinde seçim yapacaksanız, neden veri doğrulamaya ihtiyaç duymaktasınız?
Bir de eklediğiniz dosyada hem sayfa üzerinde ListBox var hem UserForm'da...
Hangisini kullanmayı düşünüyorsunuz?
Genişletmek için tıklayın ...
Hocam,

hiç bilmediğim bir konu olduğu için veri doğrulamadaki gibi seçenekli olması ve yine sadece tasarım örneği olsun diye listbox kutusunu ekledim.

sayfadakilerden bağımsız olarak istediğim şey
Hücreye çift tıklandığında tasarım örneğindeki benzer bir listbox açılsın üst kısma arama yapılsın ortaya ekle butonu ve altta veriler yer alsın. Veriler çok olacağı için arama kutusu gerekiyor.
Veileri de O sütunu için Özellikler sayfası A sütunundan alsın vs... şeklinde olsun

saygılar,
 
Oyla 0 Olumsuz oyla
Sayfa üzerine bir ListBox nesnesi eklenecek senaryosu ile:

Önce Şerit Menü -> Geliştirici -> Ekle -> ActiveX Denetimleri kısmından bir ListBox ekleyin.
Daha sonra sayfanın VB ekranına aşağıdaki kodları yazın.

1622242793976.webp


Her tıkladığınız sütuna göre ilgili verileri ListBox'ta listelenecektir.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Not: Prensip olarak sadece sitemize destek vermek amacıyla VIP Üyelik almış kullanıcıların çözümlerinde dosya eklemekteyim.
Diğer türlü sadece kod ya da formülleri vermekteyim, uyarlaması size kalmış.

Hayırlı geceler.
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
Sayfa üzerine bir ListBox nesnesi eklenecek senaryosu ile:

Önce Şerit Menü -> Geliştirici -> Ekle -> ActiveX Denetimleri kısmından bir ListBox ekleyin.
Daha sonra sayfanın VB ekranına aşağıdaki kodları yazın.

1622242793976.webp

Her tıkladığınız sütuna göre ilgili verileri ListBox'ta listelenecektir.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Not: Prensip olarak sadece sitemize destek vermek amacıyla VIP Üyelik almış kullanıcıların çözümlerinde dosya eklemekteyim.
Diğer türlü sadece kod ya da formülleri vermekteyim, uyarlaması size kalmış.

Hayırlı geceler.
Genişletmek için tıklayın ...
Hocam dosya ekleme olayına saygı duyarım sorun değil kod olsa yeter ama ben ifade edemedim sanırım.

Hücreye çift tıklandığında tasarım örneğindeki benzer bir listbox açılsın listebox kutusu sayfada olmayacak tıklandığında açılacak
Çift tıklandığında verileri dolduruyor elinize sağlık ama verileri "Özellikler" sayfasından almasını rica etmiştim.
ve Ara kutusu + Ekle butonu ile tıklanan hücreye eklenmesi.
Sanırım sizin için biraz yorucu olacak gibi başka arkadaşlar baksın isterseniz.,

saygılar,
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Kodlarınızı siliniz..
Liste sayfasının doubleclick olayına şunu yazınız:

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)

Userform' un kodlarınada sadece bunları yazınız:

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(14 satır)
 
Oyla 0 Olumsuz oyla
Selman' Alıntı:
Kodlarınızı siliniz..
Liste sayfasının doubleclick olayına şunu yazınız:

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)

Userform' un kodlarınada sadece bunları yazınız:

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(14 satır)
Genişletmek için tıklayın ...
Hocam,

Çok teşekkür ederim ellerinize sağlık Allah razı olsun. Son olarak arama kutusuna yazdığım değeri listebox içerisinde bulan ekle dediğim ekleyecek bir kod var mı?

tekrar çok teşekkür ederim.


1622284018935.webp
 
Oyla 0 Olumsuz oyla
"...listbox içinde bulan ve ekle dediğimde ekleyecek" dediğiniz
Arama kutusuna birşeyler yazdığınızda aşağıdaki lsteyi yazdığınız değere göre filtre mi edecek ve ekle dersenizde listeye ekleyecek, listeye eklemek demek aslında "Özellikler" sayfasına eklemek demek değil mi? Öyleyse yukarda kullandığımız listbox.rowsource özelliğini kullanamayız. siz dosyanızın son halini ekleyin.. onun üzerinden birşeyler deneyelim.
 
Oyla 0 Olumsuz oyla
Selman' Alıntı:
"...listbox içinde bulan ve ekle dediğimde ekleyecek" dediğiniz
Arama kutusuna birşeyler yazdığınızda aşağıdaki lsteyi yazdığınız değere göre filtre mi edecek ve ekle dersenizde listeye ekleyecek, listeye eklemek demek aslında "Özellikler" sayfasına eklemek demek değil mi? Öyleyse yukarda kullandığımız listbox.rowsource özelliğini kullanamayız. siz dosyanızın son halini ekleyin.. onun üzerinden birşeyler deneyelim.
Genişletmek için tıklayın ...
Hocam,

Liste sayfasındaki hücreyi seçtiğimde Listbox açılıyor ya o hücreye Listbox veriyi seçip ekle butonuna bastığımda eklemek istiyorum.
Liste uzun olduğu için Listboxtaki arama kutusuna veri adını yazdığımda veriyi göstermesini ve yine veriyi seçip ekle butonuna bastığımda eklemek istiyorum mümkünse.

teşekkürler.
 
Oyla 0 Olumsuz oyla
Listbox içinde arama yapma ve seçilin değerin hücreye aktarılmasıyla ilgili güzel bir örnek oldu bence.
Formu açmak için Liste sayfasındaki O - P - Q - R hücrelerinden birine çift tıklıyorsunuz. Form açılıp yapılan seçimle ilgili tüm veriyi listboxa yüklüyor. Arama kutusuna yazdıkça listboxda sadece eşleşen ürünleri gösteriyor. Listbox dan ürün seçip ekle buttonuna tıklayarak yada listboxa çift tıklandığında veriyi hücreye aktarılıyor.
Userformun kodu:

CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(31 satır)

Liste sayfasının kodu aynı şekilde devam:
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(8 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Selman' Alıntı:
Listbox içinde arama yapma ve seçilin değerin hücreye aktarılmasıyla ilgili güzel bir örnek oldu bence.
Formu açmak için Liste sayfasındaki O - P - Q - R hücrelerinden birine çift tıklıyorsunuz. Form açılıp yapılan seçimle ilgili tüm veriyi listboxa yüklüyor. Arama kutusuna yazdıkça listboxda sadece eşleşen ürünleri gösteriyor. Listbox dan ürün seçip ekle buttonuna tıklayarak yada listboxa çift tıklandığında veriyi hücreye aktarılıyor.
Userformun kodu:

CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(31 satır)

Liste sayfasının kodu aynı şekilde devam:
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(8 satır)
Genişletmek için tıklayın ...
Hocam,

elinize sağlık Allah razı olsun çok güzel muhteşem oluş. Özellikler sayfası B ve C sütunlarındaki bazı veriler yüzünden Debug hatası veriyor If Evaluate("=LOWER(""" & s1.Cells(i, c).Value & """)") Like ara Then i işaretliyor bu hata için LOVER ı mı kaldırmam gerekiyor

saygılar,
 
Oyla 0 Olumsuz oyla
Tüm aramalarda mı problem oluyor, bazen mi oluyor? Bazen oluyorsa hangisinde oluyor? Evaluate fonksiyonunu Türkçe karakterleri doğru eşleştirmek için kullanmıştım. Daha basit yapılabilir ama bu sefer textbox a "ıst" yazdığızda "Istakoz" ile eşleştirmek problem olabilir. "ist" yazdığınızda eşleşir.
 
Oyla 0 Olumsuz oyla
Selman' Alıntı:
Tüm aramalarda mı problem oluyor, bazen mi oluyor? Bazen oluyorsa hangisinde oluyor? Evaluate fonksiyonunu Türkçe karakterleri doğru eşleştirmek için kullanmıştım. Daha basit yapılabilir ama bu sefer textbox a "ıst" yazdığızda "Istakoz" ile eşleştirmek problem olabilir. "ist" yazdığınızda eşleşir.
Genişletmek için tıklayın ...
Hocam,

Dosyanın orjinal halinde daha iyi anlaşılır diye düşündüm.

saygılar.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Sn. Sincap, problem çift tırnak ( " ) işareti içeren hücrelerden kaynaklanıyor. 3" (inç) gibi kullanılmış. Ctrl+h e basıp çift tırnak ( " ) işaretini iki tane tek tırnak ( ' ) olarak değiştirseniz problem çözülür. Tabi arama yaptırırkende kutucuğa çift tırnak yerine 2 kez tek tırnak yazmalısınız.
 
Oyla 0 Olumsuz oyla
Selman' Alıntı:
Sn. Sincap, problem çift tırnak ( " ) işareti içeren hücrelerden kaynaklanıyor. 3" (inç) gibi kullanılmış. Ctrl+h e basıp çift tırnak ( " ) işaretini iki tane tek tırnak ( ' ) olarak değiştirseniz problem çözülür. Tabi arama yaptırırkende kutucuğa çift tırnak yerine 2 kez tek tırnak yazmalısınız.
Genişletmek için tıklayın ...
Çok teşekkür ederim saygılarımla,

Konu kapanmıştır.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt