Condividi:        

Macro per ripetere Ctrl+freccia in basso

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

Macro per ripetere Ctrl+freccia in basso

Postdi Bruno_81 » 05/11/14 09:39

Ciao a tutti,non riesco a capire come fare un comando semplice con una macro.
Allora,ho una tabella,ogni giorno cambia il numero di colonne.
Quello che devo fare io è selezionare l'ultima colonna e inserirla tra la colonna B e C.
Allora per il primo punto ho risolto con il comando

Range("a1").Select
Cells(1, Columns.Count).End(xlToLeft).Select

Così mi posiziono sulla prima riga dell'ultima colonna.

Ora devo selezionare tutta la colonna,ho provato con il comando

Range(Selection, Selection.End(xlDown)).Select

Il problema è che ci sono delle celle vuote all'interno della colonna,quindi dovrei utilizzare il comando ctrl+freccia in basso più volte...
Perchè ripetendo più volte il comando

Range(Selection, Selection.End(xlDown)).Select

non funziona? :cry:

Potete suggerirmi un'alternativa?
Alla fine quello che mi serve è una macro che mi individui qual'è l'ultima cella della riga 1 che contiene un dato e selezionare tutta quella colonna (per incollarla ci riesco da me :D )
Bruno_81
Utente Junior
 
Post: 10
Iscritto il: 24/10/14 16:26

Sponsor
 

Re: Macro per ripetere Ctrl+freccia in basso

Postdi ricky53 » 05/11/14 12:45

Ciao,
per selezionare tutti i dati dell'ultima colonna e copiarli dopo la colonna "B" prova in questo modo
Codice: Seleziona tutto
Sub Copia_Colonna()
    Dim UR As Long, UC As Long
   
    UC = Cells(1, Columns.Count).End(xlToLeft).Column
    UR = Cells(Rows.Count, UC).End(xlUp).Row
    Range(Cells(1, UC), Cells(UR, UC)).Copy
    Columns("C:C").Insert Shift:=xlToRight
    Range("A1").Select
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro per ripetere Ctrl+freccia in basso

Postdi Anthony47 » 05/11/14 15:16

Vedi il suggerimento di Ricky sopra.

Senza curiosare troppo nella tua macro io avrei suggerito:
Codice: Seleziona tutto
Cells(1, Columns.Count).End(xlToLeft).EntireColumn.Select

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per ripetere Ctrl+freccia in basso

Postdi ricky53 » 05/11/14 15:53

Ciao,
sei autorizzato a curiosare ... Eh, Eh !!!
Tu hai ottimizzato!

Io ho fatto tutti i passi (per addetti ai lavori di medio livello) per copiare solo intervallo con dati; ho previsto anche l'inserimento della colonna dopo la "B" .. tanto per gradire.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro per ripetere Ctrl+freccia in basso

Postdi Bruno_81 » 05/11/14 16:07

Grazie mille,bastava aggiungere EntireColumn.select :D
Bruno_81
Utente Junior
 
Post: 10
Iscritto il: 24/10/14 16:26


Torna a Applicazioni Office Windows


Topic correlati a "Macro per ripetere Ctrl+freccia in basso":


Chi c’è in linea

Visitano il forum: Nessuno e 85 ospiti