find command Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Global siparisler, sevkiyat, hammadde, emirler, kitap As Workbook 
Global rng, kosul As Range 
Global adres As String

Function toplam(sht As Worksheet, malzeme As String, sart As String) 
Set rng = sht.Range("C3:C5000").Find(malzeme, Lookat:=xlWhole) 
Do 
If rng.Offset(0, 1) = sart Then toplam = toplam + rng.Offset(0, 2) 
Set rng = sht.Range(rng, Range("C5000")).FindNext 
If rng.Address = adres Then Exit Do 
adres = rng.Address 
Loop 
Set rng = Nothing 
End Function

Sub güncelle() 
Dim ara As String

Set kosul = Range(InputBox("Güncellenecek tarihin hücre adresini girin")) 
Application.ScreenUpdating = False

ara = ActiveSheet.Name

Set kitap = ThisWorkbook 
Set siparisler = Workbooks.Open("G:DenemeSipariş.xls") 
Set sevkiyat = Workbooks.Open("G:DenemeSevkiyat.xls") 
Set hammadde = Workbooks.Open("G:DenemeHammadde.xls") 
Set emirler = Workbooks.Open("G:DenemeEmirler.xls")

siparisler.Activate 
kosul.Offset(0, 1) = toplam(siparisler.Sheets("Günlük"), ara, kosul.Value) 
hammadde.Activate 
kosul.Offset(0, 2) = toplam(hammadde.Sheets("Günlük"), ara, kosul.Value) 
sevkiyat.Activate 
kosul.Offset(0, 3) = toplam(sevkiyat.Sheets("Günlük"), ara, kosul.Value) 
emirler.Activate 
kosul.Offset(0, 4) = toplam(emirler.Sheets("Günlük"), ara, kosul.Value)

siparisler.Close False 
hammadde.Close False 
sevkiyat.Close False 
emirler.Close False 
kitap.Activate 
End Sub

No	Macro Name
1	add find commandbotton in userform
2	find command on active sheet / page
3	find command on all sheet / pages
4	Put an asterisk at the beginning of the cell
5	search-find command
6	find command
7	calculator on / off
8	the find window
9	find excel file hide
10	find alt + enter and number format / empty cell in textbox
11	Create a find menu
12	find the textbox in the sheet / page (must write all)
13	find and show on sheet / page
14	find macro
15	add save key to userforma
16	userforma save as key
17	Add menu to file edit bar delete
18	code that finds the number of sheet / pages 2
19	finding by sheet / page index number
20	hiding tools menu

Excel Free Macros (VBA)

Find Command

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords