You are here:---Rispondi a: [RISOLTO] Selezionare un rigo e trascina giù
Rispondi a: [RISOLTO] Selezionare un rigo e trascina giù2018-12-13T10:27:06+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Selezionare un rigo e trascina giù Rispondi a: [RISOLTO] Selezionare un rigo e trascina giù

sidsid
Moderatore
    Post totali: 716

    Prova questa soluzione

    Sub trascina()
    Dim vFogli As Variant
    Dim j As Long
    vFogli = Array("I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", "XI", "XII", "XIII")
    For j = LBound(vFogli) To UBound(vFogli)
        With Sheets(vFogli(j))
            .Range("A5:C5").AutoFill Destination:=.Range("A5:C92"), Type:=xlFillDefault
        End With
    Next j
    End Sub

    Ho messo i fogli in un array; in questo modo anche se li sposti, vengono considerati solo quelli; logicamente puoi aggiungere o togliere i fogli che vuoi

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi