MS Excel

Téma: Tlačítko vyčistit list - a dodání dat zpět

Zaslal/a golfino 8.11.2013 10:38

Mám v sešitu tento kod:

Sub Vyčistilist()
'
' Vyčistilist Makro
'
'
If MsgBox("OPRAVDU MÁM VYČISTIT LIST?", vbYesNo, "Potvrzení vymazání") = vbYes Then ' okno z upozorněním o vyčištění formuláře
Range("E4,Q54").Select ' vybere Vámi zadanou oblast buněk
Selection.ClearContents ' vymaže data
Range("A1").Select
End If

End Sub

Smažou se tedy data z buněk "E4,Q54".
A já potřebuju aby potom zpět do buňky Q54 dosadil vzorec "=(DNES)"

A to vše na jedno tlačítko - čím doplnit tedy to makro?

Zaslat odpověď >

zEjnik(8.11.2013 10:56)#016196

Předpokládám, že si myslel vzorec =DNES()

Sub Vyčistilist()

'

' Vyčistilist Makro

'

'

If MsgBox("OPRAVDU MÁM VYČISTIT LIST?", vbYesNo, "Potvrzení vymazání") = vbYes Then ' okno z upozorněním o vyčištění formuláře

Range("E4,Q54").Select ' vybere Vámi zadanou oblast buněk

Selection.ClearContents ' vymaže data

Range("Q54").Formula = "=DNES()"

Range("A1").Select

End If

End Sub
citovat

Dingo(8.11.2013 11:12)#016198

V mém excelu, i když se tváří jako český, líp funguje:
Range("Q54").FormulaR1C1 = "=TODAY()"citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.