Ahojte,
potreboval by som poradiť ako zadefinovať podmienku do makra v Exceli - chcem ukladať súbor s dátumom:
v aktuálny deň do polnoci teda napríklad nech sa mi to ukladá ako aktuálny dátum, ale po polnoci, teda na druhý deň už to musím riešiť že je to akože za včera a nech to má včerajší dátum.
Doteraz som používal vynikajúcu formulku ktorú ste mi tu a aj inde poradili, tá však nerieši prechod cez 24 hodín..
Príklad tu:

a = Sheets("XX").Range("A1").Text
FJmeno = Sheets("XX").Range("A2").Text
FDoplnok = Sheets("XX").Range("A1").Text
b = FJmeno & FDoplnok & Format((Now() - 1), "_dd.mm.yyyy")
Sheets("XX").Select
soubor = "Y:\XX\XX\XX\XX\XX\XX\" & b & ".xlsm"
ActiveWorkbook.SaveAs Filename:=soubor

Ďalej tento súbor exportujem do Wordu, ale potreboval by som exportu zadefinovať nech mi aspoň okraje nastaví na úzke pretože mi to bunky rozhadzuje a v nastavení strany na výšku sú niektoré bunky za pravým zobraziteľným okrajom.
Na export používam toto:

'Sub export_excel_to_word()
Set obj = CreateObject("Word.Application")
obj.Visible = True
Set newObj = obj.Documents.Add
ActiveSheet.UsedRange.Copy
newObj.Range.Paste
Application.CutCopyMode = False
obj.Activate

Ďakujem všetkým ktorí si nájdu troška času, prílohu dám neskôr, neviem to zatiaľ ani vložiť do rubriky Excel, nejako zvláštne sa mi v poslednom čase po prihlásení zobrazuje stránka Porady.

Ešte raz vďaka