Errore nel metodo select

Hai un problema con Excel?

Nuova discussione

Errore nel metodo select
di Mauro (utente non iscritto) data: 10/01/2013 14:32:42
Ciao a tutti, dopo aver creato un codice funzionante, ho nascosto il foglio dove vado inserire i dati e all'attivazione del codice mi da errore di run-time'1004' : ERRORE NEL METODO SELECT PER LA CLASSE WORKSHEET ,
clicco su DEBURG e mi evidenzia in giallo il codice: Sheets("Corrispettivi").Select
A questo punto come devo correggere ?
Grazie
Mauro
Sub Corrispettivi() Sheets("Corrispettivi").Select 'Rows("3:3").Select Rows("4:4").Select Selection.Insert Shift:=xlDown Range("A3").Select Sheets("HomePage").Select
di Vecchio Frac data: 10/01/2013 15:07:59
cit. " clicco su DEBURG "
---> Probabilmente volevi dire "Debug" :)

Il problema è che non puoi chiedere a Excel di Select-ionare una cella in un foglio nascosto.
Nove volte e mezza su dieci non ti serve nemmeno preselezionare la cella, basta dare il comando direttamente.
Se eri già posizionato in "HomePage" la riga qui sotto sostituisce per intero tutto il codice che hai postato.
Sheets("Corrispettivi").Rows("4:4").Insert Shift:=xlDown

Errore nel metodo select
di Mauro (utente non iscritto) data: 10/01/2013 15:27:00
ho corretto adesso mi da errore nella seconda parte del codice sempre uguale: Sheets("Corrispettivi").Select

Sub Corrispettivi()
Sheets("Corrispettivi").Rows("4:4").Insert Shift:=xlDown
'Sheets("Corrispettivi").Select
    'Rows("3:3").Select
    'Rows("4:4").Select
    'Selection.Insert Shift:=xlDown
    Range("A3").Select
    Sheets("HomePage").Select
    Foglio13.Cells(4, 1).Value = Foglio1.Cells(6, 3).Value
    Foglio13.Cells(4, 2).Value = Foglio1.Cells(26, 15).Value
    Foglio13.Cells(4, 3).Value = Foglio1.Cells(22, 7).Value
    Foglio13.Cells(4, 4).Value = Foglio1.Cells(8, 15).Value
    Foglio13.Cells(4, 5).Value = Foglio1.Cells(10, 15).Value
    Foglio13.Cells(4, 6).Value = Foglio1.Cells(12, 15).Value
    Foglio13.Cells(4, 7).Value = Foglio1.Cells(14, 15).Value
    Foglio13.Cells(4, 8).Value = Foglio1.Cells(16, 15).Value
    Foglio13.Cells(4, 9).Value = Foglio1.Cells(18, 15).Value
    Foglio13.Cells(4, 10).Value = Foglio1.Cells(20, 15).Value
    Foglio13.Cells(4, 11).Value = Foglio1.Cells(22, 15).Value
Range("O26") = Range("O26") + 1

Sheets("Corrispettivi").Select

Dim r As Integer
Dim Corrispettivi As Double, Prodotti As Double
Dim rifmin As Integer, rifmax As Integer
Dim primo As Boolean
For r = 4 To 500
If Cells(r, 1) = [a1] Then
Corrispettivi = Corrispettivi + Cells(r, 11)
Prodotti = Prodotti + Cells(r, 10)

Do While primo = False
rifmin = Cells(r, 2)
primo = True
Loop
If Cells(r, 2) < rifmin Then rifmin = Cells(r, 2)
If Cells(r, 2) > rifmax Then rifmax = Cells(r, 2)
End If
Next r

[a2] = Corrispettivi
[c2] = Prodotti
[b2] = Corrispettivi - Prodotti

[D2] = rifmin
[E2] = rifmax

For a = 8 To 500
If Foglio20.Cells(a, 2).Value = Cells(1, 1).Value Then
Foglio20.Cells(a, 3).Value = Cells(2, 1).Value
Foglio20.Cells(a, 4).Value = Cells(2, 2).Value
Foglio20.Cells(a, 5).Value = Cells(2, 3).Value
Foglio20.Cells(a, 6).Value = [D2] & "/" & [E2]
End If
Next a

Sheets("HomePage").Select

End Sub

di Vecchio Frac data: 10/01/2013 15:57:40
Il problema è sempre quello: Sheets("Corrispettivi") è un foglio nascosto (l'hai detto tu). Quindi o lo rendi visibile o fai tutte le operazioni che ti servono ma senza selezionare alcuna cella di suddetto foglio.
Errore nel metodo select
di Mauro (utente non iscritto) data: 10/01/2013 16:49:17
Io lo rendo visibile perché mi serve visibile e funziona benissimo, comunque se tolgo la scritta Sheets("Corrispettivi").Select dal codice e nascondo il foglio, la seconda parte del codice non mi funziona più
di Vecchio Frac data: 10/01/2013 18:39:37
Che significato dai a "non mi funziona più" ?
Ottieni qualche messaggio di errore strano? o il codice sembra terminare correttamente ma in realtà non ottieni il risultato voluto?
Errore nel metodo select
di Mauro (utente non iscritto) data: 11/01/2013 10:50:21
Ho capito e risolto con: Sheets("Corrispettivi").Activate
Ciao Mauro
di Vecchio Frac data: 11/01/2013 14:41:39
Activate è analogo a Select.
Se funziona è perchè probabilmente hai reso di nuovo visibile il foglio.
Bene... se ritieni di aver risolto, spunta la casellina "Spunta se risolta" in una nuova risposta.
Errore nel metodo select
di Mauro (utente non iscritto) data: 11/01/2013 15:15:44
Risolto
Grazie
Mauro
Errore nel metodo select
di Mauro (utente non iscritto) data: 11/01/2013 15:45:26
Risolto grazie
Mauro

Vuoi Approfondire?