makroda bir veya birden çok değer döndürmek Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
bu dosyanın amacı sadece filtre yönetimini genelleştirmek olduğu için başka bir şeye ihtiyaç duymadım.

yani marifet formda değil kodlarda.

Anlaşılan hala anlatım zorluğu çekiyorum.

bu modul tek kriterli olan tüm filtreler için kullanılabilir.

kodlar aynen şöyle

visual basic kodu:
--------------------------------------------------------------------------------
 Global adres As String

'excel.web.tr'den
'Bu Makro genel filtre amaçlıdır.

'******************************************************
'                    AÇIKLAMA
'******************************************************         // Ã–rnekler

'KaynakSayfa    : Filrelemenin yapılacağı sayfa                 // "stok"
'FiltreBaşlığı  : Filtrelenmek istenen tablonun başlığı         // "A1:C1"
'FiltreAlanı    : Filtrenin uygulanacağı alan                   // 3   "yani  c1 hücresi"
'Ã–lçüt          : Büyüklük,küçüklük...(>,..)              // "="
'Kriter         : Filtrelenen değer                             // Combobox1.text
'AdresAlanı     : Filtre sonucu alınmak istenen verilerin alanı // "A1:B1"
'HedefSayfa     : Filtrelenen verilerin kopyalanacağı sayfa     // "stok"
'HedefAlan      : Filtrelenen verilerin kopyalanacağı alan      // "H1:I1"
'NOT:Hata denetim işlemleri henüz yapılmadı

Sub AdresAl(KaynakSayfa, FiltreBaşlığı, Ã–lçüt, Kriter, AdresAlanı, HedefSayfa, HedefAlan As String, FiltreAlanı As Integer)
    
    Application.ScreenUpdating = False
    Sheets(HedefSayfa).Select
    Range(Range(HedefAlan), Range(HedefAlan).End(xlDown)).Clear
    Sheets(KaynakSayfa).Select
    Range(FiltreBaşlığı).AutoFilter
    Range(FiltreBaşlığı).AutoFilter Field:=FiltreAlanı, Criteria1:=Ã–lçüt & Kriter, Operator:=xlAnd
    Range(Range(AdresAlanı), Range(AdresAlanı).End(xlDown)).Copy
    Sheets(HedefSayfa).Select
    Range(HedefAlan).Select
    ActiveSheet.Paste
    Sheets(KaynakSayfa).AutoFilterMode = False
    Application.CutCopyMode = False
    adres = HedefSayfa & "!" & Range(Range(HedefAlan), Range(HedefAlan).End(xlDown)).Address

End Sub

'kullanmak için 
'örnek kodlar:

'visual basic kodu:
'-----------------------------------------------'---------------------------------
 Private Sub ComboBox1_Change()
Call AdresAl("stok", "A1:C1", "=", ComboBox1.Text, "A1:B1", "stok", "H1:I1", 3)
ListBox1.RowSource = adres
End Sub 
'-----------------------------------------------'---------------------------------

'visual basic kodu:
'-----------------------------------------------'---------------------------------
 Private Sub ComboBox2_Change()
Call AdresAl("firma", "A1:C1", "=", ComboBox2.Text, "A1:B1", "firma", "H1:I1", 3)
ListBox2.RowSource = adres
End Sub

Benzer Sonuçlar
No	Makro Adı
1	makroda bir veya birden çok değer döndürmek
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	Birden Çok Sütun Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz sütun sayısını girmeniz gerekiyor.
4	Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.
5	Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.
6	sutun seçimini makrodaki ("c:c") değeriyle oynayarak değiştirebilirsiniz
7	hepsi bir arada toplama çarpma bölme
8	hücredeki değere göre mesaj veya makro
9	comboboxta değer seçmek
10	aynı makroyla birden çok sayfaya kayıt yapmak
11	Gelişmiş DÜŞEYARA (VLOOKUP) Formülü: Aranan değer bir defadan fazla geçiyorsa ikinci veya üçüncü defa geçen değerin karşısındaki ifadeyi getirir.
12	bir hücreye makro atamak
13	birden fazla isimlileri harcamalarıyla birlikte tek isim altında toplatma
14	makrolar kutusu ve makrolar görünsün
15	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
16	microsoft outlookdan uyarı e-maili göndersin
17	Dosyayı kim açtı 2
18	WorksheetBu makro kodları, çalışma sayfalarını kolay bir şekilde kontrol etmenize ve yönetmenize ve çok fazla zaman kazandırmanıza yardımcı olacaktır. Aktif Çalışma Sayfası dışındaki tüm gizle: Şimdi, eğer çalışma kitabınızdaki aktif çalışma sayfasından başka tüm çalışma sayfalarını gizlemek isterseniz şunu diyelim: . Bu makro kodu sizin için bunu yapar.
19	bir kitaptaki sayfalara başka bir kitaba taşımak
20	aktif ve aktif olmayan kitapların kapatılması

Benzer Sonuçlar

Makro Adı

makroda bir veya birden çok değer döndürmek

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

Birden Çok Sütun Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz sütun sayısını girmeniz gerekiyor.

Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.

Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.

sutun seçimini makrodaki ("c:c") değeriyle oynayarak değiştirebilirsiniz

hepsi bir arada toplama çarpma bölme

hücredeki değere göre mesaj veya makro

comboboxta değer seçmek

aynı makroyla birden çok sayfaya kayıt yapmak