elninoslov napsal/a:
Urobil som Vám tam radšej aj kompletný popis makra.Příloha: 44183_skopiruj-nove-ceny2popis.zip (45kB, staženo 9x)
Zdravím Vás Pane.
Chcel by som Vás poprosiť ešte o radu.
Veľmi ste mi pomohli s vyššie uvedeným problémom.
Snažím sa ešte doplniť do toho Vášho makra to, že keď prebehne prepis starých cien za nové, tak sa hneď aj do tých buniek vloží komentár v ktorom sa zapíše aktuálny dátum, kedy prebehlo precenenie daného artiklu a ceny.
Našiel som takéto makro, ktoré funguje, ale nedarí sa mi to dosadiť do Vášho makra. Vedeli by ste mi prosím pomôcť ?
Ďakujem.
Sub DatedComment()
Dim pComment As Comment
Dim WorkRng As Range
Set WorkRng = Application.ActiveCell
Set pComment = WorkRng.AddComment(Application.UserName & ":" & vbLf & Now & vbLf)
pComment.Shape.TextFrame.Characters(1, VBA.Len(Application.UserName) + 1).Font.Bold = True
End Subcitovat