peşpeşe bul komutu 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. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	peşpeşe bul komutu
2	bul komutu aktif sayfada
3	bul komutu bütün sayfalarda
4	haftanın gününü bulma
5	ara-bul komutu
6	şifrelemede son nokta
7	30 excel dosyası içinde bir kelime aratma
8	formülden değere, değerden formüle dönüşüm
9	ara bul diğer sayfaya kopyala
10	makroda bul ve kopyala yapıştır
11	seçilen alanlari bir kağitda yazdırır eder
12	seçilen alanları bir kağıtta yazdırır eder
13	bekletme komutu
14	verilen değeri bul yanındakilari kopyala yapıştır.
15	excel userformunu exe yapmak
16	kes kopyalayi iptal et & aç
17	kes kopyalayı iptal etmek & aç
18	Seçilen hücrede comment (açıklama) olup olmadığını tespit etmek
19	Aktif hücrenin içerisinde bulunduğu sayfanın ve dosyanın adının tespit edilmesi
20	Seçili alanda kaç tane formül olduğunu bul ve formül içeren tüm hücreleri seç

Benzer Sonuçlar

Makro Adı

peşpeşe bul komutu

bul komutu aktif sayfada

bul komutu bütün sayfalarda

haftanın gününü bulma

ara-bul komutu

şifrelemede son nokta

30 excel dosyası içinde bir kelime aratma

formülden değere, değerden formüle dönüşüm

ara bul diğer sayfaya kopyala

makroda bul ve kopyala yapıştır