< návrat zpět

MS Excel


Téma: Kop.a př.naJinouBunku rss

Zaslal/a 14.8.2010 18:12

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?

Příloha: rar2187_zk.rar (23kB, staženo 20x)
Zaslat odpověď >

Strana:  1 2   další »
icon #002191
Poki
Tak tomu vubec nerozumim.
Jake radky se maji kam kopirovat?
Chapu jeste, ze se maji zapisovat data z formulare, ale to je asi tak vsechno - jsem mozna natvrdlej, ale slo by to nejak presneji popsat?
dikcitovat
#002192
avatar
:) 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 :)citovat
icon #002194
Poki
neco jsem splodil, ale moc jsem to netestoval...
Příloha: zip2194_zk2.zip (30kB, staženo 21x)
citovat
#002198
avatar
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.citovat
icon #002199
Poki
Napis, co nevim, a ja se pokusim to nejak popsat (kdyz to budu vedet :))
Kdyz budu mit cas, pomuzu...citovat
#002200
avatar
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)citovat
icon #002202
Poki
1) Do promenne start se uklada vysledek standardni funkce listu POČET2, která vrátí počet neprázdných bunek oblasti (pokud jsou tedy bunky oblasti obsazovány od začátku jedna po druhé, tak je výsledek poslední neprázdnou bunkou)

2) CLng() je funkce VBA, která prevádí hodnotu v závorkách na datovy typ Long (textboxy totiž obsahují Text a je potřeba je nekonvertovat na cislo)

3) Application.WorksheetFunction.Match je vlastne funkce POZVYHLEDAT, takze najde polohu textu STROJ1, který máš ve své tabulce

4) stroj1_radek je pak jen nalezeni první prázdné bunky pro prislusny strojcitovat
#002203
avatar
1) tenhle postup funguje. Ale: potřeboval bych i v tabulce data ručně mazat - ve slotteru mám 3 řádky plné, pokud smažu udaje z prvního řádku už to dělá problémy při vkládání nové položky.

Musí to najít první prázdný řádek a do něj vložit data.

Něco jako na způsob :

If Cislo <> "" Or Kam <> "" Or Datum <> "" Then
start = start +1
End If

Viz první tabulka zk.citovat
icon #002204
Poki
Aha, netusil jsem, ze by mel někdo zajem tato data mazat – je to prinejmensim neobvykle, ale když to potřebuješ, tak si to muzes upravit – když znas reseni, tak je to snady citovat
#002211
avatar
Jj tak se nějak ten userform zkusím nějak sestrojit aby se to zapisovalo tak jak má, už to mám v hlavě :)

Ale pokud bys mi dokázal ješte pomoci s tím to tedy:

V příloze posílám tu stejnou tabulku jen je doplněno více sloupců. Do kterých se bude zapisovat ručně kdy, kdo na té zakázce dělal a kolik ks udělal. ... Náhled "před přesuntím" ukazuje tabulku po vložení zakázek pomoci userformu a ručně doplnění udajů ve sloupcích na pravo.

Všimni si sloupce "HOTOVO". Takže chtěl bych jsem aby když se do toho sloupce u dané zakázky napíše - hotovo .. tak at vyhledá ve strojích tu stejnou zakazku a pokud bude taky ukončena (ve sloupci Hotovo bude napsáno hotovo) tak at se zakazka přesune do kolonky k uzavření a to i s těmi udaji co jsou ve sloupcích na pravo.

Udělal jsem ti tam přehled jak by to mělo vypadat tak jsem to popsal snad pochopitelně.

Nebo už chci moc? 2
Příloha: rar2211_zk1.rar (28kB, staženo 20x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09