Příspěvky uživatele

Zdravím po delší době.
Elnino, od té doby, co jste mi poradil s makrem na odstranění určitých sloupců ze sešitů v určité složce toto makro hodně používám a velmi mi to usnadnilo práci (Ještě jednou moc děkuji!). Jen bych se ještě zeptal. Lze do té buňky, kde se vkládá který sloupec se má odstranit vložit hodnotu, aby se odstranily sloupce třeba na přeskáčku? Když například vložím FM, odstraní se sloupec FM, když vložím FM:FN, odstraní se tyto dva za sebou jdoucí sloupce, ale co mám zadat, když chci například odstranit sloupce, které nejdou za sebou? Například A, C, FM? Moc děkuji za ochotu!

Zdrojové formáty jsou různé (tedy data, z kterých to kopíruju do schránky), nicméně do Vámi vytvořeného sešitu s makrem to vkládám jako hodnoty, takže by asi mělo záležet na formátování tohoto sešitu. Ještě se vrátím k mé poslední odpovědi, kdy jsem psal, že to druhé makro převede na datum. Nepoužívám ho, používám to první, vše funguje skvěle, až na jednu jedinou věc. Kopíroval jsem cca 37.000 řádků, vše mi krásně rozkouskoval po 5.000 (nastavil jsem tuto hodnotu v makru, místo Vašich 5). Vytvoří mi tedy 8 sešitů, které postupně importuju. Vše jde dobře, až na ten poslední, kdy mi import nahlásí chybu. Mám tušení, že v tom posledním souboru jsou nějaké hodnoty v buňkách mimo rámec řádků, které jsou do něj vyexportovány. Otevřel jsem tedy ten sešit 8 o odstranil vše od posledního vyplněného řádku a uložil a import proběhl hladce. Asi bych s tím ale klidně dokázal žít:-) Možná by bylo opravdu nejlepší zkusit to, jak jste psal "tak urobíme klasickú metódu Copy + Paste", pro tyto účely by to určitě stačilo.

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!

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje