Wpis z mikrobloga

@poweriade masz tu link do pliku: Plik z makro

Przy otwarciu pliku wyswietla sie prosty formularz z trzema opcjami: Sheet1, Sheet2, Sheet3. Po wyborze przenosi Cie do wybranego arkusza, a formularz sie zamyka.

W kodzie Combobox (Listy rozwijanej na formularzu) wklejony jest kod - nalezy go zmienic zodnie z potrzebami

Sub UserForm1_Initialize()

With ComboBox1
.AddItem "Sheet1"
.AddItem "Sheet2"
.AddItem "Sheet3"
End With

End Sub

Private Sub ComboBox1_Change()

Select Case ComboBox1.Value

Case "Sheet1"