Příspěvky uživatele

dobrý den,
myslel jsem si že je to jednoduché, ale asi někde dělám chybu.

MÁM buňku kde je datum ve formátu dd/mm/yyyy/hh/mm. Potřebuji jediným tlačítkem změnit hh/mm na pevně daný (např. 8:00), ale zachovat datum. Když jsem to skládal z jednotlivých prvků, hlásí mi to při dalších operacích chybu. Můžete mi někdo poradit? děkuji.

sorry, rucka rychlejší než hlava....

tak nic. Asi to bude nějaká blbost, ale teď v tom nemohu najít logiku. Je to jen základ, ale je to na tom souboru vidět.

dobrý den,
narazil jsem na problém. V UserForm jsem použil svázání textového pole s buňkou (textsource). Pokud použiji datum a čas, mám v buňce jiný formát než v textovém poli. Zkusil jsem použít při inicializaci UF příkaz:

TextBox1.Text = Format$(Date, "dd/mm/yy")
TextBox2.Text = Format$(Time, "hh/mm")

tšch polí tam mám několik, ale funguje to jen u prvního a u datumu. Čas je stále rozhozen, Můžete mi někdo poradit? Setkali jste se s tím?
Dokud se jednalo jen o přehození DD/MM na MM/DD bral jsem to jako nutné zlo, ale teď jesm se zadrhnul s časem a nechce se mi to obcházet skládáním z jednotlivých číslic. Díky moc a príma den

dobrý den,
napsal jsem si makro na mazání dočasných souborů, ale něco se pokazilo a vymazal jsem si ostrá data.

Všechny soubory k mazání začínají TMPxxxxxx. Tedy TMP.
Všechny jsou ve stejném adresáři. Některé mohou být otevřené - ty nemažu.

použil jsem výpis jmen spouborů do řádků pod sebe, pak jsem do buněk vložil vzorec na smazání od 4tého znaku dál a co bylo TMP jsem smazal (název jsem předtim zkopíroval do vedlejšího sloupce)

Celé je to kostrbaté řešení a jak vidno i nespolehlivé. Nemáte někdo prosím nápad na něco elegantnějšího? děkuji moc.

zdravím,
použil jsem pro userform prvek multipage. Vše funguje, ale nevím jak vyvolat inicializační proceduru. Potřebuji načíst do formuláře texty. Zkoušel jsem hledat, ale asi jsem měl smůlu. Můžete peosím pomoci? děkuji.

dobrý den,
narazil jsem na problém. Pro tisk mám vygenerovaný výstup. počítám si řádky na stránku a potom přidávám v programu prázdné řádky aby mi jednotlivé tabulky nezačínaly na konci stránky a text byl na další. Potud dobré. Teď potřebuji přidat na začátek text z textového pole. Pokud to nechám na zalamovaném řádku, snížím počet řádků na stránku a to tak že nemám přehled.

Existuje nějaké funkce jak zjitit programem kde bude konec stránky při tisku? Nebo naopak, jde nechat "odstránkovat" nějakým příkazem? Snažil jsem se najít, ale nebyl jsem úspěšný. Děkuji předem za jakoukoliv radu či nápad. Pěkný den.

hezký den všem,
můžete mi prosím poradit, jakým příkazem lze z tlačítka v userform spustit sub který je v module?
zkoušel jsem call a run, ale bezvýsledně. Děkuji předem.

jen dotaz na okraj - co musím v PC mít nainstalováno aby mi daný skript nehlásil invalid operaci? dík.

Dobrý den přeji,

prosím o radu. Lze nějakým příkazem VBA smazat soubor, jež není sešitem excel? Jde mi o to, že mám skript na zobrazení souborů které nejdou automaticky převést na data společně se vstupní tabulkou. Po ručním přepsání bych chtěl soubor smazat. Soubory umisťuji v podadresáři INBOX.jsou to soubory různé - tif, jpg, pdf atd. Děkuji moc předem za každou radu.

díky moc,jdu si hrát. Dám vědět. Normálně by mě to nevadilo, ale těch souborů je víc a zpomaluje mi to otevírání na síťi.

díky za radu. Já to upřesním, nejde o to zobrazit obrázek. Ale o to, že když se smaže (předpokládám,že DELETE je smazání), naroste sešit na 3 až 5Mb. Takže někde je něco co tam být nemusí. Ale jak se toho zbavit?

zkouším , zkouším a nic. Prosím, nemáte někdo nápad jak na to? Děkuji předem.

Přeji dobrého dne,

prosím o radu.
Mám sešit, kde na jednom listu otevírám příkazem obrázek.
ActiveSheet.picture.insert cesta + jméno.
Jedná se o scan dokumentu, z něhož se vypisují hodnoty do tabulky. Formát tiff, velikost obrázku kolem 50k. Obrázky jsou ve své složce.
Zavírám příkazem:
ActiveSheet.picture.delete

Vše funguje. Jen po otevření a zavření obrázku se mi velikost listu zvětší. Před otevřením měl celý sešit kolem 200k, po otevření a zavření téměř 4M. A to prodlužuje otevírání (jede to na síti).
Lze s tím něco udělat? Nějak mi došly nápady.
Děkuji moc.

tak toto fakt funguje. Sice na začátku varuje že to za mě posílá email, ale myslím že to souvisí se zabezpečením PC.

Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "automaticky odesílaný email VBA -EXCEL"
Email_Send_From = "odkoho@mail.cz"
Email_Send_To = "komu@mail.cz"
Email_Cc = ""
Email_Bcc = ""
Email_Body = "bezva, funguje to"
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje