Excel - makro na zkopírování buňky tlačítkem

[AdosKokos]

Zdravím. Potřeboval bych pomoct od zkušenějších. Není v mých dovednostech přijít na tuto věc.

Mám sešit, s makrem, které ho obnovuje každých 5s. Dál mám v buňce aktuální čas, ale potřeboval bych do jednoho řádku tlačítko, na který když zmáčknu, tak se zkopíruje jednorázově aktuální čas (čili aby se sám dál neobnovoval a celej den tam zůstalo například 15:35) do určité buňky ve stejným řádku jako je tlačítko. Takhle by měl každý řádek vlastní tlačítko.

Hledal jsem jak jsem uměl, ale nikde jsem nenašel přesně to co bych potřeboval. A VBA sám zatím bohužel moc neovládám. Byl bych vám moc zauzlován, kdybyste mi dokázali pomoct.

Adam

[Reklama]

[cmuch]

Vítej na PC-Help

Tady je makro.

Kód: Vybrat vše

Sub tlacitko()

Dim MyHour, MyMinute

MyHour = Hour(Now)
MyMinute = Minute(Now)

Range("A1") = MyHour & " : " & MyMinute

End Sub

Po spuštění se zkopíruje aktuální čas do buňky A1.

Pokud to budeš chtít pro každý řádek zvlášt, tak si musíš toto makro namnožit

A nebo mít jedno tlačítko a do řádku do kterého by si chtěl vložit čas tak ho mít označen a pak zmáčnout (spustit),
vloží se do sloupce A.

Kód: Vybrat vše

Sub tlacitko()

Dim MyHour, MyMinute
Dim radek As Long

radek = ActiveCell.Row

MyHour = Hour(Now)
MyMinute = Minute(Now)

Range("A" & radek) = MyHour & " : " & MyMinute

End Sub


[AdosKokos]

Díky moc!! Mezitím sem to vyřešil jinak, ne zrovna elegantně :-/ To tvoje druhý řešení se zdá super, ale přecejenom tam musí člověk kliknout dvakrát, kdežto u prvního řešení jen jednou.

Existuje u prvního řešení nějakej způsob aby se mi dali tlačítka do každýho řádku ve sloupci A, aniž bych to musel psát po jednom? Nebo aspoň prvních 100 řádků. Popřípadě co přesně myslíš tím "namnožit"?

Ještě jednou díky za pomoc.

[pavel.lasak]

nebylo by vhodnější reagovat na klik buňky (vloží se čas) a nemusí být tlačítko?

[AdosKokos]

To by zase mohlo způsobit omyl, že kliknu na buňku a přepíše se mi čas co tam byl předtím. Tlačítko bych chtěl z důvodu, abych jednoznačně věděl, že ten čas je z okamžiku kdy sem to vědomě chtěl.

[pavel.lasak]

Pokud už v buňce čas bude nepůjde přepsat, navíc můžu kontrolovat zda je v předchozí buňce již čas zapsaný a poté teprve zapsat.

Co je cílem tohoto zapisování? Třeba půjde vyřešit elegantněji než přes mnoho tlačítek.

[cmuch]

Předchozí otázka je dobrá,
jinak toto vlož do modulu makra a pohraj si stím.

Kód: Vybrat vše

Sub pridejtlacitka()
'
Dim posundolu As Variant

posundolu = 0
'
For a = 1 To 100
' prida tlacitko ( umisteni vpravo, dolu, sirka, vyska tlacitka) a prirazeni nazvu makra
    ActiveSheet.Buttons.Add(337, posundolu, 73.5, 13.5).OnAction = "tlacitko"
 
    posundolu = posundolu + 15
Next a
   
End Sub

Kód: Vybrat vše

Sub tlacitko()

Dim MyHour, MyMinute
Dim tlacitko, radek As Long

MyHour = Hour(Now)
MyMinute = Minute(Now)

'zjisteni nazvu tlacitka
tlacitko = Mid(Application.Caller, 10)

'nazev tlacitka je i radek
radek = tlacitko

'vlozeni do sloupce A
Range("A" & radek) = MyHour & " : " & MyMinute

End Sub

To namnožit znamenalo, že si to mnohokrát zkopíruješ

[AdosKokos]

Díky! Zkusím si s tím pohrát.

Pokud už v buňce čas bude nepůjde přepsat, navíc můžu kontrolovat zda je v předchozí buňce již čas zapsaný a poté teprve zapsat

Ono je právěže potřeba ho přepisovat - ale jen když je potřeba.

Abych to nastínil, v řádcích sou jednotlivé položky které se vztahují ke skutečným věcem, které provádí nějakou činnost. Každých 15 minut je potřeba provést akci k těmto věcem, a k tomu má sloužit tabulka v excelu, která mi ukáže "Pozor, tahle věc už je 15 minut bez akce". Jakmile akci provedu tak si to u položky odkliknu, a ona se mi za 15 minut zase rozsvítí. Původně jsem psal časy ručně, ale klikání tlačítkem je mnohem rychlejší. Snad je to aspoň trochu pochopitelný, nevim jak jinak jednodušeji to vysvětlit.

[pavel.lasak]

Pokud nebude fungovat co navrhl cmuch zkusím nad tím popřemýšlet.