Přepínací políčka
Napsal: 07 dub 2014 17:53
Zdravím všechny,
prosil bych o radu,nebo alespoň popostrčení,jak bych to mohl udělat.
Jde o to,že ve formuláři mám 4 přepínací políčka která mi zapisují do buňky to,co které obsahuje,ale nevím si rady s odkazem každého z nich.
Rozvedu blíže - každé přepínací políčko má svůj název ( viz code ),každé políčko má svou složku ( název je stejný jako přep.pol. a do této složky bych potřeboval zapisovat hodnotu,kterou zapíšu v buňce "A" podle toho jaké přep.políčko zvolím bude to vedeno jako textový soubor( každý zápis nový textový soubor).
Přikládám výpis kódu,který prozatím mám
předem vám všem děkuji za pomoc.Snažil jsem se googlit,ale nic podobného jsem nanašel.
--- Doplnění předchozího příspěvku (07 Dub 2014 21:46) ---
Zdravím všechny,po napsání prosby jsem ještě googlil a zkoušel.
Vytvořil jsem všechno co jsem potřeboval ( viz code níže).Je to sice krkolomný kód a docela obsáhlý,ale je funkční
Nakonec jsem si trochu upravil požedavky a zakládám nové složky ( kód který jsem použil není můj - poradil mi ho uživatel Azuzula )čímž tímto děkuji za pomoc a rady,které jsem za kratičkou chviličku (co jsem na tomhle fóru ) získal. Děkuji
prosil bych o radu,nebo alespoň popostrčení,jak bych to mohl udělat.
Jde o to,že ve formuláři mám 4 přepínací políčka která mi zapisují do buňky to,co které obsahuje,ale nevím si rady s odkazem každého z nich.
Rozvedu blíže - každé přepínací políčko má svůj název ( viz code ),každé políčko má svou složku ( název je stejný jako přep.pol. a do této složky bych potřeboval zapisovat hodnotu,kterou zapíšu v buňce "A" podle toho jaké přep.políčko zvolím bude to vedeno jako textový soubor( každý zápis nový textový soubor).
Přikládám výpis kódu,který prozatím mám
Kód: Vybrat vše
If OptionButton1.Value = True Then Cells(DalsiRadek, 2) = "S7-300"
If OptionButton2.Value = True Then Cells(DalsiRadek, 2) = "S7-200"
If OptionButton3.Value = True Then Cells(DalsiRadek, 2) = "S5"
If OptionButton4.Value = True Then Cells(DalsiRadek, 2) = "PL7"
předem vám všem děkuji za pomoc.Snažil jsem se googlit,ale nic podobného jsem nanašel.
--- Doplnění předchozího příspěvku (07 Dub 2014 21:46) ---
Zdravím všechny,po napsání prosby jsem ještě googlil a zkoušel.
Vytvořil jsem všechno co jsem potřeboval ( viz code níže).Je to sice krkolomný kód a docela obsáhlý,ale je funkční
Kód: Vybrat vše
If OptionButton1.Value = True Then Cells(DalsiRadek, 2) = "S7-300"
fso.CopyFolder "D:\plc\*", "D:\S7-300\", True
Set objSoubor4 = fso.GetFolder("D:\S7-300\nová")
objSoubor4.Name = TextBox1.Text
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
"D:\S7-300\" & TextBox1.Text, TextToDisplay:=TextBox1.Text
If OptionButton2.Value = True Then Cells(DalsiRadek, 2) = "S7-200"
fso.CopyFolder "D:\plc\*", "D:\S7-200\", True
Set objSoubor4 = fso.GetFolder("D:\S7-200\nová")
objSoubor4.Name = TextBox1.Text
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
"D:\S7-200\" & TextBox1.Text, TextToDisplay:=TextBox1.Text
If OptionButton3.Value = True Then Cells(DalsiRadek, 2) = "S5"
fso.CopyFolder "D:\plc\*", "D:\S5\", True
Set objSoubor4 = fso.GetFolder("D:\S5\nová")
objSoubor4.Name = TextBox1.Text
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
"D:\S5\" & TextBox1.Text, TextToDisplay:=TextBox1.Text
If OptionButton4.Value = True Then Cells(DalsiRadek, 2) = "PL7"
fso.CopyFolder "D:\plc\*", "D:\PL7\", True
Set objSoubor4 = fso.GetFolder("D:\PL7\nová")
objSoubor4.Name = TextBox1.Text
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
"D:\PL7\" & TextBox1.Text, TextToDisplay:=TextBox1.Text
Nakonec jsem si trochu upravil požedavky a zakládám nové složky ( kód který jsem použil není můj - poradil mi ho uživatel Azuzula )čímž tímto děkuji za pomoc a rady,které jsem za kratičkou chviličku (co jsem na tomhle fóru ) získal. Děkuji