1. Excel uygulamasını başlatın.
2. Araçlar > Makro menüsünden Makrolar alt başlığına tıklayın.
3. Açılan pencerede Makro adına herhangi bir şey yazıp Oluştur butonuna tıklayın.
4. Bu durumda Visual Basic sayfası açılacaktır. Bu sayfada gördüğünüz herşeyi silip yukarıdaki makro kodunu olduğu gibi bu sayfaya yapıştırın.
5. Bu işlemden sonra Visual Basic sayfasının üst kısmındaki butonlardan Excel simgesi olana tıklayıp Excel çalışma sayfasına dönün.

Çalışma sayfasını kaydedin. Makro, çalışma sayfası ile birlikte kaydedilir.

**********

BASİT MAKRO ÇALIŞMALARI

Alttaki makro A1 ve A2 hücrelerine yazılan rakamları toplayıp 2′ye böler.

Sub topla_böl()
Range("C1") = (Range("A1") + Range("A2")) / 2
End Sub

Alttaki makro A1 ile A10 hücrelerine girilen rakamları B1 hücresine toplam olarak yazar.

Sub Topla()
[B1].Value = Application.Sum([A1:A10])
End Sub

Alttaki makro D1 hücresime A1 ve B1 hücrelerindeki sayıların çarpımını yazar.

Sub Carp()
Range("D1") = Range("A1") * Range("B1")
Range("D1").Formula = "=(A1 * A1)"
End Sub

Alttaki makro 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

Alttaki makro ile aktif sayfadaki formülleri ve toplam formül sayısını mesaj kutusunda gösterebilirsiniz.

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

Alttaki makro aktif sayfadaki formülleri bulup yeni sayfada listeler.

Sub formullistele()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

‘ Create a Range object for all formula cells
On Error Resume Next
Set FormulaCells = Range(“A1″).SpecialCells(xlFormulas, 23)

‘ Exit if no formulas are found
If FormulaCells Is Nothing Then
MsgBox “No Formulas.”
Exit Sub
End If

‘ Add a new worksheet
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = “Formulas in ” & FormulaCells.Parent.Name

‘ Set up the column headings
With FormulaSheet
Range(“A1″) = “Address”
Range(“B1″) = “Formula”
Range(“C1″) = “Value”
Range(“A1:C1″).Font.Bold = True
End With

‘ Process each formula
Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row – 1) / FormulaCells.Count, “0%”)
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = ” ” & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell

‘ Adjust column widths
FormulaSheet.Columns(“A:C”).AutoFit
Application.StatusBar = False
End Sub

Alttaki makro aktif hücredeki formülü mesaj kutusunda gösterir.

Sub AddressFormulasMsgBox() 'Displays the address and formula in message box
For Each Item In Selection
If Mid(Item.Formula, 1, 1) = "=" Then
MsgBox "The formula in " & Item.Address(rowAbsolute:=False, _
columnAbsolute:=False) & " is: " & Item.Formula, vbInformation
End If
Next
End Sub

Alttaki makro seçtiğiniz hücrelerdeki formülleri açıklama olarak yazdırır.

Sub formulacikla()
Dim cell As Range
Selection.ClearComments
For Each cell In Selection
If cell.HasFormula Then
cell.AddComment cell.Formula
cell.Comment.Visible = False
cell.Comment.Shape.TextFrame.AutoSize = True
End If
Next cell
End Sub

Alttaki makro hücrelere verilen isimleri siler.

Sub DeleteRangeNames()
Dim rName As Name
For Each rName In ActiveWorkbook.Names
rName.Delete
Next rName
End Sub

Alttaki makro B1:G13 hücreleri arasındaki verileri 0 (sıfır) yapar.

Sub ResetTest1()
For Each n In Range("B1:G13") ' Substitute your range here
If n.Value <> 0 Then
n.Value = 0
End If
Next n
End Sub

Alttaki makro aktif hücreye girilen rakamları statusbarda toplar.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim myVar As Double
myVar = Application.Sum(Columns(Target.Column))
If myVar <> 0 Then
Application.StatusBar = Format(myVar, "###,###")
Else
Application.StatusBar = False
End If
End Sub

Alttaki makro Toplam formülünü her defasında bir alta toplar.

Sub Addieren()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
rng.Formula = "=SUM(A1:A" & rng.Row - 1 & ")"
End Sub

VBA yazılan formüllere kesin başvuru işareti koymak için kullanılan kodlar ($A$4)

Sub VariableInFormel()
Dim iCol As Integer
iCol = Range("B1").Value
Range("B2").Formula = _
"=SUM(R1C" & iCol & ":R100C" & iCol & ")"
End Sub

