• 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ü listbox'a textbox ile arama yapıp farklı sayfalardan veri alma

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

merthinho

Yeni Üye
Katılım
13 Şub 2024
Mesajlar
18
Aldığı beğeni
4
Excel V
Office 2019 TR
Konu Sahibi
herkese merhaba. 2-3 haftadır uğraştığım bir konu var. makro ile kayıt ettiğimiz verileri farklı sayfalara aktarıyoruz. bunları istediğime yakın şekilde sayıyoruz ancak son kullanıcın kullanmına rahat ulaşması için 1-2 ekleme yapmak istiyorum. çok video izledim, forumları araştırdım ancak tam çözümü bulamadım. en sonunda ipin ucu kaçtı.
sormak istediğim şu; listbox'a farklı 3 sayfadan textbox(tarih olarak özellikle) ile arama yapıp listelemek, ardından combobox ile de tipe göre filtre uygulamak istiyorum.
worksheetfuntion.search komutunu kullanıyorum ancak mevcut açık olan sayfada arama yapıyor, 3 farklı sayfada arama yapmasını istiyorum.
("SAYFA1" & "SAYFA2" & "SAYFA3") şeklinde farklı bir komutta denedim ancak o da hata veriyor.
combobox'a daha geçemedim, onu da bi şekilde entegre edeceğim artık.
dosyayı da ekliyorum.
Refaz beyin 1-2 komutunu da denedim ancak yine hata aldım.
yardımlarınız için şimdiden teşekkür ederim.
 

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.
Tarihe göre sırala Oylara göre sırala
merthinho' Alıntı:
herkese merhaba. 2-3 haftadır uğraştığım bir konu var. makro ile kayıt ettiğimiz verileri farklı sayfalara aktarıyoruz. bunları istediğime yakın şekilde sayıyoruz ancak son kullanıcın kullanmına rahat ulaşması için 1-2 ekleme yapmak istiyorum. çok video izledim, forumları araştırdım ancak tam çözümü bulamadım. en sonunda ipin ucu kaçtı.
sormak istediğim şu; listbox'a farklı 3 sayfadan textbox(tarih olarak özellikle) ile arama yapıp listelemek, ardından combobox ile de tipe göre filtre uygulamak istiyorum.
worksheetfuntion.search komutunu kullanıyorum ancak mevcut açık olan sayfada arama yapıyor, 3 farklı sayfada arama yapmasını istiyorum.
("SAYFA1" & "SAYFA2" & "SAYFA3") şeklinde farklı bir komutta denedim ancak o da hata veriyor.
combobox'a daha geçemedim, onu da bi şekilde entegre edeceğim artık.
dosyayı da ekliyorum.
Refaz beyin 1-2 komutunu da denedim ancak yine hata aldım.
yardımlarınız için şimdiden teşekkür ederim.
Genişletmek için tıkla...
Dosyada örnek olarak 3 sayfa da arama yapmanızı sağlayan kodlar mevcut üzerinde çalışarak kendi dosyanıza uygulayabilirsiniz.
 

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

worksheetfuntion.search kodu yok dosyanızda.
Yolladığınız dosyadaki userformu tekrar düzenleyip tam hangi sayfalarda aranacak ve hangi sütunlar gelecek açıklarsanız bakabilirriz.
Dosyanızda bir textbox birde combobox var bunlarla nasıl işlem yapacaksınız mesela?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Merhaba.

worksheetfuntion.search kodu yok dosyanızda.
Yolladığınız dosyadaki userformu tekrar düzenleyip tam hangi sayfalarda aranacak ve hangi sütunlar gelecek açıklarsanız bakabilirriz.
Dosyanızda bir textbox birde combobox var bunlarla nasıl işlem yapacaksınız mesela?
Genişletmek için tıkla...
refaz bey selam.
vb için Private Sub TextBox1_Change() altında bulunuyor da. kulllanımı şimdilik askıya aldım diğerlerini denemek için.
size ufaktan bahsedeyim.
giriş sayfasına A:L arasına girdiğim verileri sırala diyip, diğer sayfalara dağıtıyorum. dağıtılan verileri de sonra siliniyor. excel tarafında şimdilik bir sıkıntı gözükmüyor.
vba tarafında şöyle bir durum söz konusu. eldeki dağıtılan verileri, servis bazında (cıp-t1-t2) olarak olarak filtre uygulayıp, tarih olarak da listbox'da listelemek istiyorum. en sonunda da yazdırma tuşu koyacağım. yazdır dediğimde son veriyi çıktı almayı planlıyorum.
 
Olumlu oy 0 Negatif oyla
Selam.

Evet o satırı pasif yapmışsınız bunsan dolayı dikkat etmemişim ve başka satırlarda kullanmadığınızdan farketmemişim yani kodda yok gibi resimdeki gibi.

Ben konuyu anlamadım daha doğrusu.

Screenshot 2025-01-19 190917.png
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Selam.

Evet o satırı pasif yapmışsınız bunsan dolayı dikkat etmemişim ve başka satırlarda kullanmadığınızdan farketmemişim yani kodda yok gibi resimdeki gibi.

Ben konuyu anlamadım daha doğrusu.

Ekli dosyayı görüntüle 31756
Genişletmek için tıkla...
Amaç şu aslında, genel sayfasından diğer sayfalara ayrıştırılan verileri listbox da tarihe göre aramak diyebiliriz aslında. Yazılan tarih ve servis tipini listbox da listelemek.
 
Olumlu oy 0 Negatif oyla
merthinho' Alıntı:
Yazılan tarih ve servis tipini listbox da listelemek
Genişletmek için tıkla...
Ben anlamadım ama yol göstermesi için alttaki gibi array içindeki sayfalarda arama yapar.
Kriterleri felan ekleyebilirsiniz yada anlayan olursa belki yardımcı olurlar.

Kolay gelsin.

HTML:
PHP:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz bey selamlar.
Tam da istediğim gibi oluyor. Belirtilen sayfalardaki verileri arayabiliyorum. Combobox a da filtre eklemek istiyorum. Listbox da bulunan bir sütun da değer olacak.
Dosyayı da ekledim
Biraz fikire yardımcı olabilir.
Combobox da 3 sayfa için arama filtresi olacak
 

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
Konu Sahibi
Private Sub ComboBox1_change()
Dim x As Range
Dim y As Range
Dim z As Range
If ComboBox1.Value = "CIP" Then
x: Sheets("CIP").Range("A1000000").End(xlUp).Row
End If
If ComboBox1.Value = "FD T1" Then
y: Sheets("FD T1").Range("A1000000").End(xlUp).Row
End If
If ComboBox1.Value = "FD T2" Then
z: Sheets("FD T2").Range("A1000000").End(xlUp).Row
End If
End Sub

combobox1 için listbox'da filtre uygulama için şunu denedim ancak hata veriyor. private sub click olarak da denedim olmadı.
SNNAY sizin yolladığınızı da denedim olmadı.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst