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 20-04-2017, 08:15   #11
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

Ömer bey hakkınızı helal edin elinize sağlık

çoook teşekkür ederim.
MURATSO Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 08:47   #12
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

Ömer bey merhaba, bir önceki kodda çalıştır dendiğinde hem önceki hem de son istediğim sonucu aynı anda yapma şansımız var mı?

syg.
MURATSO Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 09:53   #13
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,377
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

İki koduda module kopyaladınız sanırım.

Daha sonra aşağıdaki koduda module kopyalayın.

Artık sadece aşağıdaki verdiğim kodu çalıştırırsanız 2 kod arka arkaya çalışır.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Calistir()
    Call Filtre
    Call Filtre_Yeni
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 10:18   #14
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

çok teşekkür ederim
MURATSO Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 13:04   #15
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

son bir isteğim olabilir mi Ömer bey? sizi yormamak adına Kendim denedim ama beceremedim

Çalışan Listesi_20042017 adında bir sheet daha ekledim. Görev_Kodu_Yetki_Grubu_2 sheetinn A kolonunda sıralanan Görev kodlarını Çalışan Listesi_20042017 sheetinin A kolonunda bularak filtrelesin istiyorum. denedim kendim ama yapamadım
MURATSO Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 08:15   #16
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

Ömer bey merhaba, Örnek dosyayı da ekledim. Daha önce verdiğiniz kodlar da içinde. teşekkür ederim.

syg.
Eklenmiş Dosyalar
Dosya Türü: xlsm örnek excel.xlsx.xlsm (1.90 MB, 8 Görüntülenme)
MURATSO Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 12:45   #17
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

en azından nasıl yapmam gerektiğini de söyleyebilirseniz kendim deneyeyim ama yoğunsanız yine de canınız sağ olsun zaten çok yardımcı oldunuz önceki kodlarda
MURATSO Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 15:48   #18
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,377
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Öncelikle, Çalışan Listesi_20042017 sayfasında A yada B sütunlarındaki herhangi bir hücreyi seçin ve Tasarım menüsünden "Tabloyu Normal Aralığa Dönüştür" seçeneğini işaretleyin.

Daha sonra eski ve aşağıda verdiğim tüm kodlar dahil, kodları çalışma sayfasının kod bölümüne değil, VBA ekranında Insert menüsünden Module ekleyip bu sayfaya yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Filtre_Yeni_2()
    
    Dim Sg As Worksheet, Sy As Worksheet, deg, a As Long, dizi()
    Dim son1 As Long, son2 As Long, c As Range, d As Object
    
    Set d = CreateObject("Scripting.Dictionary")
    Set Sg = Sheets("Çalışan Listesi_20042017")
    Set Sy = Sheets("Görev_Kodu_Yetki_Grubu_2")
    
    Sg.Range("A1:F" & Rows.Count).AutoFilter Field:=1
    son1 = Sg.Cells(Rows.Count, "A").End(xlUp).Row
    son2 = Sy.Cells(Rows.Count, "A").End(xlUp).Row
    
    If Sy.FilterMode = True Then
        For Each c In Sy.Range("A2:A" & son2).SpecialCells(xlCellTypeVisible)
            If c <> "" Then
                If Not d.exists(c) Then
                    d.Add c & "", Nothing
                End If
            End If
        Next c
        Sg.Range("A1:F" & son1).AutoFilter Field:=1, _
            Criteria1:=d.keys, Operator:=xlFilterValues
    Else
        Sg.Range("A1:F" & son1).AutoFilter Field:=1
    End If

End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 16:07   #19
MURATSO
Altın Üye
 
Giriş: 03/04/2014
Şehir: istanbul
Mesaj: 144
Excel Vers. ve Dili:
excel 2010
Varsayılan

Ömer bey elinize sağlık tam istediğim gibi olmuş. Çok teşekkür ederim.
MURATSO Ç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 19:10


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 - Kobi Danışmanlık - Tekirdağ Samsung - 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- Didim Çatı İnşaat- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Estetik
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden