Makro_podle AktiveCell vyber buňku ve sloupci a řádku

[Greg.]

Zdravím,
neumím si poradit. Potřeboval bych makro aby podle aktivní buňky byl vybrán sešit (zapsán v buňce nad) a zkopírovány dvě buňky na řádku aktivní buňky.
Příklad z obrázku obrázku je : otevři List5 a zkopíruj B5:C5
Pokud by aktivní buňka byla na E7 pak by platilo : otevři List3 a zkopítuj B7:C7

Díky za pomoc

[Reklama]

[mikel]

Tady máš to makro podle tvého zadání:

Kód: Vybrat vše

Sub pc_help()
  radek = ActiveCell.Row                       'řádek aktuální buňky
  sloupec = ActiveCell.Column                  'sloupec aktuální buňky
  název_listu = Cells(3, sloupec).Value        'načte název listu pro aktuální
                                               'buňku (vždy ve 3.řádku a akt.sloupci)
  Range(Cells(radek, 2), Cells(radek, 3)).Copy 'zkopíruje buňky ve 2-3.sloupci akt.řádku
  Sheets(název_listu).Paste                    'vloží do načteného listu
End Sub

... a ve zjednodušeném tvaru

Kód: Vybrat vše

Sub pc_help2()
  Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 3)).Copy
  Sheets(Cells(3, ActiveCell.Column).Value).Paste
End Sub

[Greg.]

.. to vypadá dost sexy .... díky