All'attivazione dell'userform mi appare un messaggio "Impossibile caricare uno o più oggetti perchè non disponibili nel computer"; andando avanti altro messaggio "Errore di compilazione: variabile non definita" questo è il codice della userform:
- Codice: Seleziona tutto
Private Sub UserForm_Activate()
Dim Md As Worksheet
Dim R As Long
Set Md = ActiveWorkbook.Sheets("MasterDetail")
blStop = True
With Md
cmbPolizze.Text = .Cells(2, 3).Value
blStop = False
cmbPolizze.List = ThisWorkbook.Sheets("Polizze"). _
Range("ListaPolizze").Value
R = ActiveCell.Row
If ActiveCell = "" Then
dtDataEvento.Value = Date
CommandButton1.Caption = "Inserisci"
Else
dtDataEvento.Value = .Cells(R, 2).Value 'dtDataEvento è il problema su cui si ferma
txtPremio = Md.Cells(R, 3)
txtAnnotazioni = .Cells(R, 4).Value
If Md.Cells(R, 5).HasFormula Then
txtDocumento = GetUrl(Md.Cells(R, 5).Formula)
Else
txtDocumento = .Cells(R, 5).Value
End If
CommandButton1.Caption = "Modifica"
End If
End With
End Sub
In attesa di un aiuto vi ringrazio anticipatamente!!
fastbike