Pomoc s makrem

[Jan Lejsek]

Zdravím,

potřeboval bych pomoct s vytvoření makra s následujícím principem:

Potřeboval bych do jednoho sloupce a jeho jednotlivých buňek vytvořit tlačítka, které spustí makro, které vloží text do vedlejší buňky. To se mi povedlo, ale musel bych jednotlivá makra v editoru kopírovat pro každý řádek a měnit číslo řádku. Nelze vytvořit nějaký univerzální vzorec, který by vložil text do vedlejší buňky bez nutnosti zadávat číslo řádku?

Dík moc

[elninoslov]

Samozrejme, že by to šlo. Existujú veci ako:

Kód: Vybrat vše

Sub Cudlik()
  ThisWorkbook.Worksheets("Hárok1").Buttons(Application.Caller).TopLeftCell.Offset(0, 1) = Now()
End Sub

ale záleží na tom, ako to máte presne nadesignované, rozsahy a všetko ostatné. Možno by bol vhodnejší iný spôsob ako dbanie o správny počet čudlíkov (napr. dvojklik do bunky, posúvanie jedného jediného čudlíku podľa označenej bunky a pod...). Ale to by ste musel dať prílohu s reálnym rozložením, a reálnou ukážkou. Ale to sa dnes akosi nenosí...