Příspěvky uživatele


< návrat zpět

Výška buňky (24.2.2015 12:33)

Ahoj asi jde o triviální problém, nicméně stále se mi nedaří to rozlousknout. Ve formuláři zadávám do textboxu text, který se mi vkládá do sloučených bunek F15:G15. Podle délky zadaného textu potřebuji automaticky upravit výšku bunky a text zalomit. Funguje mi to v případě, že zadávám výšku pevně, ale příkaz AutoFit mi excel proste nesežvejká, což mi nejde do hlavy. Děkuji za rady. Zkoušel jsem to následovně:
Private Sub TextBox1_Change()
Sheets("List1").Range("F15:G15").WrapText = True
Sheets("List1").Range("F15:G15").Rows.AutoFit
'Sheets("List1").Range("F15:G15").Rows.RowHeight = 30
End Sub

VBA adresář a uložení (21.11.2014 16:22)

Dobrý den,

prosím o radu. Potřeboval bych vytvořit adresář s proměnnou jako názvem podle aktuálního datumu, což není problém..následně bych do něj chtěl uložit sešit, ale nevím jak zadat cestu do tohoto adresáře. Děkuji za rady.
Private Sub CommandButton2_Click()
adresar = Format(Now, "yyyymmdd")
MkDir adresar
ActiveWorkbook.SaveAs Filename:="C:\User\215781\????\poptavka" & Format(Now, "yyyymmdd") & ".xlsm"
End Sub


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje