Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Elimina colonne

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Elimina colonne

Postdi raffaele10 » 26/09/11 10:54

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
raffaele10
Utente Junior
 
Post: 16
Iscritto il: 26/09/11 09:53

Sponsor
 

Re: Elimina colonne

Postdi Francesco53 » 26/09/11 11:25

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
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: Elimina colonne

Postdi raffaele10 » 26/09/11 12:57

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
raffaele10
Utente Junior
 
Post: 16
Iscritto il: 26/09/11 09:53

Re: Elimina colonne

Postdi Flash30005 » 26/09/11 12:59

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Elimina colonne

Postdi raffaele10 » 26/09/11 13:28

Ciao Francesco, ciao Flash,

Funziona tutto perfettamente.

Grazie di nuovo
raffaele10
Utente Junior
 
Post: 16
Iscritto il: 26/09/11 09:53


Torna a Applicazioni Office Windows


Topic correlati a "Elimina colonne":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti