Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-07-2017, 08:37   #1
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan Koşula bağlı gelişmiş filtreleme

Makro ile yapmaya çalıştığım; A2 ve A3 hücresine veya diğerlerine bir veri girdiğim zaman iki kriterli bir gelişmiş filtre. (Buton değil Enter tuşu ile çalışsın istiyorum) Ancak burada benim başka sütuna bağlı ekstra bir koşula daha ihtiyacım var. O da şu; Mesela ben 100 ve 101 Kodlarını süzerek buraya getirdim. Ancak öyle bir koşul olmalı ki sadece hem 100 hesap kodunda hemde 101 hesap kodunda eş zamanlı olan fiş numaraları buraya gelmeli. Fiş satırında 1.den 7.ye kadar ve 14.den 21.e kadar olan fiş numaraları bu koşulu sağlamıyor ama 8.den 13.e kadar olan fiş numaraları bu koşulu sağladığı için sadece bu fiş numaralarının tamamını süzebilmek istiyorum. forumdan bir arkadaş epeyce yardımcı oldu yeni öneriler getirdi ancak bu tarz bir işlem daha fazla işimi görecek.
Eklenmiş Dosyalar
Dosya Türü: xlsx Koşula bağlı olarak filtreleme.xlsx (16.1 KB, 32 Görüntülenme)
__________________
Bir hedef peşinde olduğun zaman yıldızlardan aşağısı ile kanaat etme; zira sıradan işler uğruna ölmenin tadı önemli hedefler uğruna ölümün tadı gibidir.

Bu mesaj en son " 14-07-2017 " tarihinde saat 14:13 itibariyle taneryuksell tarafından düzenlenmiştir....
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-07-2017, 13:59   #2
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Yardımcı olabilecek birisi yok mu ???
__________________
Bir hedef peşinde olduğun zaman yıldızlardan aşağısı ile kanaat etme; zira sıradan işler uğruna ölmenin tadı önemli hedefler uğruna ölümün tadı gibidir.

Bu mesaj en son " 15-07-2017 " tarihinde saat 10:33 itibariyle taneryuksell tarafından düzenlenmiştir....
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2017, 16:53   #3
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Koşullu biçimlendirme yapılabiliyorsa o da işimi görür...
__________________
Bir hedef peşinde olduğun zaman yıldızlardan aşağısı ile kanaat etme; zira sıradan işler uğruna ölmenin tadı önemli hedefler uğruna ölümün tadı gibidir.
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2017, 23:59   #4
simyaci64
Altın Üye
 
Giriş: 12/11/2011
Şehir: uşak
Mesaj: 53
Excel Vers. ve Dili:
excell 2010 türkçe
Varsayılan

baktım baktım sadece baktım anlayamadım. yoksa yapılır. eş zamanlıdan kastın nedir.
simyaci64 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 08:32   #5
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Hocam selamlar;
Eş zamanlıdan kastım şu; ben örnekte 100 ve 101 kodlarını gelişmiş filtre ile süzüyorum tarihe göre, ada göre, açıklamaya göre filanda hepsini halledebiliyorum. Ama tabloya baktığınız zaman aşağıda kırmızıya boyalı alanlar var. Bunlar 100 ve 101 kodunda yani her ikisinde de bulunan kodlar. Mesela 7 nolu fiş sadece 100 kodunda mevcut ama 8 nolu fiş hem 100 hem de 101 de mevcut. yapmaya çalıştığım ise ya bir kriter daha ekleyip sadece ortak fiş numarasına sahip olanları getirtmek yada en kötü ihtimal koşullu biçimlendirme ile ortak fiş numaralarını renklendirmek. durum bu yani ama ben çözüm bulamadım buradan da bir çözüm bulan olmadı.
__________________
Bir hedef peşinde olduğun zaman yıldızlardan aşağısı ile kanaat etme; zira sıradan işler uğruna ölmenin tadı önemli hedefler uğruna ölümün tadı gibidir.
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 13:07   #6
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,505
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Sorunuzun biraz netleşmesi lazım sanırım.

-- FİLTRE sayfasında bir'den fazla sütun için, kimisi için 1 kriter, kimisi için 2 kriter yazın,
-- VERİ SAYFASInda elle bunlara göre filtre uygulayın
(her bir sütun için istediğiniz filtrenin; içerir, ile başlar, ile biter gibi yöntemini de bir METİN KUTUSUna yazın)
-- FİLTRE sayfasına, filtre sonucunu aktarmayın,
-- o haliyle belgeyi kaydedin,

Örnek belgenizi yeni haliyle tekrar yükleyin.
Böylece sorunuz daha net anlaşılır ve ben veya başka bir üye sorunuzu mutlaka cevaplandırır.
.
__________________
.
☾✭ İ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 16-07-2017, 13:40   #7
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan Koşula bağlı filtreleme

