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?
dik
:) 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 :)
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.
Napis, co nevim, a ja se pokusim to nejak popsat (kdyz to budu vedet :))
Kdyz budu mit cas, pomuzu...
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)
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 stroj
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.
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
2187_zk.rar (23kB, staženo 20x)
RSS nejnovější články