Condividi:        

Macro simili ma incompatibili

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

Macro simili ma incompatibili

Postdi Rossi Vincenzo » 26/10/09 17:48

Salve a tutti,
ho due istruzioni che girano bene se sono collocate su file di excel separati.
Lavorano su due datebase differenti di 75 gg lavorativi ciascuno.
Se fanno parte di uno stesso file su fogli di excel ovviamente differenti:una istruzione va in "errore
di run time 13 tipo non corrispondente". Non capisco perchè.
Le due istruzioni sono identiche ma variano solo come sottoindicato da questa istruzione
ripetuta per l'intero elenco

If CEL.Value = "Pippo1" Then sostituita per l'intero elenco da: If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2 CEL.Font.ColorIndex = 1
End If CEL.Font.FontStyle = "Normale"
End If

Questa è una delle due istruzioni:
Codice: Seleziona tutto
Sub Bianchetto()
Sheets("Turno").Select

Dim nome(20) As String
nome(1) = "Pippo1"
nome(2) = "Pippo1"
nome(3) = "Pippo1"
nome(4) = "Pippo1"
nome(5) = "Pippo1"
nome(6) = "Pippo1"
nome(7) = "Pippo1"
nome(8) = "Pippo1"
nome(9) = "Pippo1"
nome(10) = "Pippo1"
nome(11) = "Pippo1"
nome(12) = "Pippo1"
nome(13) = "Pippo1"
nome(14) = "Pippo1"
nome(15) = "Pippo1"
nome(16) = "Pippo1"
nome(17) = "Pippo1"
nome(18) = "Pippo1"
nome(19) = "Pippo1"
nome(20) = "Pippo1"
Set zona = Range("A3:U203") 'campo entro cui ricercare la giornata o treno
For Each CEL In zona  'per ogni CEL( Oggetto cella) nel Range "zona"
If CEL.Value = "Pippo1" Then'                                                                                                     
CEL.Font.ColorIndex = 2                                       
End If                                                           
If CEL.Value = "Pippo1" Then 
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 0
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2
End If
Next

End Sub
Rossi Vincenzo
Utente Junior
 
Post: 35
Iscritto il: 28/04/09 14:11

Sponsor
 

Re: Macro simili ma incompatibili

Postdi Flash30005 » 27/10/09 11:25

Ho provato tua macro e funziona ("sistemata*" non dà alcun errore)
penso tu abbia inserito tutti i vettori uguali solo per comodità e fare un esempio
*Noto un riga di codice inutile nella sostituzione e un End if di troppo
Codice: Seleziona tutto
If CEL.Value = "Pippo1" Then
CEL.Font.ColorIndex = 2     '<<<<< questa riga non serve
CEL.Font.ColorIndex = 1
End If
CEL.Font.FontStyle = "Normale"
End If        ' End if errato

Perché non invii direttamente il file completo di macro?
Se ci sono dati sensibili puoi sostituirli oppure inviare in Mp il tuo file.

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro simili ma incompatibili

Postdi Rossi Vincenzo » 27/10/09 15:25

Scusate il pasticcio che ho commesso nell'inviarvi le due istruzioni che differenziavano le due istruzioni.
Non avevo fatto opportunamente uso del code di conseguenza ho inviato quel pasticcio.
Qui sotto è riportato correttamente quanto avevo da farvi vedere.

Codice: Seleziona tutto
If CEL.Value = "Pippo" Then
CEL.Font.ColorIndex = 2
End If


Codice: Seleziona tutto
If CEL.Value = "Pippo" Then
CEL.Font.ColorIndex = 1
CEL.Font.FontStyle = "Normale"
End If


Comunque sono riuscito a risolvere il problema. In una istruzione vi erano degli errori di battitura dei relativi nomi (66),
che davano origine a "quell' errore di run time 13 tipo non corrispondente".Ora scorrono bene entrambi e non soffrono
di quella compatibiltà precedentemente accennata da me.Scusatemi ragazzi ma ero andato nel pallone e non riuscivo a venirne fuori.
Rossi Vincenzo
Utente Junior
 
Post: 35
Iscritto il: 28/04/09 14:11


Torna a Applicazioni Office Windows


Topic correlati a "Macro simili ma incompatibili":


Chi c’è in linea

Visitano il forum: Nessuno e 62 ospiti