Calc: wybór akcji przez przycisk

[nowycrteam123]

Witam !
Staram się zrobić własny arkusz kalkulacyjny pomocny w pracy.
Może wy mi pomożecie ja już nie daję rady.
W skrócie chcę w formantach dać opcje do zaznaczenia fakturowanie lub wycena
i w zależności od zaznaczonego formantu po kliknięciu przycisku Zatwierdź przekieruje mnie do 1 z 3 arkuszy gdzie resztę już sobie ogarnę
Myślę że określiłem się dosadnie Jak na razie mam opanowane tworzenie formantu i przycisku dalej leżę

Z góry dzięki za odpowiedź
Pozdrawiam

[belstar]

Kod: Zaznacz cały

Sub Zmien_Arkusz()
	Dim oDoc as Object
	Dim oCntrl as Object
	Dim oSheets as Object
	Dim oShtName1 as String, oShtName2 as String
	Dim oDisp as String
	
	oDoc = ThisComponent
	oCntrl = oDoc.getCurrentController()
	'
	'Pobierz nazwę aktualnego arkusza
	oShtName1 = oCntrl.getActiveSheet().Name
	'
	oSheets = oDoc.getSheets()
	'Zmiana arkusza
 		oCntrl.setActiveSheet(oSheets.getByName("Arkusz2"))
	'
	'Pobierz nazwę aktualnego arkusza
	oShtName2 = oCntrl.getActiveSheet().Name
	oDisp = "Zmiana Arkusza" & Chr$(10) & "Poprzedni : " & oShtName1 & Chr$(10) & "Aktualny : " & oShtName2
	'
	msgbox(oDisp,0,"Aktywny Arkusz")
End Sub

Staram się zrobić własny arkusz kalkulacyjny pomocny w pracy.

Temat o Calcu, a dział Base. Dlaczego?

[nowycrteam123]

Dzięki za odpowiedź !

Nie za bardzo znam się na tym kodzie pytanie jak mam ustawić formanty i przycisk do tego kodu ?
Bo podejrzewam że kod odwołuje się do poszczególnych formantów.

Pozdrawiam

[belstar]

Wstaw plik ze swoją pracą (dane fikcyjne), ważne żeby odzwierciedlał rzeczywistość, będzie łatwiej zrozumieć twój tok myślenia.

[nowycrteam123]

w załączniku plik i opis

[belstar]

Patrz załącznik.