Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao Tiziana,
[...]
Prova a scaricare il mio file di prova
[...]
Per la completezza, pubblico anche il codice.
Nel modulo dell'oggetto ThisWorkbook (Questa_cartella_di_lavoro):
'=========>>
Option Explicit
'--------->>
Private Sub Workbook_Open()
Call ShowUserform
End Sub
'<<=========
In un modulo standard:
'=========>>
Option Explicit
'--------->>
Public Sub ShowUserform()
UserForm1.Show vbModeless
End Sub
'<<=========
Nel modulo di codice della Userform:
'=========>>
Option Explicit
'--------->>
Private Sub cbApriFile_Click()
Dim WB As Workbook
Dim fName As Variant
fName = Application.GetOpenFilename( _
"Excel Files (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", , _
"Seleziona file ")
If fName = "False" Then
Exit Sub
End If
Set WB = Workbooks.Open(fName)
End Sub
'--------->>
Private Sub CommandButton1_Click()
Unload Me
End Sub
'<<=========
===
Regards,
Norman