Farklı tarihlerdeki verileri kopyala-yapıştır

[hamemo]

Merhaba,

1 adet excel tablosundan (ana tablo) 6 adet farklı excel tablolarına her gün aynı verileri tablolardaki aynı yerlere copy-past special yapıyoruz. Mesela bugün ayın 2'siyse, ayın 1'inin değerlerini internetten ana excel tablosuna işliyoruz, ardından diğer tabloların 1. gününe bu verileri copy-past special yapıyoruz (Her gün 1 gün öncenin verilerini tablolara işliyoruz).

Benim istediğim şey; her gün yaptığımız bu kopyala-yapıştır işlemini bir tuşa makro atayarak otomatik hale getirmek (Her güne ayrı tuş atayabiliriz). Excel tablolarında kopyaladığımız ve yapıştırdığımız yerler değişmiyor. Sadece gün ve ay bilgileri değişiyor. Ben örnek daha iyi anlaşılsın diye makro kaydedici ile yazdığım makroyu aşağıya yapıştırıyorum.

Sub Düğme7154_Tıkla()
'
' Düğme7154_Tıkla Makro
'

'
    ActiveWindow.SmallScroll Down:=3
    Sheets("01").Select
    Range("B37:V37").Select
    Selection.Copy
    Windows("TABLO1_MART_2018.xlsx").Activate
    ActiveWindow.SmallScroll Down:=-21
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ANATABLO_MART_2018(makro).xlsm").Activate
    ActiveWindow.SmallScroll Down:=12
    Range("D45:S45").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("TABLO3.XLSX").Activate
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ANATABLO_MART_2018(makro).xlsm").Activate
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.SmallScroll Down:=-27
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    Range("AC5:AC28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("TABLO6_MART_2018.xlsm").Activate
    Sheets("01").Select
    Range("D4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ANATABLO_MART_2018(makro).xlsm").Activate
    Range("AB5:AB28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("TABLO6_MART_2018.xlsm").Activate
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("TABLO5_MART_2018.xls").Activate
    ActiveWindow.SmallScroll Down:=-24
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ANATABLO_MART_2018(makro).xlsm").Activate
    Range("R5:R28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("TABLO6_MART_2018.xlsm").Activate
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("TABLO3_MART_2018.xls").Activate
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ANATABLO_MART_2018(makro).xlsm").Activate
    Sheets("TABLO4").Select
    Range("J2:M2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("KÜPST.XLS").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ANATABLO_MART_2018(makro).xlsm").Activate
    Sheets("01").Select
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-3
    Application.CutCopyMode = False
End Sub

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Yazacağınız mesajlarda formül / makro kodu vereceğiniz zaman,
mesaj yazdığınız alanın hemen üstünde sağda bulunan # simgesine fareyle tıklayın ve
mesaj alanında belirecek [ CODE ] ....... [ /CODE ] ayraçlarının arasına yapıştırın.
Böylece FORUM sayfalarını daha verimli ve düzenli kullanmış oluruz.

Sorularınızı; gerçek belgenizin, özel bilgi içermeyen
(özel bilgilerin yerine anlamlı/tutarlı ve aynı türden olmak üzere rastgele veriler yazabilirsiniz)
küçük boyutlu bir kopyası
(varsa formüller/userformlar/kodlar içerisinde ve çalışır durumda olsun)
şeklinde hazırlayacağınız bir örnek belge üzerinden sorarsanız daha hızlı ve net sonuca ulaşabilirsiniz.

Örnek belge yüklerseniz, bir üye mutlaka çözüm önerisinde bulunacaktır

Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.