You are here:---Rispondi a: Eliminare colonne tabella su più fogli
Rispondi a: Eliminare colonne tabella su più fogli 2019-04-16T15:32:13+02:00

Home Forum Domande su Excel VBA e MACRO Eliminare colonne tabella su più fogli Rispondi a: Eliminare colonne tabella su più fogli

sidsid
Moderatore
    Post totali: 639

    Ciao.
    BySalv sicuramente è impegnato; ne approfitto per darti una mano

    Inanzitutto dobbiamo impostare il numero delle colonne delle tabelle; sono in totale 40 (range A:AH)
    Questo numero in pratica sarà un paracadute, nel caso eseguissi più di una volta la macro, elimineresti altre colonne; invece impostando questa opzione la macro non eliminerà nulla. Ma credo che tanto la userai solo una volta poi potrai eliminarla.

    Questo il codice da inserire in un modulo standard.(attenzione: fai una copia del file e lavora su quello; meglio evitare eventuali spiacevoli sorprese)

    Sub ELIMINA_COLONNE_TABELLE()
    Dim tbl As ListObject
    Dim n As Integer, nColonne As Integer
    Dim ws As Worksheet
    
    nColonne = 40
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "RISULTATO" 
    
            Case Else
                For Each tbl In ws.ListObjects
                    If tbl.ListColumns.Count = nColonne Then
                        For n = 1 To 5
                            tbl.ListColumns(31).Delete
                        Next n
                    End If
                Next tbl
        End Select
    Next ws
    Application.ScreenUpdating = True
    End Sub

    Nel codice ho impostato l’istruzione per escludere i fogli che non vuoi siano ciclati
    Case "RISULTATO"
    Se devi aggiungere fogli che vanno esclusi dall’esecuzione, devi scriverli tra virgolette e separati da virgola; esempio
    Case "RISULTATO","pippo","pluto","minni"
    ecc…

    spero sia chiaro.

    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