Sub vlastnizahlavi()
Dim poznamka As String
poznamka = InputBox("Zadej vlastní záhlaví :", "OKNO", "")
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Text 123456 + : " & poznamka
.RightHeader = ""
End With
End Sub
citovat
Zaslal/a Scraper 15.3.2024 12:34
Ahoj ,dobrý den ,
v příloze mám vzorek souboru s makrem , které by mělo zapsat do záhlaví vlastní text zadaný pomocí proměnné z InputBoxu.
pokud je záhlaví prázdné tak se tam data vepíšou , ale pokud sešit znovu otevřu a zadám jiné hodnoty tak zůstane záhlaví stejné- původní. Musím jej ručně odmazat a pak se nová proměnná zase vepíše. Potřeboval bych aby si to uživatel mohl sám zadat pomocí VBA. Děkuji za pomoc. SV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.