Ömer hocam tekrar yükledim tablonun içine yazdım. Bütün amacım Ana kodlara göre süzmeyi yaptıktan sonra gerekirse ortak fişlere göre de süzme yapabilmek
Eklenmiş Dosyalar
Dosya Türü: xlsm Filtreleme1.xlsm (46.5 KB, 20 Görüntülenme)
__________________
Bir hedef peşinde olduğun zaman yıldızlardan aşağısı ile kanaat etme; zira sıradan işler uğruna ölmenin tadı önemli hedefler uğruna ölümün tadı gibidir.
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 21:51   #8
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,906
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
taneryuksell tarafından gönderildi Mesajı Görüntüle
Ömer hocam tekrar yükledim tablonun içine yazdım. Bütün amacım Ana kodlara göre süzmeyi yaptıktan sonra gerekirse ortak fişlere göre de süzme yapabilmek
Alternatif;

Kod ve dosya güncellendi.
Kod 100000 satır için çalışır. Arttırmak için 100000 tanımını değiştiriniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim liste(100000, 2) As String
Dim verikod, kod1, kod2, verifis As String


Sub Makro1()
    On Error Resume Next
    Range("B5").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("B5").Select
    Sheets("MUAVİN").Columns("A:H").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:I2"), CopyToRange:=Range("B5"), Unique:=False
End Sub



Sub Makro2()
    On Error Resume Next
    Range("B5").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("B5").Select
    Sheets("MUAVİN").Columns("A:H").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:I3"), CopyToRange:=Range("B5"), Unique:=False
End Sub


Sub Makro3()
    Sheets("ARAMA").Select
    On Error Resume Next
    Range("B5").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("B5").Select
    
    kod1 = Trim(Str([B2]))
    kod2 = Trim(Str([B3]))
    
    fis1 = [F2]
    fis2 = [F3]
    
    Sheets("MUAVİN").Columns("A:H").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:I3"), CopyToRange:=Range("B5"), Unique:=False
    sonsatir = Cells(Rows.Count, "b").End(3).Row + 1
    [F2] = fis2
    [F3] = fis1
    Sheets("MUAVİN").Columns("A:H").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:I3"), CopyToRange:=Range("B" & sonsatir), Unique:=False
        Rows(sonsatir).Delete
    [F2] = fis1
    [F3] = fis2
    Call liste_yukle
    sonsatir = Cells(Rows.Count, "B").End(3).Row
    For i = sonsatir To 6 Step -1
       verikod = Cells(i, "B").Value
       verifis = Cells(i, "F").Value
       buldu = False
       For j = 1 To sonsatir
         If kod1 = verikod And liste(j, 1) = kod2 And liste(j, 2) = verifis Then
            buldu = True
            Exit For
         End If
       Next j
       
       For j = 1 To sonsatir
         If kod2 = verikod And liste(j, 1) = kod1 And liste(j, 2) = verifis Then
            buldu = True
            Exit For
         End If
       Next j
       
       If buldu = False Then
         Rows(i).Delete
       End If
    Next i
End Sub

Sub liste_yukle()
   For i = 1 To 100000
      liste(i, 1) = ""
      liste(i, 2) = ""
   Next i
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   For i = 1 To sonsatir
      liste(i, 1) = Cells(i + 5, "B").Value
      liste(i, 2) = Cells(i + 5, "F").Value
   Next i
End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm Filtreleme1_1.xlsm (56.1 KB, 11 Görüntülenme)
__________________
www.asriakdeniz.com

Bu mesaj en son " 16-07-2017 " tarihinde saat 23:07 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 22:23   #9
taneryuksell
Altın Üye
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 32
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Hocam kodu kullandım ama şöyle bir durum ortaya çıktı.
1. Muavin sayfasından Arama sayfasına getirdiği her veriyi mükerrer getirdi.
2. Birde ben ortak fiş numaralarını filtrelesin istiyorum. Yani 2 ayrı kodu süzdüğüm zaman Fiş no satırından kontrol etsin ve herhangi bir fiş numarası 2 ayrı kodda da varsa onları getirsin.
__________________
Bir hedef peşinde olduğun zaman yıldızlardan aşağısı ile kanaat etme; zira sıradan işler uğruna ölmenin tadı önemli hedefler uğruna ölümün tadı gibidir.
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-07-2017, 22:27   #10
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,906
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
taneryuksell tarafından gönderildi Mesajı Görüntüle
Hocam kodu kullandım ama şöyle bir durum ortaya çıktı.
1. Muavin sayfasından Arama sayfasına getirdiği her veriyi mükerrer getirdi.
2. Birde ben ortak fiş numaralarını filtrelesin istiyorum. Yani 2 ayrı kodu süzdüğüm zaman Fiş no satırından kontrol etsin ve herhangi bir fiş numarası 2 ayrı kodda da varsa onları getirsin.
Mesaja dosya eklendi.
Sizin ulaştığınız sonuç ile yeşil olanlar, benim ulaştıklarım aynı bir fark göremedim.

Mükerrer dediğiniz kayıtlar nedir?

Örnek dosya gönderir misiniz?
__________________
www.asriakdeniz.com
asri Ç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 02:48


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden