• Foruma hoş geldin 👋 Ziyaretçi

    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 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
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
95
Aldığı beğeni
836
Excel V
Office 2016 TR
Konuyu Başlatan
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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çö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
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
Araştırırken aşağıdaki kodu buldum ve çalışmama göre uyarladım. Listboxtaki veriyi sayfaya aldırıyorum.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ş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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ş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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Hocam dosyanızın çalışır şeklini atarsanız incelemek isterim.
 
Olumlu oy 0 Negatif oyla

Ekli dosyalar

  • SANAT.xlsm
    120 KB · Gösterim: 21
Olumlu oy 0 Negatif oyla
himmgarip' Alıntı:
Aşağıdaki koddaki "Liste" yi doğrudan sayfaya aktarma imkanımız yokmu acaba?
Genişletmek için tıkla...
Var abey bugün yada yarın bakarım çözülmezse.
Zor değil anladığım kadarıyla.
Ama zamanım yok şimdi düğün sezonları açıldı :)
 
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
Dedikleri if say> 0 then bunun altına eklenmesi gerek.
 
Olumlu oy 0 Negatif oyla
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
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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

olarak çalıştı.

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

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
himmgarip' Alıntı:
UBound(Liste, 1)
Genişletmek için tıkla...
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.
 
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
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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
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
himmgarip' Alıntı:
1 ve 2 arasındaki fark ne? Bilgi açısından soruyorum.

Preserve ne anlama geliyor?
Genişletmek için tıkla...
Preserve diziyi hafızaya alıyor biliyorum anlatması biraz zor.

Tam anlatabilen olursa çıkabilir abey.youtubede vardır sanıyorum.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst