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 05-04-2017, 12:39   #1
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,648
Excel Vers. ve Dili:
2010
Varsayılan birden çok sütunda metin parçalarına göre süzme makro

merhaba sayın hocalarım
ekli dosyamda bir sütundaki metin parçasına göre listenin süzülmesi ile ilgili formülle çözüm bulunuyor
benim istediğim ise tablonun sağındada açıklamasını yaptığım
birden çok sütundaki metin parçaları kriterlerine göre makro ile süzme sıralama yapılması.
Eklenmiş Dosyalar
Dosya Türü: xlsx Metin Parçası Makro.xlsx (838.0 KB, 10 Görüntülenme)
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2017, 16:02   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,481
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

-- J3 ve K3 hücrelerinin biçimini METİN olarak ayarlayın,
-- J:M sütun aralığındaki formülleri silin,
-- alt taraftan ilgili sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın

-- Hem J3 boş, hem K3 boş iken J:M sütun aralığındaki listenin boş olmamasını istiyorsanız, kırmızı renklendirdiğim satırı silin.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J3, K3]) Is Nothing Then Exit Sub
If Cells(Rows.Count, "J").End(3).Row > 5 Then Range("J6:M" & Cells(Rows.Count, "J").End(3).Row).ClearContents
If [J3] = "" And [K3] = "" Then Exit Sub
If [J3] <> "" Then Range("C5:F" & Cells(Rows.Count, 3).End(3).Row).AutoFilter Field:=1, Criteria1:="*" & [J3].Text & "*"
If [K3] <> "" Then Range("C5:F" & Cells(Rows.Count, 3).End(3).Row).AutoFilter Field:=2, Criteria1:="*" & [K3].Text & "*"
If Cells(Rows.Count, 3).End(3).Row = 5 Then GoTo 10
Range("C6:F" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(xlCellTypeVisible).Copy [J6]
10: Range("C5:F" & Cells(Rows.Count, 3).End(3).Row).AutoFilter
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 05-04-2017, 17:13   #3
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,648
Excel Vers. ve Dili:
2010
Varsayılan

teşekkür ederim sayın ömer baran
kullanmaya başladım makrolu çizelgeyi
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2017, 21:30   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,481
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
modoste tarafından gönderildi Mesajı Görüntüle
teşekkür ederim sayın ömer baran
kullanmaya başladım makrolu çizelgeyi
Kolay gelsin.
.
__________________
.
☾✭ İ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 07-04-2017, 13:30   #5
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,648
Excel Vers. ve Dili:
2010
Varsayılan

sayın Ömer.Baran hocam bu istediğim çözümden daha başka yani daha fazla sütunların kullanılacağı çizelgelerde ileride karşıma çıkıcam buna dönük bir çalışma yapabilirmisiniz

örneğin veriler B-C-D-E-F-G-H-I-İ-J diyelim yani 10 sütun için aynı mantıkta makro yapabilir misiniz.
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 17:14   #6
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,648
Excel Vers. ve Dili:
2010
Varsayılan

eklediğim dosyada verilen listeye göre belirlediğim kriterlere göre makro ile süzme yapabilirmiyiz.
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 17:16   #7
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,648
Excel Vers. ve Dili:
2010
Varsayılan makro ile süzme

yeni bir dosya ile soru
Eklenmiş Dosyalar
Dosya Türü: xlsx İhale Makro.xlsx (73.7 KB, 2 Görüntülenme)
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2017, 16:26   #8
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,648
Excel Vers. ve Dili:
2010
Varsayılan

sayın hocalarımdan makro ile çözüm gelene kadar formülle çözüm üretmeye çalıştım
faydası olur diye eklemek istedim.
8 sütundaki kriterlere göre kiminde sayısal kiminde metinsel ifadelere göre süzme yapmaya çalıştım
Eklenmiş Dosyalar
Dosya Türü: xlsx E.Y İhale Takip.xlsx (101.6 KB, 3 Görüntülenme)
modoste Ç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 11:35


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- Çorlu Dil 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