Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-01-2018, 23:53   #1
xemdarx
Altın Üye
 
xemdarx kullanıcısının avatarı
 
Giriş: 11/02/2010
Şehir: İstanbul
Mesaj: 58
Excel Vers. ve Dili:
13 türkçe
Varsayılan Çoklu Sezgisel arama

Selamlar,
Dosyada arama özelliğini D,E ve F sütununa göre süzüp sonucu B sütunu olarak listboxta listeleyebilir miyiz?
Eklenmiş Dosyalar
Dosya Türü: xls sezgisel.xls (144.0 KB, 16 Görüntülenme)
xemdarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 09:57   #2
xemdarx
Altın Üye
 
xemdarx kullanıcısının avatarı
 
Giriş: 11/02/2010
Şehir: İstanbul
Mesaj: 58
Excel Vers. ve Dili:
13 türkçe
Varsayılan

Lütfen yardım ediniz.
xemdarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 13:43   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,487
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Anladığım kadarıyla ; UserForm üzerinden deneme isimli sayfanın D, E ve F sütunlarını kapsayacak şekilde
arama yapmak ve bulunan verilere ait A ve B sütunu değerlerini ListBox'ta listeletmek istiyorsunuz.

Ancak arama işlemi için Userform'daki ListBox'un hemen üzerinde bir Combobox (sağ kenarında OK işareti görünmese de) yerleştirmişsiniz.
Arama işlemi için bir Combobox yerine TextBox kullanmanızını yerinde olacağını düşünüyorum.

ListBox'un hemen üstündeki Combobox'u silip onun yerine bir TextBox ekleyin (ben TextBox99 adını verdim) ve bu nesne için aşağıdaki kod blokunu kullanın.
Dikkat: kod, deneme isimli sayfanın H sütununu bulunan veri satırlarını işaretlemek için kullanıyor.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox99_Change()
Set d = Sheets("deneme")
son = d.Cells(Rows.Count, 1).End(3).Row
If Replace(TextBox99, " ", "") = "" Then
    d.Range("H2:H" & son).ClearContents
    ListBox1.RowSource = "deneme!A2:C" & son
Else
    ListBox1.RowSource = "": ListBox1.Clear
    d.Range("H2:H" & son).ClearContents
    x = 0
    For Each hcr In d.Range("B2:F" & son)
        If Len(hcr.Value) <> Len(Replace(hcr.Value, TextBox99, "")) And d.Cells(hcr.Row, "H") = "" Then
            ListBox1.AddItem
            ListBox1.List(x, 0) = d.Cells(hcr.Row, "A")
            ListBox1.List(x, 1) = d.Cells(hcr.Row, "B")
            ListBox1.List(x, 2) = d.Cells(hcr.Row, "C")
            d.Cells(hcr.Row, "H") = "x"
            x = x + 1
        End If
    Next
End If
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 17:58   #4
xemdarx
Altın Üye
 
xemdarx kullanıcısının avatarı
 
Giriş: 11/02/2010
Şehir: İstanbul
Mesaj: 58
Excel Vers. ve Dili:
13 türkçe
Varsayılan

Ömer Bey, denedim oluyor fakat eksik. Sadece sayı değerlerini yazınca buluyor. Metin yazınca (c sütunu) işlem olmuyor.. Teşekkürler
xemdarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 18:53   #5
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,487
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Tekrar merhaba.

Konu açılış mesajınızdaki cümle, arama işlemini D,E ve F sütunlarında yapmak istediğiniz şeklinde anlaşılıyor.

Önceki cevabımda For Each hcr In d.Range("D2:F" & son) satırında
(kırmızı renklendirdiğim kısmı, ki aramanın yapılacağı alan anlamına geliyor)
B2:F olarak değiştirin.
Ben önceki cevabımı güncelledim.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 19:13   #6
xemdarx
Altın Üye
 
xemdarx kullanıcısının avatarı
 
Giriş: 11/02/2010
Şehir: İstanbul
Mesaj: 58
Excel Vers. ve Dili:
13 türkçe
Varsayılan

Sağolun, varolun Ömer Bey.
xemdarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 19:18   #7
xemdarx
Altın Üye
 
xemdarx kullanıcısının avatarı
 
Giriş: 11/02/2010
Şehir: İstanbul
Mesaj: 58
Excel Vers. ve Dili:
13 türkçe
Varsayılan

Selamlar Ömer Bey,
Textboxu space ile silince aşağıdaki uyarı çkıyor.
Eklenmiş Resimler
Dosya Türü: jpg Ekran Alıntısı.JPG (20.5 KB, 3 Görüntülenme)
xemdarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 19:24   #8
xemdarx
Altın Üye
 
xemdarx kullanıcısının avatarı
 
Giriş: 11/02/2010
Şehir: İstanbul
Mesaj: 58
Excel Vers. ve Dili:
13 türkçe
Varsayılan

H sütunu yerine T seçtim. B2:F yerine de B2:E . Sorun ne olabilir?
xemdarx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 19:24   #9
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,842
Excel Vers. ve Dili:
2010-2016
Varsayılan

Space silme aracı değildir. Boşluk bırakma aracıdır.
Kodların başına aşağıdaki satırı ekleyip deneyin.
On Error Resume Next
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 14-01-2018, 19:34   #10
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,487
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Space tuşuna basmak silme değil, BOŞLUK karakteri yazma işlemi.

Herneyse; önceki cevabımı tekrar güncelledim, sayfayı yenileyerek önceki kod cevabımı tekrar kontrol edin.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:00


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden