Elimina colonne

[raffaele10]

Ciao a tutti,

avrei bisogno di un Vs. gentile aiuto nella realizzazione di una macro che mi elimini tutte le colonne comprese nell’intervallo ( K : Z) di un foglio Excel la cui prima cella (riga 1) presenti il numero 2.
Da una attenta ricerca nel forum ho trovato solo realizzazioni mirate ad eliminare le righe.
Vi ringrazio anticipatamente.
Raffaele10

[Francesco53]

Ciao prova questa macro, quando nella cella A1 è presente il numero 2 cancella le colonne.

Codice: Seleziona tutto

Sub CancCol()
Worksheets("Foglio1").Select
    If Cells(1, 1) = 2 Then
        Range(Cells(1, 11), Cells(1, 26)).Select
        Selection.EntireColumn.Delete
        Range("A1:A1").Select
        Exit Sub
    End If
End Sub

Francesco

[raffaele10]

Ciao Francesco,

innanzi tutto ti ringrazio per avermi risposto così rapidamente.
In merito alla macro la stessa elimina tutte le colonne comprese nell’intervallo K:Z.
(in effetti non mi sono spiegato bene nella mia richiesta e ti chiedo scusa).
Mi necessita,invece, che vengano eliminate solo le colonne che riportano nella prima cella il valore 2.
Esempio:

K L M ………………………. AF AG AK
1 1 2 3 2 4
2 384 456 567 234 789 123
3 384 456 567 234 789 123
4 384 456 567 234 789 123
5
6

Dovranno essere eliminate soltanto le colonne L e AF che sono quelle che hanno valore 2 sulla riga 1.

Ecco come si deve presentare il foglio a macro terminata:

K L ………………………. AE AF
1 1 3 4
2 384 567 789 123
3 384 567 789 123
4 384 567 789 123
5
6

Ciao e grazie di nuovo

[Flash30005]

Leggi il post di Francesco, qui sopra
Non so se ho interpretato bene il quesito posto, ma, mi sembra che debbano essere eliniate le colonne da K a Z se hanno 2 alla prima riga, pertanto, se così, consiglierei questa macro

Codice: Seleziona tutto

Sub EliminaColSe()
For col = 26 To 11 Step -1
    If Cells(1, col).Value = 2 Then Columns(col).Delete Shift:=xlToLeft
Next col
End Sub

Fai sapere
Ciao

EDIT: abbiamo scritto insieme il post

[raffaele10]

Ciao Francesco, ciao Flash,

Funziona tutto perfettamente.

Grazie di nuovo