Elnino, moc děkuju! To první makro funguje a ukládá perfektně, to druhé opět převádí na datum, ale to nevadí, používám to první. Díky
Elnino, ještě asi snad drobnost, nešlo by, aby ty výsledné sešity uložil s hodnotama jako text? Funguje to skvěle, ale stalo se, že mi pár buněk uložil jako datum. (např: 3758/4/11 na 11.4.3758). To mi pak hází při importu chybu. Děkuji za ochotu.
Elnino, ne +-, to je přesně ono. Mockrát Vám děkuji!
Zkusím to napsat ještě jednodušeji. Budu mít například sešit s jedním listem, kde bude 15.000 řádků se záhlavím. Po dokončení by měly být vyexportovány 3 sešity. První s řádky 1-5000 včetně původního záhlaví, druhý 5001-1000 včetně původního záhlaví, třetí 10001-15000 včetně původního záhlaví.
Zdravím Vás Elnino, ideálně takto. Budu mít na ploše složku s názvem Importy, ve které bude 1 prázdný sešit s makrem.
1. Já tento sešit otevřu a vložím do něj data ze schránky (různý počet sloupců i řádků, jak kdy.)
2. Postačí jedno tlačítko s makrem, které vyexportuje do stejné složky nové xlsx sešity 01, 02, 03 atd. Tyto sešity budou obsahovat pouze zmíněný počet řádků tak jak jsem psal v úvodu (5000). Nic se nikde nebude vynechávat, ani nic není skryté, zkrátka vyexportuje všechny řádky a sloupce po oněch 5-ti tisících řádcích.
3. Jediná podmínka je, aby zůstal vždy první řádek (záhlaví) stejný.
Jednoduše řečeno, potřebuju to mít na více částí abych to mohl importovat následně postupně do shopu a neomezil mě časový limit.
Moc Vám děkuji Elnino!
Zdravím, potřeboval bych poradit s makrem, které exportuje otevřený list do několika sešitů do stejné složky. ideálně po 5-ti tisíci řádků s tím, že záhlaví musí být vždy zachováno (řádek 1.). Jde mi o to, že data importuji na shop, který díky časovému limitu není schopen zpracovat tolik dat (třeba 40t řádků a já to musím nahrávat po částech. Takže ideální by bylo oněch 5t řádků, to mám vyzkoušené. Moc děkuji za ochotu.
Elnino, vy jste to ještě dovedl k dokonalosti s výběrem sloupce. Moc děkuji!
Zdravím, potřeboval bych poradit s makrem. Mám složku na ploše, ve které mám 8 xlsx sešitů (názvy třeba sesit-1, sesit-2 atd.) a já potřebuji vytvořit makro, aby mi ve všech odstranil určitý sloupec (v tomto případě sloupec FM) a vše opět uložil (přepsal). Moc děkuji za čas a ochotu.
Dodatečně moc děkuju.
Dobrý den, používám tento kód pro odesílání emailu skrze ovládací tlačítko v excelu. Potřeboval bych ale, aby se mi do těla emailu vložil obsah aktuálního listu. Poradíte mi prosím někdo, jak na to? Moc předem děkuji!
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "test@seznam.cz"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Dobře, děkuju Ti a brzy se uzdrav, přeji hezké Vánoce!
Elnino, žiješ, kdyžtak klidně napiš, pokud ses tím nechceš zabývat, ať to pustím z hlavy. Vůbec se zlobit nebudu, už tak si mi pomohl hodně!
Ano Elnino, to nahrazení je tak unikátní, že bude opravdu jen
v tom metaTitle cz a en. Akorát, jak jsem psal to musí nahrazovat v každém tom výstupním .csv souboru něco jiného. Jsem moc rád, že si na mě uděláte ještě čas. Děkuji!
Lugre, to vůbec nevadí, i tak jste mi pomohl. Doteď jsem to dělal ručně, tak to budu dělat dál Jen mi nejde do hlavy, že to normálně edituju v excelu a nakonec dám jen uložit změny a je to OK, tak proč to nejde automaticky makrem.
Tak vidím, že to asi nemá řešení, nepomohl by jste mi alespoň někdo s tím makrem do csv, aby se nezměnil formát? Já to nějak uzpůsobím alespoň po jednom. Děkuji moc
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.