return one or more values in a macro Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	return one or more values in a macro
2	excel operators hk
3	Create a user-defined menu / Create your own menu and assign a macro to them in the "Extensions" section
4	search macro
5	Multiply All Values by Number: You have a list and you want to multiply the entire number by a specific number. Just use this code. Select this range of cells and run this code. first, it will ask you the number you want to reach more than one person, and then all their numbers will be multiplied instantly.
6	Advanced VLOOKUP Formula: Returns the expression of the value passed the second or third time if the searched value is passed more than once.
7	Extracting values from cells
8	cells fill in colors according to the cells values on your worksheet
9	Undo cells with 0
10	delete duplicate / duplicate rows
11	Determining whether the cell contains a numeric value
12	Is there one or more fields in the selected field?
13	double-clicking on listbox and retrieving values from textboxa listbox columns
14	ascii values and vba equivalents of keys
15	Displaying the sum of any column values in the listbox in the textbox
16	convert double and single lines into different colors and designs (one line is bold and the other line is normal)
17	Calculate the duration of the mp3 file (type the file path and select that cell)
18	magnifies the screen of the opened book
19	If more than 2 characters are written in textbox, the other textbox will send a message.
20	If more than 2 characters are written in the textbox, it will switch to the other textbox

Excel Free Macros (VBA)

Return One Or More Values in A Macro

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords