You are here:---Rispondi a: [RISOLTO] da foglio1 (ws1) a foglio2 (ws2)
Rispondi a: [RISOLTO] da foglio1 (ws1) a foglio2 (ws2) 2018-07-05T19:19:51+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] da foglio1 (ws1) a foglio2 (ws2) Rispondi a: [RISOLTO] da foglio1 (ws1) a foglio2 (ws2)

sidsid
Moderatore
    Post totali: 510

    Sub macro1()
    Dim I As Integer
    For I = 1 To Sheets.Count
    ....

    Ciao Fede
    Ad essere pignoli la proprietà Count restituisce un valore Long e non Integer.
    Per quanto riguarda il codice, magari non serve ciclare tutti i fogli; in questo caso mi costruirei un array con i fogli indicati, senza usare il ciclo.

    Un esempio:

    Sub prova()
    Dim vFogli As Variant
    Set vFogli = Sheets(Array("Foglio1", "Foglio2", "Foglio3"))
    
    Application.ScreenUpdating = False
    vFogli.Select 'unisco i fogli
    Columns("H:AF").Select
    Selection.ColumnWidth = 0.5
    
    Columns("AG:AX").Select
    Selection.ColumnWidth = 2
    
    Columns("AY:BW").Select
    Selection.ColumnWidth = 0.5
    
    Columns("BX:DB").Select
    Selection.ColumnWidth = 2
    
    Range("A1").Select 'tolgo la selezione da tutti i fogli
    Sheets(1).Select 'separo i fogli
    Application.ScreenUpdating = True
    
    Set vFogli = Nothing
    End Sub

    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