Příspěvky uživatele
< návrat zpět
tak co znamená
1) start = Application.WorksheetFunction.CountA(Range("a1:a6")) - toho ukáže první prázdný řádek dané oblasti? Nebo poslední prázdný řádek?
2) Cells(start + 1, 1) = CLng(FORM.Cislo_f.Text) - co znamená to CLng? :)
3) kody typu:
stroj1_pozice = Application.WorksheetFunction.Match("STROJ1", Range("a:a"), 0) + 1
a
stroj1_radek = stroj1_pozice - 1 + Application.WorksheetFunction.CountA(Cells(stroj1_pozice, 1), Cells(stroj1_pozice + Pocet_zaznamu - 1, 1))
Pochopil jsem že sis pojmenoval stroje ale nic víc už ne :)
Tot asi vše a až mi napíše vysvětlivky tak pak ti povím co dál :o)
hmm dobré je to :o)
Pokud bych mohl otravovat nepopsal by si mi ty kody a tak. Nějaké chápu ale nějaké ne.
A jestli bych mohl hodně otravovat. Mám s touhle tabulkou ješte jeden cíl. Pokud bys mi chtěl jeste s tím pomoct?
Vím, že mi pomáháš hodně a vážím si toho.
:) já to asi napsal trochu nesrozumitelně.
Pomocí userformu zadávám údaje do části SLOTTER (A2:C6).
Pokud v userformu do textboxu "KAM" zadám např. STROJ1 tak aby se mi hodnoty vložili do časti SLOTTER i do části STROJ1. Pokud bude textbox obsahovat STROJ2 tak at se mi vloži do SLOTTER i do STROJ2 atd...
No nejlepší by bylo kdyby místo textboxu byli jen zaškrtávácí políčka strojů - STROJ, STROJ2, STROJ3 a podle toho co bude zaškrnuto tak do té části se mi vloží.
Je to ted víc srozumitelné? Snad jo :)
Zdravím, jsem tu zas :o)
V příloze mám jednu tabulku.
Slouži pro přehled a zadávání operací. Pomocí UserFormu zadávám operace do části SLOTTER.
Potřeboval bych aby se mi automaticky kopírovali celé řádky do určitých částí pod kolounkou SLOTTER (STROJ1,STROJ2,STROJ3) podle toho kam je operace zařazena. Viz UserForm.
Kdyby bylo možné aby se kopírovali řádky i při zadavání operací ručně(né pomoci userformu) byl bych rád.
Dokáže te mi prosím poradit?
a nedalo by se to řešit třeba nějaký makrem?
který by při zápisu první nějak ověřil zda nejsou ve sdíleným excelu nějaké změny a pokud ano tak se změny zobrazí a pak se pomocí userform vloží do tabulky data ?
jen si tipuji
wau, funguje to :) sice né tak jak bych si představoval ale tohle mi hodně pomůže a a budu ted trochu strojit já :)
Jinak přidal jsem si tam funkci Application.ScreenUpdating a ono to jde o hodně rychleji ;-)
Prosím o vysvětlení těchto kodů, výrazů:
Application.StatusBar = i & " of " & Application.WorksheetFunction.CountA(Range("e:e"))
a
Application.StatusBar = False
a pak tohoto:
IsEmpty(Cells(i - 1, 6)) = True - proč tam je i-1?? :o)
Takže tady to je :)
Jen ješte do doplnění. V listu mám těch tabulek více - tři. Co tabulka tak to zápis na jeden den.
Jen tak na rychlo jsem nastavil makro které mi označí danou tabulku na určitý den, určitě pochopíš co tím mám na mysli :)
No a ted nějak zakomponovat to tvoje makro. Abych tu tabulku neměl dlouhou jak rok a aby se mi ty řádky zobrazovali postupně. :) Viz předešlý dotaz.
Tak co? 
Dej mi chvilku čas a pošlu ti trochu jinou tabulku ale na stejný princip :o)
Jen toho tam bude víc 
Zkusil jsem to ale nefunguje to. Teda jako funguje to jen když pak zapíšu do poslední prázdné buňky tak se mi nezobrazí skrytý řádek pod ním. ?
Díkes.
Ještě mě napadla jedna věc, kterou bych ješte do toho zakomponoval.
Za předpokladu, že nastavím v makru aby se mi prázdné řádky skrývali automaticky, že je nebudu muset skrývat ručně.
Do tabulky napíšesu údaje. Uložím a zavřu. Při dalším otevřením se mi automaticky skryjí řádky, které jsem si navolil. Jenže když budou ve skrytých řádcích nějaké údaje tak aby se mi zobrazili. Šlo by to?
Snad jsem to napsal srozumitelně.
díki moc, funguje to.
Můžeš mi prosím ješte popsat ty kódy co znamenají? Tyto kody jsou mi neznamé totál :)
Zdravím
Zas bych potřeboval nějakou tu vychytávku :o)
V příloze mám tabulku. Chtěl abych fungovala takhle:
Prázdné řádky u každého stroje ručně skryji, jen první prázdný řádek nechám odkrytý....
Jakmile se do prvního prázdného řádku vloží data tak se odkryje prázdný řádek pod ním, a tak stále dokola...
Šlo by to nějak nastavit v makru? Díki 
Jj Ok.
Ale co když budu mít pokaždé vybrány jiné sloupce?
Nemám pevně dané sloupce, které chci mít zobrazeny.
Prostě označím sloupce. Zmáčknu čudl a neoznačené sloupce se skryjí.
Tak jsem tu zas.
Napadla mi taková myšlenka. Půjdou skrýt všechny sloupce pokud nejsou vybrány?
Tedy mám vybrány třeba sloupce D,E,F a chtěl bych pomocí makra aby se skryli všechny sloupce, které nemám vybrána.
Třeba chci zobrazit jen údaje v sloupci D, E, F a co je v ostatních sloupcích mě nezajímá.
Co vy na to? Já to zkouším za zatím bez výsledku.
Díki moc. V mojí verzi chybělo jen jedno slovíčko 
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články