Makro Kaç Kez Çalıştı

[baydeniro]

Merhaba arkadaşlar. Ekteki dosyada Gelişmiş Filtre yapan bir makro var. Bu makro AKTAR sayfasındaki verileri Gelişmiş Filtre yardımı ile RAPOR sayfasına aktarıyor. Bu AKTAR makrosunun kaç kez çalıştığını MAKROYU SAY sayfasındaki B1 hücresine yazdırmak mümkün mü ?

İlgilenenlere şimdiden teşekkürler.

 

[mehmett]

Makronun sonuna End Sub'dan önce aşağıdaki satırı ekleyin.

Sheets("MAKROYU SAY").[B1] = Sheets("MAKROYU SAY").[B1] + 1

 

[xxcell]

Koduna kırmızı kısmı ilave edersen sayma işlemini yapacaktır.


Sub AKTAR()
'
' SAY Macro
' Macro recorded 26.04.2007 by ?????? ????
'
' Keyboard Shortcut: Ctrl+Shift+S
'
Worksheets("MAKROYU SAY").Cells(1, 2) = Worksheets("MAKROYU SAY").Cells(1, 2).Value + 1

Range("B2").Select
Range("A4:E14").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:E2"), Unique:=False
Range("A4:E15").Select
Selection.Copy
Sheets("RAPOR").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("AKTAR").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Range("A1").Select
End Sub

 

[baydeniro]

Teşekkürler

Sayın mehmett ve sayın xxcell ilginiz ve cevabınız için çok çok teşekkürler, çok makbule geçti inanın. Elinize sağlık.