Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Poprawka do makra kopiującego dane między dwoma arkuszami

devastatioon 20 Paź 2014 14:39 864 0
  • #1 20 Paź 2014 14:39
    devastatioon
    Poziom 8  

    Witam, potrzebuję pomocy z makrem.

    Czy ktos zmodyfikuje to makro tak zebym:
    1) Mógł wpisać "z palca" numer wiersza z którego kopiuje (wszystkie kopiowana dotyczą zawsze jednego, wybranego wiersza). Ew. co tez jest dobra dla mnie opcja chcialbym moc wskazac myszka wiersz.
    2) Mógł używać makra do aktualnie otwartego pliku (tego, do którego chcę skopiować)? Ściślej mówiać zamiast tego pliku "DS001_11LBD30CP003.xlsx" chodzi o dowolny plik lub otwarte okno excela


    Code:
    Sub KOPIUJ()
    
    '
    ' KOPIUJ Makro
    '
    ' Klawisz skrotu: Ctrl+k
    '
        Range("267").Select
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("D12:K12").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Range("F267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("D14:K14").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Activewindow.ScrollColumn = 2
        Activewindow.ScrollColumn = 3
        Activewindow.ScrollColumn = 4
        Range("H267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("D15:F15").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Activewindow.ScrollColumn = 5
        Activewindow.ScrollColumn = 6
        Activewindow.ScrollColumn = 7
        Activewindow.ScrollColumn = 8
        Range("M267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("H19:K19").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Range("N267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("D19:G19").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate




        Range("P267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("G20:H20").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Range("O267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("G21:H21").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Activewindow.LargeScroll ToRight:=1
        Range("R267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("D13:K13").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Activewindow.ScrollColumn = 18
        Activewindow.ScrollColumn = 19
        Activewindow.ScrollColumn = 20
        Activewindow.ScrollColumn = 21
        Range("Y267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("D27:G27").Select
        ActiveSheet.Paste
        Windows("0764_Off-Line Instrument List.xls").Activate
        Range("Z267").Select
        Application.CutCopyMode = False
        Selection.Copy
        Windows("DS001_11LBD30CP003.xlsx").Activate
        Range("H27:K27").Select
        ActiveSheet.Paste
    End Sub

    0 0