Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel2007 Problemi combobox

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel2007 Problemi combobox

Postdi deniel69 » 20/07/14 17:55

Salve a tutti ...eccomi ancora quì.

il mio nuovo problema è che con il codice seguente riesco a prelevare i dati da tabella e inserirli nelle text box e nella combobox
della mia Userform ,faccio delle modifiche ai dati anche utilizzando la combo e quando premo il tasto funzione associato alla sub
modifica ,tutti i dati modificati vengono sovrascritti nella mia tabella ...tutti tranne il dato della combo che come risultato mi da una cella vuota. dove sbaglio??

For Each c In rng
If c.Value = Me.txtPRC.Text Then
c.Offset(0, 1).Value = _
Me.txtCommessa.Text
c.Offset(0, 2).Value = _
Me.txtCategorico.Text
c.Offset(0, 3).Value = _
Me.ComboBox1.Value

Exit For
End If
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Excel2007 Problemi combobox

Postdi deniel69 » 21/07/14 16:43

Per maggior chiarezza inserisco l'intero codice della sub modifica....


Private Sub cmdModifica_Click()

Dim lUltRiga As Long
Dim lRisposta As Long
Dim rng As Range
Dim c As Range

lRisposta = MsgBox(Prompt:="Modificare il record?", _
Title:="Attenzione", _
Buttons:=vbYesNo + vbQuestion)

If lRisposta = vbYes Then

With sh

lUltRiga = .Range("A" & _
.Rows.Count).End(xlUp).Row
Set rng = .Range("A2:A" & lUltRiga)
.Unprotect Password:="Pippo"

For Each c In rng
If c.Value = Me.txtPRC.Text Then
c.Offset(0, 1).Value = _
Me.txtCommessa.Text
c.Offset(0, 2).Value = _
Me.txtCategorico.Text
c.Offset(0, 3).Value = _
Me.txtProvenienza.Text
Exit For
End If
Next

.Protect Password:="Pippo"

End With

End If

Set c = Nothing
Set rng = Nothing

End Sub


Ripeto riesco a far sovrascrivere tutti i dati tranne quelli della combo.........

Aiuto! Grazie....
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Re: Excel2007 Problemi combobox

Postdi deniel69 » 21/07/14 16:54

Piccolo errore ovviamente in colonna tre cerco di scrivere con..

c.Offset(0, 3).Value = _
Me.ComboBox1.Value
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43

Re: Excel2007 Problemi combobox

Postdi deniel69 » 21/07/14 17:25

Chiedo scusa a tutti ...mi sono risposto da solo dovevo mettere .Text invece di .Value

Chiedo scusa ancora ho bisogno di vacanza....
Avatar utente
deniel69
Utente Senior
 
Post: 113
Iscritto il: 17/04/12 22:43


Torna a Applicazioni Office Windows


Topic correlati a "Excel2007 Problemi combobox":

alcuni problemi...
Autore: gibo
Forum: Assistenza Hardware
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti