Ciao a tutti sono alle prime armi del vb per Excel, alla clava per intenderci:gren:
La cartella in questione ha più fogli di lavoro al suo interno :
uno con i comandi principali che in cui l'utente sceglie il da farsi,
uno con un grafico,
due con due diverse tabelle pivot,
il tutto viene caricato da più fogli ausiliari.
Il caricamento dei dati funziona così: si parte da n fogli che vengono copiati in un foglio cosidetto 'predati' e, poichè il cliente desiderava i dati in un altro ordine viene popolato il foglio 'dati' richiamndo duecento volte il metodo che segue:
Private Sub SpostaColonna(foglioDiPartenza As String, foglioDiArrivo As String, ndiceColonnaPartenza As Long, indiceColonnaArrivo As Long)
Application.Worksheets(foglioDiPartenza).Select
Worksheets(foglioDiPartenza).Columns(indiceColonna Partenza).Select
Worksheets(foglioDiPartenza).Columns(indiceColonna Partenza).Copy
Worksheets(foglioDiArrivo).Select
Worksheets(foglioDiArrivo).Columns(indiceColonnaAr rivo).PasteSpecial
End Sub
e qui si genera il gravissimo inconveniente ( )... lo sfarfallio che si produce copiando colonna per colonna....
ho quindi pensato di rendere invisibile i suddetti fogli peccato che così facendo sull'istruzione
Application.Worksheets(foglioDiPartenza).Select
il tutto mi va in errore:
"Errore nel metodo select per la classe Worksheets"
Qualcuno mi sa aiutare? Grazie in anticipo ed evviva le fisime degli utenti che ci danno tanto lavoro!!!!