In un foglio excel ho creato un form che al caricamento verifica i fogli presenti e crea un pulsante per ognuno di essi in base al seguente codice:
Ora, quando si preme il pulsante, devo far eseguire una routine che mi apre un altro form ma non sono riuscito a farlo :muro: qualcuno ha suggerimenti?codice:Private Sub UserForm_Initialize() Dim obj_fogli As Object Dim str_fogli As String Dim bottone As Control Dim int_btleft, int_bttop As Integer int_btleft = 10 int_bttop = 75 Set obj_fogli = ActiveWorkbook.Sheets With obj_fogli For i = 1 To (.Count - 1) Set bottone = Controls.Add("forms.CommandButton.1") With bottone .Name = Worksheets(i).Name .Width = 175 .Height = 20 .Caption = Worksheets(i).Name .Top = int_bttop .Left = int_btleft End With int_bttop = int_bttop + 25 str_fogli = i Next End With End Sub