Codice vba

Hai un problema con Excel?

Nuova discussione

Codice vba
di Ugis (utente non iscritto) data: 24/05/2012
Ciao a tutti!!! ho un problema con questo codice che ho messo, praticamente me lo fa solamente su un foglio... vorrei che la macro si estendesse su tutta la cartella di lavoro (compresi altri fogli) cosa c'è di sbagliato???

Sub CopiaRighe()

        
    Application.ScreenUpdating = False

    Foglio1.Select
    
    
    Range("A5000").End(xlUp).Offset(2, 0).Select
    
    
    Foglio2.Select
    
    Range("A2:L3").Select
    
    Selection.Copy
    
    Range("A1").Select
    
    Foglio1.Select
    
    ActiveSheet.Paste
    
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
        Application.CutCopyMode = False

    Range("A1").Select
    

End Sub

di Patel (utente non iscritto) data: 25/05/2012
Immagino che tu abbia usato il registratore di macro, perché dovrebbe ripetere la copia per tutti i fogli ? forse dovresti spiegare meglio cosa vuoi ed allegare un file di esempio.
di Harrybosch (utente non iscritto) data: 14/06/2012
Si può migliorare molto questo codice. inoltre per selezionare un foglio, la giusta sintassi sarebbe sheets("foglio2").select
e questo è il motivo per cui non riesci a ripetere l'operazione su tutti i fogli: hai indicato foglio1 e foglio2...
se ci illustri esattamente cosa intendi realizzare sicuramente avrai un bel codice con tanto di spiegazione...
ciao, vanni

Vuoi Approfondire?