Příspěvky uživatele
< návrat zpět
Ahoj,
mám menší trable s jedním reportem a trvá mě docela dlouho dát vše dohromady tak zkouším makro a bohužel se nemůžu dostat k rešení.
Mám excel, ve kterém mám ve sloupcech následující hodnoty:
A = ID zákazníka
B = jméno zákazníka
C = číslo faktury
D = interní ID faktury
E = částka
F = měna
G = datum faktury
H = email
I = stát
J = jazyk
K = details
Potřeboval bych makro, které mě do sloupce K vloží text (ne vzorec), který bude kombinací pevného textu a buňky.
Potřeboval bych něco, co rozezná jazyk ve sloupci J a když jazyk = English, pak do sloupce K vloží text ("Invoice "&C3&" of an amount of "&F3&E3&" due on "&G3&char(10)&"Payment link: ")
... a když jazyk je třeba Dutch, tak se změní jen pevný text který bude nadefinovaný přímo v makru.
Když zkouším vložit vzorec, tak mě to hlásí chybu, protože těch dat skládám dohromady až moc a contatenate mě povolí max 255 znaků, proto bych potřeboval makro, které podle jazyka zkombinuje pevný text a hodnoty z buňek a vloží do sloupce K přímo text.
Budu moc rád za pomoc, if pro další jazyky které potřebuji si už udělám sám a taky pevný text v makru pro další jazyky atd.
Příklad je přímo v přiloženém dokumentu.
Snad jsem to vysvětlil dobře :)
Ahoj,
mám taký problém s jedním vzorcem a nejak se mě nedaří přijít na to... Ve sloupci A mam payment_date a ve sloupci B mám member_id. Do sloupce C bych potřeboval dostat datum poslední platby (nejvyšší hodnotu ze sloupce A), jenže chci datum poslední platby ne celkově, ale na member ID.
...nebo...
ostranit duplicity tak, aby zostala ve sloupci B unikátní hodnota, tzn. jenom jedno member_id, a ve sloupci A datum poslední platby.
díky za radu
Outlook mám, takže to není vůbec problém :) Jen stáhnu outlook, naloguju se do účtu a je to hotovo :)
Ahoj,
vzorový súbor priložený. Pozeral som sa aj na Microsoft web, bohužial nie som až tak advanced vo VBA programovaní, takže pomoc by som velmi velmi ocenil.
Btw, je možné to makro spraviť tak, aby sa len otvoril nový e-mail ale aby sa neposlal? Tzn. Makro prejde všetky riadky z listu "Data_ready", tolko riadkov kolko nájde, tak tolko e-mailov vygeneruje a otvorí nový e-mail.
Do vzorového súboru som vložil aj e-mail body template, takže neviem, či e-mail body template by bol na separátnom liste a variabilné premenné by sa len natiahli z listu "data_ready", alebo by sa text nadefinoval priamo vo VBA kóde. Obe možnosti sú super, hlavne nech to pošle správny text a spávne data na správny e-mail 
Díky vopred za pomoc
Peter
Ahoj,
mám takový problém s větším množstvím výzev, které potřebuju rozselat. Data mám v excelu, ve sloupci A mám e-mailovou adresu príjemce, ve slouci B částku a ve sloupci C text.
Může mě někdo pomoct, jak udělat makro, ktré otevře nový e-mail v e-mailovém klientu pro apple, do příjemce vloží e-mail příjemce, předmět nadefinuji pevným textem "výzva" a do těla půjde: Dobrý den, do dnešního dne nebyla čásktka xx (hodnota ze sloupce B) zaplacena. Pro úhradu kliknete zde (hodnota ze sloupce C). Každý jeden řádek v excelu na "Sešit 1" bude nový e-mail.
díky za pomoc
Ešte dotaz chalani, keď ste tak šikovný.
Cells(i, 14).Value = Sheets("data").Cells(y, 2).Text
Mám tento kód v makru, (i je čítač riadkov), ktorý mi kopíruje do Sheetu1 stlpca 14 údaje zo sheetu "data" zo stlpca 2. Lenže v sheetu data v stlpci 2 (stlpec B) mam uložené hodnoty ako text, ktorým sú 4 čísla. Urobil som to preto, aby sa mi zobrazovali aj nuly na začiatku, napr 0019 a neufikly sa nuly na začiatku, čo na sheetu data je, ale keď sa kopírujú informácie na Sheet1, kopírujú sa hodnoty a tie dve nuly na začiatku sa ufiknú a zkopíruje sa mi 19 miesto OO19.
Moc nepomože, ani keď dám do kódu .text miesto .value. Máte nápad ako to poriešit?
díky
Díky moc lubo. Presne toto som chcel, len ako mám par tyzdnov excel v anglictine tak si s niektorymi banalitami neviem poradit diky
Ahoj,
mám rozdělané makro, které me do sheetu1 doplní data ze sheetu2. Soubor přikládám v příloze pro lepší představu. Zeleně vyznačená část je ta, kterou makro doplní natvrdo, žlutě (snad je to žlutá barva, nebo oranžová) je to, co se mě načte z sheet2.
Zasekl jsem se ale u kroku, kdy potřebuju, aby se mě doplnili ještě 4 řádky, s tím, že část by doplnilo makro natvrdo (v dokumentu vyznačeno) a do buňek K13:K16 by dotáhlo SUMIF ze sheetu2.
Soubor v příloze, myslím že po otevření souboru to bude jasnější.
Ďekuji předem za pomoc :) moc mě to pomůže 
Ahoj,
mám kontingenční tabulku, kterou posílám na jiné oddělení a oni mě pak v kontingenční tabulce vyznačí nějaké hodnoty. Já následně rozklikávám každou vyznačenou barvu v kontingenční tabulce, aby se mě otevřeli položky, které tam patří a následně je kopíruju na separátní list. Šlo by udělat nějaké makro, které by barevně vyznačené buňky v kontingenčce otevřelo a zkopírovalo celé řádky na jeden sheet?
kdybych to popsal nějak nesrozumitelně, tak pošlu případně příklad.
díky
Ahoj,
potřeboval bych pomoct s vytvořením funkce nebo makra.
Na listu Sešit1 mám ve sloupci A datumy. Potřeboval bych vzorec nebo makro, který by mě do stejného řádku v sloupci C na list Sešit2 překopíroval datum ve formátu bez teček nebo lomítek a přidal před datum text.
Sešit1, bunka A2 = 13.4.2015 a do Sešit2, bunka C2 by se natáhlo "CARDS_13042015"
díky předem
Ahoj,
mám report, který mám napojený na webovou stránku (formou Data --> Importovat z webu a pak už jenom refreshuji pripojení které v reportu je na databázi).
Natrefil jsem na problém, že na webu se formát měny zobrazuje jako "Kč15,548.25" a když to stáhnu, tak mě to excel není schopen rozeznat, takže jsem si nastavil níže uvedené makro.
Range("F2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0.00 [$CZK]"
Selection.Replace What:="Kč", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.Replace What:=".**", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Může mi prosím někdo poradit, jak mám ten kód přepsat, aby se mě stažený formát "Kč15,548.25" naformátoval na "15 548,25 CZK" protože když použiju svůj kód, tak odstraním i desetinné hodnoty a to nechci.
díky moc
Dobry den,
díky moc, ale uplne neviem či sme sa pochopili tak asi dovysvetlím.
Mám excel súbor, do ktorého som si natiahol data pomocou "Data" --> "Import z webu". Tento report aktualizujem na dennej bázi. Jakmile kliknem na aktualizovat, tak sa mi stiahnu z interného webu data, stlpec A je nazov firmy, stlpec B je čerpanie rozpočtu v percentách a stlpec C je rozpočet. To je zároveň oblasť, ktorá sa mi updatuje. Potom som si k tomu doplnil stlpec D, ktorý nie je súčasťou databáze a do kotérho si píšem komentáre.
Lenže... každá firma čerpá rozpočet inak a jakmile chcem druhý den aktualizovat naimportované data z webu, tak sa mi jednotlivé riadky prehádžu, ale komentáre nie. Ide mi o to, či je možné nejak v exceli nastaviť, aby excel pochopil, že sice hodnoty v stlpci D nie sú súčasťou importovaných dat, ale súvisia s konkrétnym riadkom a mi napríklad nejaká firma zmizne z reportu, tak sa odstráni aj komentár, jakmile sa niečo poprehadzuje medzi riadkami, tak sa komentáre poprehadzujú takisto, aby sedeli k firme, ak sa mi natiahne nejaká nová firma, u ktorej komentár ešte nemám, tak tam komentár nebude, jako keby nejak "prelinkovat" stlpec D aby sa dynamicky takisto menil podla toho, jak sa zaktualizujú importované data.
Snad som to vysvetlil pochopitelne..
díky
Ahoj, mám tady makro, které mě zaktualizuje konrkétní sheet a za tim makrem mám vložene další příkazy, které mě mají stažené data upravit do takého formátu, jaký chci... jenže...
Sub Refresh_Query()
Sheets("Sheet1").Select
Range("B6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
Uvedené makro mě udělá refresh Listu 1, jenomže ono mě to nečeká, dokud se to všechno zaktualizuje ale hned to leze na další příkazy a nečeká na refresh.
Šlo by za to refresh makro vložit neco, co by udělalo to, že další příkazy se mě nespustí dokud neproběhne refresh celého sheetu?
díky
Ahoj,
mám excel sheet, který mám napojený na externí zdroj a ze kterého se mě tahají data kdyz kliknu na "obnovit". Tyto data se nachází ve sloupcích A:H a já jsem si ještĚ k tomu přidal sloupecc "I" s názvem "Comments" do kterého doplňuji komentáře.
Je možné nějak nastavit aktualizaci dat tak, že když mě přibudne nový řádek v databázi nebo mě nějaký zmizne, tak se mě smaže i hodnota ve sloupci I a pokud se neco posune, tak se posune i komentář a komentář zůstane tam kde má a nerozhodí se refreshem.
díky moc
Ahoj,
mám excel ve kterém mám makro a chci aby mě to makro v buňkách M8 až všechno níž projelo uvedené buňka, a pokud buňka obsahuje jakoukoli hodnotu, tak jí smaže a mají mě zůstat jenom buňka, které nejsou vyplněné.
Uvedné makro odkážu udělat naopak, tzn. pokud chci aby mě to smazalo celý řádek, pokud buňka obsahuje konkrétní slovo nebo hodnotu.
Dim a As Range
Dim SrchRngu
Set SrchRngu = ActiveSheet.Range("M8", ActiveSheet.Range("K65536").End(xlUp))
Do
Set a = SrchRngu.Find("RUS", LookIn:=xlValues)
If Not a Is Nothing Then a.EntireRow.Delete
Loop While Not a Is Nothing
Může mě s tím někdo prosím pomoct jak tam mám místo "RUS" nadefinovat to, aby mě nehledalo konkrétní text ale hledalo vyplněné buňka?
díky moc
Uživatelské menu
\nMenu
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.
RSS nejnovější články