YİĞİT KAZANÇ


MAKRO
MAKRO NEDİR:
Eğer Microsft Excel’de belirli ibir işi tekrarlı olarak (yinelemeli) yapıyorsanız, bu işi makro ile otomatik hale getirebilirsiniz. Örneğin her ay sonu yaptığınız işlemler. Makro, belli bir işi yapmak üzere her istediğinizde çalıştırabileceğiniz bir Visual Basic modulü içersine depolanmış komutlar ve fonksiyonlar dizisidir. Makro kaydetmek tıpkı bir kasete müzik kaydetmeye benzer. Bir kez kaydedilen müzik nasıl tekrar tekrar çalınabiliyorsa bir kez kaydedilen makro da tekrar tekrar çalıştırılabilir. Makro kaydetmeye yada yazmaya başlamadan önce makronun yapacağı işe göre kullanılacak komutlar ve adımlar planlanmalıdır. Çünkü özellikle kayıt makrosu oluşturulurken bir hata yapılırsa hatayı düzeltme adımları da kaydedilecektir. Her yeni bir makro kaydedişinizde; makro, çalışma kitabına eklenen bir modül sayfasına saklanır.

MAKRO AÇMA
ARAÇLAR > MAKRO > YENİ MAKRO KAYDET

A1 ve A2 hücrelerine yazılan rakamları toplayıp 2′ye bölme
Sub topla_böl() Range("C1") = (Range("A1") + Range("A2")) / 2 End Sub

A1 ile A10 hücrelerine girilen rakamları B1 hücresine toplam olarak yaz
Sub Topla() [B1].Value = Application.Sum([A1:A10]) End Sub



D1 hücresime A1 ve B1 hücrelerindeki sayıların çarpımını yaz
Sub Carp() Range("D1") = Range("A1") * Range("B1") Range("D1").Formula = "=(A1 * A1)" End Sub

ilk sayfayı aktif eder, A3 hücresine 5 yazıp, A4 hücresine formül oluşturur.
Sub degerformul() Worksheets(1).Activate ActiveSheet.Range("A3").Value = 5 ActiveSheet.Range("A4").Formula = "=A5+B8" End Sub

FORMÜLLERİN YERİNİ SÖYLEME
Sub formullerim() Dim R As Integer R = 0 Range(Cells(1, 1), Selection.SpecialCells(xlLastCell)).Select For Each Cell In Selection If Left(Cell.Formula, 1) = "=" Then R = R + 1 End If Next Cell Selection.SpecialCells(xlFormulas, 23).Select MsgBox "Toplam " & R & " Formül " & _ ActiveSheet.Name & " Adlı Sayfada Bulundu" End Sub

SiTeMiZ NasIL