Üç adet makroyu birleştirmek veya tek butona atamak.

[s.savas]

Günaydın arkadaşlar.
Aşağıdaki üç adet makro üç ayrı butona atanmış durumda.
Bu makroları tek makroda birleştirmek veya üç makroyu tek butona tanımlamak mümkün olurmu.
Birde endeks sayfasında I1:I3 hücrelerinde tanımlı adreslerde makro içerisinde çalışabilirmi.
Endeks sayfasındaki I1 de tanımlı adres:
http://www.tuik.gov.tr/PreIstatistikTablo.do?istab_id=664

Sub TEFE_() 
    Range("I1").Select 
      Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("B5:O13").Select
    Selection.Copy
    Windows("Maliyet.xls").Activate
    Sheets("Endeks").Select
    Range("I7:V16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Endeks sayfasındaki I2 de tanımlı adres:
http://www.tuik.gov.tr/PreIstatistikTablo.do?istab_id=654

Sub TÜFE_()
    Range("I2").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("B5:O13").Select
    Selection.Copy
    Windows("Maliyet.xls").Activate
    Sheets("Endeks").Select
    Range("I20:V29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Endeks sayfasındaki I2 de tanımlı adres:
http://www.tuik.gov.tr/PreIstatistikTablo.do?istab_id=661

Sub ÜFE_()
    Range("I3").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("A7:AO115").Select
    Selection.Copy
    Windows("Maliyet.xls").Activate
    Sheets("Endeks").Select
    Range("I37:AW135").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

 

[Necdet]

Merhaba,

İlk makronuzun End Sub dan önce diğer makroları çağırabilirsiniz.

Sub TEFE_()
Range("I1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("B5:O13").Select
Selection.Copy
Windows("Maliyet.xls").Activate
Sheets("Endeks").Select
Range("I7:V16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

TÜFE_
ÜFE_

End Sub

Farklı birşey yapmadan ve kodlarınızı bozmadan bu şekilde kullanabilirsiniz. Sadece TEFE_ yi çalıştıran butonu kullanmış olursunuz, diğerlerine gerek kalmaz.

 

[s.savas]

Bilgilendirme için teşekkür ederim hocam.
I1:I3 aralığındaki linkleri makroya dahil edebilirmiyiz.
Yani makro linki çalıştırmak için excel sayfasından referans almasın.Linkler makroya gömülü hale getirilebilirmi.