MS Excel

Téma: Přepínač v UF

Zaslal/a lajos 10.2.2013 2:57

Tak snad naposledy:-)
Potřebuji v Userformu přepínat mezi dvěmi hodnotami.Data v UF by se měla uložit do listů podle vybrané možnosti.Popsal jsem to v ukázce.Toto je nad mé síly,proto prosím zkušené matadory o výpomoc.
Dík za případné rady a pomoc.

Příloha: rar

11564_autovaha.rar (49kB, staženo 15x)

Uzamčeno - nelze přidávat nové příspěvky.

Jeza.m(10.2.2013 8:53)#011566

nestačila by podmínka, tam co ti začíná kód "ULOŽÍ DATA NA LIST ŽELEZO" strčit podmínku na daný option a nakonci vkládání do daného listu ji ukončit viz níže:
'+++++ULOŽÍ DATA NA LIST ŽELEZO+++++++++++++++++++++++++++++++++++++++
If Op1.Value = True Then
Sheets("Železo").Select 'zvoli list železo
riadok = Cells(Rows.Count, 2).End(xlUp).Row + 1
Rem riadok = ActiveSheet.UsedRange.Rows.Count + 1
Cells(riadok, 4).Value = T2.Value '
Cells(riadok, 1).Value = txtDOTDate.Value
Cells(riadok, 5).Value = T3.Value
Cells(riadok, 6).Value = T4.Value
Cells(riadok, 7).Value = T5.Value
Cells(riadok, 8).Value = T6.Value
Cells(riadok, 9).Value = T7.Value
Cells(riadok, 10).Value = T8.Value
Rem Cells(riadok, 12).Value = T9.Value
Rem Cells(riadok, 15).Value = T10.Value
Rem Cells(riadok, 18).Value = T11.Value
Cells(riadok, 3).Value = T1.Value
Rem Cells(riadok, 13).Value = T13.Value
Cells(riadok, 12).Value = T14.Value
Cells(riadok, 13).Value = T15.Value
Rem Cells(riadok, 16).Value = T16.Value
Cells(riadok, 2).Value = C1.Value
Cells(riadok, 11).Value = C2.Value
Rem Cells(riadok, 14).Value = C3.Value
Rem Cells(riadok, 17).Value = C4.Value
End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
To samé pro druhý option a Barevné kovy.

M@citovat

lajos(11.2.2013 16:37)#011592

Mockrát děkuji za pomoc..Jěště se musím hooodně učit.

citovat

Téma: Přepínač v UF

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje