Poradna - Makro
hlavní kategorie | zpět | + odpovědět na toto témaMakro - diskuze na toto téma |
Prosím o radu jestli existuje klávesová zkratka na kliknutí čtverečku v pravém dolním rohu buňky.
Jde mi o to že vložím nějaký text (údaje o zakázce která je na několik řádků)do exelu pak si ho přes filtry vyfiltruji, aby byl na každém řádku jen jeden klient vedle si nakopírují připravené vzor který mi od každého klienta vytáhne potřebná data tak abych je měl na jednom řádku. A já pak po kliku na tento čtvereček se mi rozkopírují na všechny aktivní řádky - klienty. Chtěl jsem si na toto udělat makro, ale až na tento klik se mi to nedaří.Výpis z makra:
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$Q$65519").AutoFilter Field:=1, Criteria1:= _
"Jméno a příjmení:"
ActiveSheet.Previous.Select
Selection.Copy
ActiveSheet.Next.Select
Range("I4").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=7
Application.CutCopyMode = False
Selection.FillDown
End Sub
Odkaz na screan http://www.imgup.cz/image/Lhyn Přikládám vzor - i s tlačítkem - pro funkčnost je třeba mít něco ve schránce a být v buňce 1a - jen pak do aby se to roztáhlo na všechny řádky Odpověď Riešiť by sa to dalo aj výhradne pomocou vzorcov, viď príklad list Vzorec. Ale za predpokladu, že dáta vo Vložit majú konzistentnú štruktúru. Teda záznam začína vždy prázdnym riadkom, a má vždy 17 riadkov, na ktorých sú údaje rovnakej štruktúry, rovnako rozmiestnené. Vy to ale tak nemáte, lebo v poslednom zázname máte medzeru uprostred záznamu, a preto Vám nebude fungovať ani tento vzorec ani žiadny iný, a makrom sa to bude tiež obtiažne riešiť, keď bude potrebné neustále zisťovanie či nasleduje prázdny riadok, a či náhodou nieje oddeľovačom záznamov alebo je iba nechcenou medzerou. Ďalej kontrola štruktúry, teda či sú dáta v jednotlivých záznamoch rovnako rozmiestnené. Atď ... Treba skultúrniť tie vkladané info do Vložit. Potom sa to dá ľahko riešiť, napr. aj týmto vzorcom bez makra. A riadky v Pomocná nemusia byť zoradené, použite to ako som predviedol. Odpověď Dík, toto nepomohlo, vkládám tam několik stovek řádku tak že opravdu nezaručím že budou stejné , měli by ale bohužel někdy je více informací a tak se to posune o řádek a i více.
Hol budu muset klikat sám :) Odpověď Dik moc toto funguje dobre
koukam teda na to makro jak je udelane a toto je na me moc složite na dalsí a upravy ale i tak moc dik Odpověď ještě jednou děkuji a omlouvám se že se ještě k tomu vracím, už sem trosku pochopil k tomu jak to funguje tak jsem chtěl ještě trosku rozšířit tabulku o jeden sloupec a to o text pod buňkou Naplánované úkony
dle tvého makra:
Tag = Array("Číslo objednávky: ", "Číslo smlouvy: ", "Jméno a příjmení: ", "Ulice: ", "Č. pop. / č. orient.: ", "Obec: ", "Telefon domů / zam.: ", "Mobil: ", "Typ objednávky: ", "Čas příslibu od: ", "Čas příslibu do: ", "Instrukce: ")
Typ = Array(1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0) '1 - hodnota v bunke, 0 - hodnota vedľa, 2 - hodnota v bunke s prírastkom stĺpcov +1
LT = Len(Tag(0))
počítám že by mělo stačit do řádku Tag = Array (počítám že ten z vožených dat hledá konkrétní slova ) dopsat nakonec: , "naplánované úkony")
jen netuším v řádku Typ = Array (počítám že toto určuje co udělat) jak říci že chci doplnit text pod touto buňkou když dle popisu: '1 - hodnota v bunke, 0 - hodnota vedľa, 2 - hodnota v bunke s prírastkom stĺpcov +1 Odpověď Môžete priložiť príklad s aspoň jednou ukážkou umiestnenia tých dát "Naplánované úkony" ? Podľa času na to mrknem, a snáď Vám to aj nejako popíšem. Odpověď Dík, přikládám teda nový soubor.
Kde mám tebou udělané makro upravené (Makro test)
toto makro se mi spouští tlačítkem test jen je tam spojené s pár dalšíma kroky.
V podstatě upravené makro test by mělo udělat najít konkrétní slova v buňkách a informace
z nich spojit a nakopírovat do listu "spojené" toto mi funguje jen ještě bych potřeboval získat info co je pod buňkou s textem "Naplánované úkony" první je B11 a další může být o X rádků níž u dalšího klienta. Tyto data aby se mi zkopírovali do listu "Spojené" do sloupce C. Můj problém je že za nevím jak změnit aby to hledalo a vložilo text pod buňkou a druhý menší kde je určeno do jakého listu se to vkládá ? řeším pak překopírováním celého listu :) Odpověď Nedarí sa mi "dešifrovať" čo požadujete. Urobil som Vám tam kvantum zmien, úplne zmenil Vaše makrá (až na Test, fakt neviem čo má robiť), prerobil vyhľadávanie, vynechal list Spojené, dáta sa ukladajú priamo do Servis a Install (podľa tlačítka), porušil rozbité podmienené formátovanie, pridal vyhľadávanie Naplánovaných úloh, doplnil popisy do makra. Premiestniť stĺpec Naplánované úlohy na stĺpec ktorý chcete, si urobíte patričným priradením do premennej Vys(), atď atď ... Ale fakt neviem, čo presne chcete dosiahnuť. Hlavne neustálym kopírovaním hodnôt medzi listami, ktoré sa nakoniec nepoužijú. Tlačíte iba 3 stĺpce, načo sú Vám ostatné stĺpce ? To by sa ešte dalo chápať, že je iná verzia elektronická (plné dáta) a iná papierová. Ale ten Test ... Podstatne zmeňte popis problému ... Odpověď Děkuji moc, v podstatě já do tohoto souboru vkládám data ze několika zdrojů a dělám z toho několik reportů jeden v tištěné formě, další v digitální (PDF) tam mám problém že mi při tisku fontu Calibri dělá problém proto se to kopírovalo do další tabulky kde byl formát Aral, v nové verzi co mám už pracuji se stejným formátem všude, toto bylo jen o zvyk lidí na formát písma tištěných přehledů, další export se dělá do další externí tabulky to je to uložení do dalšího souboru, a poslední to byl ten test (pravda byl to jen můj interní popis) na čem jsem se zasekl byl právě další přehled kde je na přehledu třeba méně dat než na předešlém (to jsem měl udělané) a navíc data a to ty co jsou v buňce pod naplánovanýma úkony (ty jsem nevěděl jak získat) ty by se měli vepsat do listu NSTD + Prodej pak se mi to z toho vyfiltruje jen určité řádky kde byla splněna alespoň jedna s podmínek která by právě hledalo v sloupci C a D.
Ale teď tebou vytvořen nový soubor mi dost pomůže a již si doupravím Odpověď Zdravím, měl bych dotaz zdali by šlo upravit stávající makro viz níže. Data teď přicházejí v PDF a jsou v jiném formátu. A nedokážu si poraditi s tím že dada při vložení do Exelu již nejsou zvláště v buňkách, ale jsou v po řádcích s několika hledanýma daty.
V příloze je list jak se data nakopírují z PDF tak list Cíl , čeho bych rád docílil.
Předem děkuji za jakoukoliv radu - pomoc Odpověď |