[VBA (EXCEL)] Errore nella selezione cella

[Fabius.1989]

ho due file. nel primo sono contenuti dei dati e formule. devo inviare questi file senza formule, quindi ho creato l'altro file dove copio solo i valori contenuti nel primo.

ho scritto il seguente codice:

Private Sub CommandButton1_Click()
Workbooks.Open Filename:=ActiveWorkbook.Path & "\LEGA PRO 1 DIV.xls"
Sheets("LEGA PRO 1 DIV").Select
Windows("temp_serie_c1.xls").Activate
Range("A1:H113").Select
Range("A1:H113").Select
Selection.Copy
Windows("LEGA PRO 1 DIV.xls").Activate
Range("A1").Activate
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("temp_serie_c1.xls").Activate
Range("A1").Select
ActiveWorkbook.Save
End Sub

CommandButton1 è il pulsante che mi fa partire l'operazione di esportazione dei dati.

Arrovato a ---Range("A1").Activate---

mi da l'errore di run-time "1004" - Errore nel metodo activate per la classe Range.

se tolgo l'istruzione --Range("A1").Activate-- funziona tutto ma se per caso nel secondo file ho selezionato un'altra casella per esempio F9.. mi copia tutto da li in poi. ma voglio che tutto sia contenuto dalla A1 a scendere.

grazie

[Boolean]

prova con

Range("A1").Select

Boolean

[Fabius.1989]

ho già provato anche con .Select ma mi da lo stesso errore...

[gibra]

Originariamente inviato da Fabius.1989

Arrovato a ---Range("A1").Activate---

mi da l'errore di run-time "1004" - Errore nel metodo activate per la classe Range.

se tolgo l'istruzione --Range("A1").Activate-- funziona tutto

Mi sembra logico, dato che Range richiede 2 parametri e tu ne passi 1 solo.

Range("A1", "A1").Select

Ciao

[Boolean]

Ciao Giorgio,
Non credo sia quello il problema. Range accetta tranquillamente la specificazione di una sola cella come intervallo valido.

Piuttosto mi sono accorto che non viene selezionato il foglio prima di selezionare la cella, quindi forse questo può essere un problema.

Inserirei l'attivazione del foglio qui:

Private Sub CommandButton1_Click()
Workbooks.Open Filename:=ActiveWorkbook.Path & "\LEGA PRO 1 DIV.xls"
Sheets("LEGA PRO 1 DIV").Select
Windows("temp_serie_c1.xls").Activate
Range("A1:H113").Select
Range("A1:H113").Select
Selection.Copy
Windows("LEGA PRO 1 DIV.xls").Activate
Sheets("TuoFoglio.").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("temp_serie_c1.xls").Activate
Range("A1").Select
ActiveWorkbook.Save
End Sub

Boolean

[gibra]

Originariamente inviato da Boolean
Ciao Giorgio,
Non credo sia quello il problema. Range accetta tranquillamente la specificazione di una sola cella come intervallo valido.

Hai ragione, stavolta ho toppato.

Ciao

[Fabius.1989]

Ho provato come ha detto Boolean, inserendo anche l'attivazione del foglio su cui copiare ma mi da lo stesso errore quando arriva a Range("A1")....

non riesco a capire il problema perchè anche altre volte ho usato l'istruzione range e non mi ha dato mai problemi...

[Fabius.1989]

ho provato a mettere:

    ActiveSheet.Cells(1, 1).Select

e finalmente funziona...


grazie dell'aiuto... ciao