▲
Excel Dersleri Excel Dersleri
11

Kesin ve Göreceli Makro Kaydı

Bu derste Excel'de kesin ve göreceli makro kaydını nasıl yapabileceğimizi ve bunların arasındaki farka değineceğiz.

Sunucu masraflarının yüksek olması sebebiyle
AdBlock uygulamanızı bu site için devredışı bırakırsanız sevinirim.
Hepinize Başarılar Dilerim!
▼ sube1 (xlsx) ▼

▼ sube2 (xlsx) ▼

İlk olarak boş bir çalışma kitabı oluşturun ve daha sonra yukarıdaki sube1 ve sube2 çalışma kitaplarını masaüstünüze indirip çalıştırın.

Kesin Makro Kaydı

Sub kesinMakroKaydi()
' kesinMakroKaydi Makro
    Windows("sube1.xlsx").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Kitap1").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:H").Select
    Selection.ColumnWidth = 10.58
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("A12").Select ' Kesin makro kaydında A12 hücresi doğrudan referanslanacaktır.
    Windows("sube2.xlsx").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Kitap1").Activate
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Kesin makro kaydında verilerin bir altındaki hücreye geçtiğimizde A12 hücresinin doğrudan referanslandığını görebilirsiniz.

Göreceli Makro Kaydı

Sub goreceliMakroKaydi()
' goreceliMakroKaydi Makro
    Windows("sube1.xlsx").Activate
    ActiveCell.Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Kitap1").Activate
    ActiveSheet.Paste
    ActiveCell.Columns("A:H").EntireColumn.Select
    Selection.ColumnWidth = 10.58
    ActiveCell.Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ' Göreceli makro kaydında verilerden sonraki ilk hücre göreli olarak referanslanacaktır.
    Windows("sube2.xlsx").Activate
    ActiveCell.Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Kitap1").Activate
    ActiveSheet.Paste
    ActiveCell.Offset(-11, 0).Range("A1").Select
End Sub

Göreceli ya da göreli makro kaydında ise A12 hücresi yerine verilerin sonundaki hücre otomatik olarak belirlenecek bir alt satırındaki ilk hücreye yapıştırma yapılabilecektir.

Sunucu masraflarının yüksek olması sebebiyle
AdBlock uygulamanızı bu site için devredışı bırakırsanız sevinirim.
Hepinize Başarılar Dilerim!
▼ Kesin ve Göreceli Makro Kaydı (xlsm) ▼

Derste kaydedilen kodları görebilmek için yukarıdaki makro içerebilen Excel çalışma kitabını indirebilirsiniz.

Bir sonraki dersimizde VBA kodları ve kısayollarına değineceğiz.

<<< Bir Önceki Ders
Bir Sonraki Ders >>>

Ders Yorumları

Dersle ilgili görüşlerinizi ya da anlamadığınız her türlü konuyu yorum alanına yazabilirsiniz.