Zdravím, mám prosbu, potřeboval bych vytvořit makro, které by fungovalo následovně:

zakliknu si buňku(např. A10) (v praxi tam bude již vepsané číslo zakázky) poté co spustím makro tlačítkem, se stane že :

od té zakliknuté buňky(A10) mi to do další buňky vpravo (B10) vloží aktuální datum, do další buňky (C10) text "Vypracování el. sch." , do další buňky (D10) text "NOVÁK", a do buňky (F10) se zapíše Datum expedice: s tím že že objeví dialogové okno které se mě zeptá na vložení data(třeba 10.09.2018), takže v buňce (F10) bude "Datum expedice: 10.09.2018"

příklad: (A10)2018-01234, (B10)30.08.2018, (C10) Vypracování el. sch., (D10) Novák, (F10) Datum expedice: 10.09.2018

nějaké makro jsem už pomocí zaznamenání makra vysmyslel, ale samozřejmě mi vůbec nefunguje a potřebu odladit, nevím, jak udělat krok že se od aktivní buňky posunu o buňku vpravo
dále mám problém s tím dialogovým oknem, asi jsem použil špatný kód.... PŘEDEM DÍKY ZA POMOC

Sub Makro1()

Dim MojeRange As Range

ActiveCell.Select
Set MojeRange = Range(ActiveCell).Offset(0, 1)
MojeRange.Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Set MojeRange = Range(ActiveCell).Offset(0, 1)
MojeRange.Select
ActiveCell.FormulaR1C1 = "Vypracování el. sch."
Set MojeRange = Range(ActiveCell).Offset(0, 1)
MojeRange.Select
ActiveCell.FormulaR1C1 = "Novák"
Set MojeRange = Range(ActiveCell).Offset(0, 2)
MojeRange.Select
MojeHodnota = InputBox("Za dvojtečku dej mezeru a vlož aktuální dautm", "Datum expedice:", "Datum expedice:")
End Sub