Userform non si inizializza

Hai un problema con Excel?

Nuova discussione

Userform non si inizializza
di Legatoalfuturo (utente non iscritto) data: 06/07/2010
Ciao a tutti,

ho progettato una userform tramite vba ma, una volta lanciata attraverso la pressione di un pulsante a cui ho associato una macro, il codice non mi inizializza le varie textbox, le combobox ecc. ecc..

la cosa strana è che si inizializza quando premo il pulsante pulisci.

vi posto il codice....e vi ringrazio infinitamente per l'aiuto che vorrete darmi. dove ho sbagliato?

Private Sub frmMascheraInserimentoProgetto_Initialize()
txtSocietà.Value = ""
txtLocalità.Value = ""
txtProvincia.Value = ""
txtSquadra.Value = ""
txtPotenzaImpianto.Value = ""
txtPotenzaPannelli.Value = ""
txtSuperficieTerreno.Value = ""
txtProprietarioTerreno.Value = ""
txtCostoOpzione.Value = ""
txtCostoAcquisto.Value = ""
txtDataLoi.Value = ""
txtDataPreliminare.Value = ""
txtDistanzaCabina.Value = ""
txtDataTica.Value = ""
txtRispostaTica.Value = ""
txtNoteTerreno.Value = ""
txtNoteCavidotto.Value = ""
txtRegione.Value = ""
txtProvinciale.Value = ""
txtComune.Value = ""
txtCds1.Value = ""
txtCds2.Value = ""
txtDetermina.Value = ""
txtAuPrevista.Value = ""
txtAuFinale.Value = ""
txtPretorioRegionale.Value = ""
txtPretorioProvinciale.Value = ""
txtGazzettaUfficiale.Value = ""
txtPubblicazioneVolontaria.Value = ""
txtCliente.Value = ""
txtFirmaLoi.Value = ""
txtFirmaPreliminare.Value = ""
txtContrattoDefinitivo.Value = ""
With cboAmministratore
.AddItem "Sandro Marchesi"
.AddItem "Andrea Mugnai"
.AddItem "Saverio Blanca"
.AddItem "Francesco Meoni"
.AddItem "Alessandra Maggiaioli"
End With
cboAmministratore.Value = ""
With cboRegione
.AddItem "Abruzzo"
.AddItem "Basilicata"
.AddItem "Calabria"
.AddItem "Campania"
.AddItem "Emilia-Romagna"
.AddItem "Friuli-Venezia Giulia"
.AddItem "Lazio"
.AddItem "Liguria"
.AddItem "Lombardia"
.AddItem "Marche"
.AddItem "Molise"
.AddItem "Piemonte"
.AddItem "Puglia"
.AddItem "Sardegna"
.AddItem "Sicilia"
.AddItem "Toscana"
.AddItem "Trentino-Alto Adige"
.AddItem "Umbria"
.AddItem "Valle d'Aosta"
.AddItem "Veneto"
End With
cboRegione.Value = ""
With cboAffitto
.AddItem "Affitto"
.AddItem "Acquisto"
End With
cboAffitto.Value = ""
With cboAu
.AddItem "AU"
.AddItem "PC"
.AddItem "DIA"
End With
cboAu.Value = ""
With cboInseguitore
.AddItem "Inseguitore"
.AddItem "Fisso"
End With
cboInseguitore.Value = ""
OptTerra = True
txtSocietà.SetFocus
End Sub


Private Sub cmdAnnulla_Click()
Unload Me
End Sub


Private Sub cmdPulisci_Click()
Call frmMascheraInserimentoProgetto_Initialize
End Sub


Private Sub cmdOk_Click()
ActiveWorkbook.Sheets("Database").Activate
Range("B5").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1) = txtSocietà.Value
ActiveCell.Offset(0, 2) = cboAmministratore.Value
ActiveCell.Offset(0, 3) = txtLocalità.Value
ActiveCell.Offset(0, 4) = txtProvincia.Value
ActiveCell.Offset(0, 5) = cboRegione.Value
ActiveCell.Offset(0, 6) = txtSquadra.Value
ActiveCell.Offset(0, 7) = txtPotenzaImpianto.Value
If optTipologiaImpianto = True Then
ActiveCell.Offset(0, 8).Value = "A Terra"
ElseIf optTipologiaImpianto = True Then
ActiveCell.Offset(0, 8).Value = "Copertura Industriale"
Else
ActiveCell.Offset(0, 8).Value = "Serra"
End If
ActiveCell.Offset(0, 9) = txtPotenzaPannelli.Value
ActiveCell.Offset(0, 10) = cboInseguitore.Value
ActiveCell.Offset(0, 11) = txtSuperficieTerreno.Value
ActiveCell.Offset(0, 12) = txtProprietarioTerreno.Value
ActiveCell.Offset(0, 13) = txtNoteTerreno.Value
ActiveCell.Offset(0, 14) = cboAffitto.Value
ActiveCell.Offset(0, 15) = txtCostoOpzione.Value
ActiveCell.Offset(0, 16) = txtCostoAcquisto.Value
ActiveCell.Offset(0, 17) = txtDataLoi.Value
ActiveCell.Offset(0, 18) = txtDataPreliminare.Value
ActiveCell.Offset(0, 19) = txtDistanzaCabina.Value
ActiveCell.Offset(0, 20) = txtNoteCavidotto.Value
ActiveCell.Offset(0, 21) = txtDataTica.Value
ActiveCell.Offset(0, 22) = txtRispostaTica.Value
ActiveCell.Offset(0, 23) = cboAu.Value
ActiveCell.Offset(0, 24) = txtRegione.Value
ActiveCell.Offset(0, 25) = txtProvinciale.Value
ActiveCell.Offset(0, 26) = txtComune.Value
ActiveCell.Offset(0, 27) = txtCds1.Value
ActiveCell.Offset(0, 28) = txtCds2.Value
ActiveCell.Offset(0, 29) = txtDetermina.Value
ActiveCell.Offset(0, 30) = txtAuPrevista.Value
ActiveCell.Offset(0, 31) = txtAuFinale.Value
ActiveCell.Offset(0, 32) = txtPretorioRegionale.Value
ActiveCell.Offset(0, 33) = txtPretorioProvinciale.Value
ActiveCell.Offset(0, 34) = txtGazzettaUfficiale.Value
ActiveCell.Offset(0, 35) = txtPubblicazioneVolontaria.Value
ActiveCell.Offset(0, 36) = txtCliente.Value
ActiveCell.Offset(0, 37) = txtFirmaLoi.Value
ActiveCell.Offset(0, 38) = txtFirmaPreliminare.Value
ActiveCell.Offset(0, 39) = txtContrattoDefinitivo.Value
End Sub 


Sub MascheraInserimentoProgetto()
frmMascheraInserimentoProgetto.Show
End Sub

di Big ronnie (utente non iscritto) data: 07/07/2010
Ciao,

la prima volta che apri il form ti dà problemi?
di Ricky53 (utente non iscritto) data: 07/07/2010
Ciao,
hai utilizzato un nome errato per la sub che inizializza

nome errato: private sub frmmascherainserimentoprogetto_initialize()

nome esatto: private sub userform_initialize()

ciao da ricky53

Vuoi Approfondire?