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