• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Aranan veriyi listboxta başlıkla getirmek

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

himmgarip

Excel Dostu
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
96
Aldığı beğeni
883
Excel V
Office 2016 TR
Konu Sahibi
Merhaba,

Aşağıdaki kod ile userformda textbox üzerinden arama yapıp listboxa listeletiyorum. Burada istediğim arama yaptığımda columnheads özelliğini de getirmek. Sadece aranan veri satırları görünüyor. Örneğin Müşteri Adı başlığının altında Ahmet yazıyor. Arama yapınca sadece Ahmet verisi geliyor ve Müşteri Adı başlığı kayboluyor.

BASLIKLI.png

BASLIKSIZ.png

Aşağıdaki koddaki "ListBox1.ColumnHeads = False" bölümünü "True" yaptığımda başlık bölümü boş olarak geliyor.
ASDASDASD.png

Burada aklıma gelen aranan veriyi sayfaya aldırmak ve oradan listeye çekmek. Ya da daha kolay bir yöntemi varsa yardımlarınızı rica ediyorum. Saygılar.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Refaz
Gibi mesela olabilir ama preseve kullandığınız için application.transpose(Liste) olarakta deneyebilirsiniz.
Kodları kafadan yazdığımiçin hata olabilir ama mantık böyle olmalı bildiğim.

Sheets("Kayıtlarekranı").range("a2").resize(say,ubound(Liste,2).value = Liste
Tarihe göre sırala Oylara göre sırala
En iyi yöntem listbox başlıklarını labellerle oluşturmaktır. RowSource ile de alırken başlık satırlarını hariç tutarsınız.
 
Olumlu oy 0 Negatif oyla
Koddaki Liste ile çıkan sonucu sayfaya aktarın.Tabii aktarılacak sayfadaki verier silinecek yada ayarlanacak.
Sonra rowsource ile istboxa ordan çekebilirsiniz.
Böyle istediğinizi düşünüyorum.
 
Olumlu oy 0 Negatif oyla
Birde rowsourceile alınca mesela ilk satırda başlıklar varsa ve sayfaya aktarınca başlıktan başka veri yoksa emin değilim ama ilk satırdan yada ikinci satırdan başlanaca if koşullarıyla.
Rowsource olmadan yapılacaksa veyselemre abeyin dediği gibi ya label yada bir listbox ekleyip o listboxu baçlık olarak yapabilirsiniz.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Koddaki Liste ile çıkan sonucu sayfaya aktarın.Tabii aktarılacak sayfadaki verier silinecek yada ayarlanacak.
Sonra rowsource ile istboxa ordan çekebilirsiniz.
Böyle istediğinizi düşünüyorum.
Genişletmek için tıkla...
Refaz hocam tam olarak bu şekilde birşey düşündüm. Ama listboxta çıkan sonuç olan "Liste" yi sayfaya nasıl alacağım bu konuda bilgim yok.

Aramada çıkan sonucu sayfanın A2 hücresinden başlayarak sayfaya aktarabilirsek problem çözülecek.
veyselemre' Alıntı:
En iyi yöntem listbox başlıklarını labellerle oluşturmaktır. RowSource ile de alırken başlık satırlarını hariç tutarsınız.
Genişletmek için tıkla...
veyselemre hocam listbox'ı birkaç değişik sayfada kullanıyorum. Sabit label yazılarıyla olmuyor maalesef. Öneriniz için teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Araştırırken aşağıdaki kodu buldum ve çalışmama göre uyarladım. Listboxtaki veriyi sayfaya aldırıyorum.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Şimdi düşününce;

Aşağıdaki koddaki "Liste" yi doğrudan sayfaya aktarma imkanımız yokmu acaba? Bunlara hiç gerek kalmayacak o zaman. Bu olabilir mi? Bilgim olmadığı için soruyorum hocalarım. Saygılar.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
himmgarip' Alıntı:
Araştırırken aşağıdaki kodu buldum ve çalışmama göre uyarladım. Listboxtaki veriyi sayfaya aldırıyorum.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Şimdi düşününce;

Aşağıdaki koddaki "Liste" yi doğrudan sayfaya aktarma imkanımız yokmu acaba? Bunlara hiç gerek kalmayacak o zaman. Bu olabilir mi? Bilgim olmadığı için soruyorum hocalarım. Saygılar.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Hocam dosyanızın çalışır şeklini atarsanız incelemek isterim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Gibi mesela olabilir ama preseve kullandığınız için application.transpose(Liste) olarakta deneyebilirsiniz.
Kodları kafadan yazdığımiçin hata olabilir ama mantık böyle olmalı bildiğim.

Sheets("Kayıtlarekranı").range("a2").resize(say,ubound(Liste,2).value = Liste
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Refaz' Alıntı:
Gibi mesela olabilir ama preseve kullandığınız için application.transpose(Liste) olarakta deneyebilirsiniz.
Kodları kafadan yazdığımiçin hata olabilir ama mantık böyle olmalı bildiğim.

Sheets("Kayıtlarekranı").range("a2").resize(say,ubound(Liste,2).value = Liste
Genişletmek için tıkla...


Adsız.png

Bu şekilde veri geliyor.
 
Olumlu oy 0 Negatif oyla
= application.transpose(Liste)
Olarak deneyin birde.
65536 dan sonrası için problem olabilir.
Kod düzenlenebilir.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
= application.transpose(Liste)
Olarak deneyin birde.
65536 dan sonrası için problem olabilir.
Kod düzenlenebilir.
Genişletmek için tıkla...

Kodu sonunda çalıştırdık. Emeği geçen herkese teşekkür ederim.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

olarak çalıştı.

Kodun tamamı ihtiyacı olan olur diye aşağıya ekledim. Çok teşekkür ederim. Saygılar.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Zaman bulunca ben preservesiz düzelteyim kodu yinede abey örnek olarak kullanabilirsiniz transpose yede gerek kalmaz unutmazsam.
Fazla değişiklik olmayacak zaten.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Zaman bulunca ben preservesiz düzelteyim kodu yinede abey örnek olarak kullanabilirsiniz transpose yede gerek kalmaz unutmazsam.
Fazla değişiklik olmayacak zaten.
Genişletmek için tıkla...
Çok güzel olur. Uğraşmayız hiç. Emeğine sağlık. Teşekkürler.
 
Olumlu oy 0 Negatif oyla
Telefondan biraz ayarlamaya çalıştım ama deneyemedim sonucu.
Belki kofu kopyala yapıştır yapıncada hata verebilir.
Hata olursa düzeltirim ama mantıken çalışır sanıyorum.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Ben 1 yerine 2 yazmıştım.
Preserve olayını unutmuştum.Preservesiz olursa 2 olarak kullanabilirsiniz başka dosyada lazım olursa.
Yada direkt yukardaki yeri kaç sütunsa onuda yazabilirsiniz.
Kolay gelsin.
Genişletmek için tıkla...
1 ve 2 arasındaki fark ne? Bilgi açısından soruyorum.

Preserve ne anlama geliyor?
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst