vyskusaj, zatial som tam nedaval ziadne osetrujuce (blbuvzdorne) veci tak keby daco tak pis
Application.Screenupdating = False , na zaciatok pozadovaneho kodu
dlasia moznost ak chces v slucke pouzit viacbunkovu oblast:
Range(Cells(riadok_zaciatku, stlpec_zaciatku), Cells(riadok_konca, stlpec_konca))
Private Sub CommandButton1_Click()
Cells(7, 6).Value = ComboBox1.Value
Cells(7, 8).Value = ComboBox2.Value
Cells(7, 10).Value = TextBox1.Value
End Sub
nieco pre inspiraciu, mozo z toho aj nieco pouzijes
(funguje iba EDIT, ostatne som nestihol dorobit a uz to nieje priorita,tak uz asi ani nedokoncim, ale ten edit je premakany, myslim )
ked uz toto zvladas tak by pre Teba nemal byt problem sa presmerovat na list ZADOST ( Sheets(2).Select ak je to druhy list pripadne mozes pouzit Sheets("ŽADOST").Select) dalej ides tak isto (Cells ......), potom sa vsak nezabudni vratit spet na list 1 (ak potrebujes, alebo by som vsetky veci zapisal na list 1 a nasledne sa prepol na list2 a zapisal veci ktore chces).
2. vecsinu som sa naucil tu na fore, nieco pomoze aj help ak si uz v niecom programoval aspon zaklady
v pripade otazok pis, radi pomozeme
Private Sub CommandButton1_Click()
Sheets(1).Select 'zvoli list 1
riadok = ActiveSheet.UsedRange.Rows.Count + 1 'najde prazdny riadok
'Cells (riadok, stlpec) - bunka kde prva premenna oznacoje riadok a druha stlpec kde sa dana bunka nachadza Cells(1,1) - bunka A1
Cells(riadok, 1).Value = TextBox16.Value ' UNI do bunky(riadok, 1) - druhy riadok je to A2 , zapise hodnotu Textboxu16
Cells(riadok, 2).Value = TextBox1.Value
Cells(riadok, 4).Value = TextBox3.Value
Cells(riadok, 5).Value = TextBox4.Value
Cells(riadok, 6).Value = TextBox25.Value
Cells(riadok, 7).Value = TextBox5.Value
Cells(riadok, 8).Value = TextBox6.Value
Cells(riadok, 9).Value = TextBox7.Value
Cells(riadok, 10).Value = TextBox8.Value
Cells(riadok, 11).Value = TextBox9.Value
Cells(riadok, 12).Value = TextBox10.Value
Cells(riadok, 13).Value = TextBox11.Value
Cells(riadok, 14).Value = TextBox12.Value
Cells(riadok, 15).Value = TextBox13.Value
Cells(riadok, 16).Value = TextBox15.Value
Cells(riadok, 17).Value = TextBox14.Value
Cells(riadok, 18).Value = TextBox17.Value
Cells(riadok, 19).Value = TextBox18.Value
Cells(riadok, 20).Value = TextBox24.Value
Cells(riadok, 21).Value = TextBox19.Value
Cells(riadok, 22).Value = TextBox21.Value
Cells(riadok, 23).Value = TextBox23.Value
Cells(riadok, 24).Value = TextBox20.Value
Sheets("Žadost").Select 'zvoli list Žadost
Cells(4, 3).Value = TextBox1.Value
'...............................................
skus
keby si dal tu na forum malu ukazku (aj ked vymyslene data, potrebujeme len format) tak uz to mas davno spravene
tie cisla su rozne alebo sa vyskytuju rovnake v tabulke? islo by to porovnanim rovnakeho cisla v jednej a druhej tabulke?
skrytie stlpcov:
ozacis stlpce (hore jak mas nazvy stlpcov A, B C ...) bud suvysle (na zaciatocnom stlpci ktory chces schovat stlacis a drzis LMB - lave tlacitko mysi a tahas az na posledny stlpec ktory chces skryt) alebo vyberies ktore chces (vyberies prvy nasledne stlacis a drzis Ctrl a postupnym klikanim LMB na pozadovane stlpce oznacis dalsie), vstko pustis a na jeden z vybranych nazvov stlpcov kliknes pravym tlacitkom, rozbaly sa zoznam v ktorom das Skryt alebo Hide
skrytie riadkov:
tak ako stlpce len vyberas riadky
moze byt ?
excel mi uz ide
ano myslel som to presne tak ako to spravil M+
momentalne mi nefunguje excel ale tak Ti nedam prilohu ale je to jednoduche
spravis tabulku kde bude obsah rozbalovacieho okna a hodnota pevne priradena k jednotlivym polozkam
dalej das SVYHLEDAT (momentalne neviem v anj - vlookup asi) viazane na vybranu polozku v rozbalovacom zozname.
nic?
no myslim ze ked zacnes a narazis na nejaky problem tak tu Ti urcite pomozeme, ale len tak povedat ze "urob to takto" asi nepojde, neviem ci ti niekto pomoze viac ako ja touto radou , ja osobne som zacal z nicoho, s tym ze excel som neznasal a nikdy predtym som v nom nerobil, a chlapci tu na fore zo mna spravily "profika"
dakujem chlapci
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.