ERRORE DI RUNTIME 1004 ERRORE DEFINITO DALL'APPLICAZIONE O DALL'OGGETTO

Question

Buongiorno sono alle prime armi con vba. Devo riuscire a selezionare delle colonne dalle quali generare un grafico. Non conosco quante righe saranno compilate. Ho scritto questo codice:

Dim strIntervallo As String

Dim x As Integer

Dim intNumeroRighe As Integer

Dim strFoglio As String

Private Sub cmdSelezionaColonnaADF_Click()

Range("A1").Select

Do

ActiveCell.Offset(1).Select

Loop Until ActiveCell.Value = ""

Do

ActiveCell.Offset(-1).Select

Loop Until ActiveCell.Value = "totali"

x = 1

If ActiveCell.Text = "totali" Then

intNumeroRighe = x - 1

strIntervallo = "A1:A" & intNumeroRighe & ", D1:D" & intNumeroRighe & ", F1:F" & intNumeroRighe

Range(strIntervallo).Select

End If

End Sub

Cosa sbaglio?

Grazie mille

Answer 1

Ciao Daniele,

Sono fiducioso che, se tu condividessi una spiegazione dei tuoi obiettivi in parole italiane - o inglesi :-)), - saremmo in grado di suggerire un codice appropriato.

Ancora meglio sarebbe di anche caricare un file di esempio su un servizio di condivisione, del tipo Microsoft OneDrive o DropBox. In tal caso, nasconda o modifica eventuali dati sensibili e posta un link al file in una risposta qui.

Nel frattempo, credo che sia raramente necessario selezionare un intervallo e, di solito,  sia molto più efficiente non selezionarlo.

===

Regards,

Norman