eliminare colonne non contigue

[miko]

salve,
dopo aver importato un file txt devo eliminare alcune colonne non contigue;
registrando la macro relativa e successivamente eseguendola ho errore nella seguente linea di codice:

Codice: Seleziona tutto

.......
Range("B:B,D:D,F:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft  <<<<<<<<<<<
......

non essendo possibile eseguire il comando con sezioni sovrapposte.
come devo modificare la macro?
ciao grazie

[Anthony47]

Devi selezionare /eliminare in blocchi di colonne contigue; quindi prima B, poi D, poi F. In pratica devi ripetere tre volte le istruzioni.

Ciao

[miko]

salve,
dopo aver importato un file txt devo eliminare alcune colonne non contigue;
registrando la macro relativa e successivamente eseguendola ho errore nella seguente linea di codice:

Codice: Seleziona tutto

.......
Range("B:B,D:D,F:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft  <<<<<<<<<<<
......

non essendo possibile eseguire il comando con sezioni sovrapposte.
come devo modificare la macro?
inoltre non conosco l'ultima cella-riga occupata identica per tutte le colonne
ciao grazie

[Anthony47]

E' una domanda?

[miko]

ciao,
se ti riferisci all'ultimo post, non è una domanda;
tentavo di aggiungere un particolare che avevo dimenticato, e ci siamo sovrapposti;
intanto ho provato il tuo suggerimento, ma anche se risolve il problema ne crea un altro;
eliminando le colonne queste si spostano verso destra e quindi la colonna D diventa la colonna E per cui la macro elimina colonne che non devono essere eliminate;
forse dopo aver eliminato la prima colonna devo vedere quella successiva da eliminare e modificare il codice;
non mi sembra una buona soluzione.
ciao, grazie

[miko]

ciao,
la soluzione che avevo indicato funziona, anche se non è delle migliori;
qualcuno può suggerirmi una soluzione diversa?
se dovessi eliminare sempre una stessa colonna, ad esempio la B, per un certo numero di volte, come dovrei agire?
ho scritto questo codice:

Codice: Seleziona tutto

....
a:
     Range("B:B").Select
    Selection.Delete Shift:=xlToLeft
    GoTo a
.....


ma in questo modo il ciclo non ha mai termine;
come modifico il codice se devo ripetere ad esempio 5 volte la stessa operazione?
ciao, grazie

[Anthony47]

Per il primo problema, comincia eliminando le colonne piu' a destra.

Per l' altra domanda, se devi ripetere 5 volte l' eliminazione della colonna B e' perche' vuoi eliminare le colonne B:F, quindi, per cominciare basterebbe dire Range("B:F").Select
Oppure usi Range("B:B").Resize(, 5).Select

Insomma non c' e' nessun motivo per arrivare a un ciclo del tipo
For I=1 to 5
'le istruzioni per eliminare col B
Next I

Ciao

[miko]

ciao;
hai ragione bastava indicare e selezionare il range, dal momento che eliminiamo colonne contigue;
che stupido, io, a non averci pensato.
grazie, buon weekend.

[Flash30005]

Perdona ma...
Lo stupido è quello che non capisce
tu, grazie ad Anthony, hai capito e ne farai tesoro

Ciao