makro pro aktuální datum

No právě bych to potřeboval pomocí makra,protože mám tohle ve škole,a v písemce to po nás bude chtít,tak bych to potřeboval nutně vědět.díky

A po vás chtějí ve škole věci, které jste se neučili?

Jinak by mělo stačit něco takového:

Range("A1").Value = Date

právě že to jsme si měli nastudovat sami,je to hroznej h.... ten profesor

Hm, to si teda dovolil dost, chtít po vás, abyste se něco sami naučili.

to teda ja,ale co naplat,radsi to necham bejt,a nebudu si nejak ztezovat,protoze po vanocich budou zkousky a to by mi taky mohl dat dodatecnej darek budu doufat ze to zitra v testu nebude

funkce měsíc mě napadla,ale nevim,jak to dát dohromady s tim makrem aby po zmáčknutí klávesový zkratky pro makro to napsalo to datum do nějaký aktivní bunky,kterou si předem vyberu

Tak týmto makrom vložíš aktuálny dátum (každý den bude iný-aktuálny dátum) do aktuálnej bunky.
Myšou klepneš na bunku a spustíš makro. Na spustenie makra si môžeš priradiť klávesovú skratku.

Sub Makro()

'Vloženie funkcie "=DNES" "=TODAY()"
    ActiveCell.FormulaR1C1 = "=TODAY()"
'úprava aktuálnej bunky na obyčajnú hodnotu (zrušenie funkcie)
'a to skopírovaním aktuálnej bunky a vloženie iba hodnoty.
    ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

PS - toho ohraničenia bunky sa nelakaj to je výberom pre kopírovanie.
PS2 - to takto na rýchlo bez nejakého rozmýšlania - ber to ako jeden nápad pre tvoju inšpiráciu.

díky moc pomohlo mi to

Rado sa stalo.
Tie komentáre som tam (do makra) vložil na pochopenie.
Uč sa a skúšaj aj sám, napríklad záznamom makra a jeho následnou modifikáciou.
Hodne šťastia v škole a učení.

Niet nič čo by nešlo zjednodušiť. Ovládanie rovnaké.

Sub MakroDatum()

'Vloženie aktuálneho dátumu
    ActiveCell.FormulaR1C1 = Date

End Sub

SORRY za predošlé zložité makro.
Človek sa neustále učí.