Makroları kendi ihtiyaçlarınız doğrultusunda değiştiribelir ve geliştirebilirsiniz.

Beğendiysen paylaşşş...

İşte bu tür işlemler için kullanılabilecek kullanışlı bir makro imdadımıza yetişiyor. Yukarıda anlatılan benzer bir sorunu saniyeler içerisinde halledebilirsiniz. Alttaki makro kodunu Excel çalışma kitabınıza entegre ettikten sonra Çalışma sayfasında dolu satırlar arasındaki boş satırları otomatik olarak sildirebilirsiniz.

Makro Kodu:

Sub Sil()
Application.ScreenUpdating = False
        Dim i As Integer
        t = ActiveSheet.UsedRange.Rows.Count
            For i = t To 1 Step -1
                If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
            Rows(i).Delete Shift:=xlUp
        End If
   Next i
Application.ScreenUpdating = True
End Sub

Makroyu Kaydetmek için;

• Excel çalışma sayfası açıkken “Araçlar > Makro > Visual Basic Düzenleyici” yolunu izleyin.
• Açılan Visual Basic düzenleme pencersenide sol taraftaki “Module1” başlığına tıklayın.
• Sağdaki alana yukarıdaki makro kodunu kopyalayıp aynı şekilde yapıştırın ve kaydedin.

Şimdi çalışma sayfanızdaki dolu satırlar arasında kalan boş satırları silmek için “Araçlar > Makro > Makrolar” yolunu izleyin. Burada oluşturduğumuz “Sil” adındaki makroyu görebilirsiniz. Seçili hale getirip sağdaki “Çalıştır” butonuna tıklayın. Artık belgenizdeki boş satırlar temizlenmiştir. İsterseniz makroyu çalıştırmak için belgenizde bir buton da oluşturabilirsiniz.

Konu ile ilgili uygulama dokümanını alttaki linkten indirebilirsiniz.

Kolay gelsin.

Boyut: 7.5 KB

Beğendiysen paylaşşş...

Not: Eger dosyayı acarken bir uyarı alıyorsanız exceli açın ve Araçlar > Seçenekler > Güvenlik > Makro Güvenliği > Düşük Seçin ve Exceli çalıştırın.

Dosya Boyutu: 2.2 MB

DOWNLOAD

Beğendiysen paylaşşş...

İÇİNDEKİLER

I. MAKROLAR

A. Makro Nedir
B. Makro Türleri

II. MAKRO GELİŞTİRME

A. Makro Geliştirmede Kullanılacak Adımlar
B. Makro Iletişim Kutusu
C. Makro Senaryoları
D. MAKROYU ÇALIŞTIRMA YÖNTEMLERI

1. Makroyu Microsoft Excel Tool Menüsünden çalıştırmak
2. Makroyu bir düğme,çizim nesnesi yada grafik yardımı ile çalıştırmak.
3. Bir nesneye bir makro atama adımları
4. Makroyu Klavye kısayolundan çalıştırmak
5. Makroyu Araç çubuğu butonundan çalıştırmak.
6. Makroyu bir özel olaya bağlı olarak çalıştırmak.
E. MAKRO DÜZENLENME
1. Create Macro yöntemi ile Makro oluşturmak.

III. EXCEL 97 VBA

A.Visual Basic Editörü

1. Özellikler Penceresi
2. Proje Gezgini
3. Kod Penceresi

B. Bir Procedure’ın Yapısı

1. Genel Yordamlar
2. Olay Yordamları
3. Fonksiyonlar

C. Nesneler

1. Özellikler
2. Nesnelerinin Önemli Özellikleri
3. Metotlar
4. Nesnelerin Önemli Metotları

D. Gösterim

1. A1 gösterimi ile hücre ve aralik.
2. İndeks Numarası Kullanarak Hücre Gösterimi
3. Satır ve Sütunların Gösterimi
4. Kısayol Gösterimin Kullanılması
5. Adlandırılmış Hücrelerin Gösterimi
6. Göreceli Adresleme
7. Range Nesnesi Kullanarak Hücre Gösterimi
8. Çalişma Tablosundaki Bütün Hücrelerin Gösterimi

E. Temel Giriş Çikiş Deyimleri

1. MsgBox Deyimi
2. MsgBox Fonksiyonu
3. Giriş Kutularınının Kullanımı

F. PROGRAM DENETIMI

1. Döngüler
2. Do…Loop Deyimi
3. Bir Koşul Doğru Oluncaya Kadar Döngü
4. For…Next Deyimi
5. Karar Yapıları
6. If…Then…Else Deyimi
7. Select Case Deyimi

 Yüklemek için TIKLAYIN

Beğendiysen paylaşşş...