Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

Copia valori nella prima colonna vuota

Ultimo Aggiornamento: 21/01/2018 18:43
Chiara-ExcelForum
Post: 55
Registrato il: 22/12/2017
Città: MILANO
Età: 44
Utente Junior
Excel2016
OFFLINE
21/01/2018 18:22
00#1
Ciao a tutti, premetto che prima di aprire questa discussione ho fatto una ricerca in internet ma non ho trovato ciò che mi serve

Vorrei poter copiare i dati inseriti in una colonna specifica "AD" nella prima colonna vuota a destra.

Con il registratore di macro ho ottenuto questo codice

Columns("AD:AD").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=6
Columns("AT:AT").Select
ActiveSheet.Paste

dal momento che la colonna vuota era la AT.

Grazie
Ciao Buona serata
patel45
Post: 4.054
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
21/01/2018 18:32
00#2
ci sono vari modi per determinare il numero della prima colonna vuota, provali e scegli quello che funziona nel tuo caso 

LC = Range("A1").SpecialCells(xlLastCell).Column + 1

LC = Cells(1, Cells.Columns.Count).End(xlToLeft).Column + 1

LastCol = Cells.Find("*", after:=Cells(1, 1), searchdirection:=xlPrevious, searchorder:=xlByColumns).Column + 1

Lastcol = ActiveSheet.UsedRange.Columns.Count + 1

Lastcol = Range("A1").CurrentRegion.Columns.Count + 1

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Chiara-ExcelForum
Post: 57
Registrato il: 22/12/2017
Città: MILANO
Età: 44
Utente Junior
Excel2016
OFFLINE
21/01/2018 18:43
00#3
Ti ringrazio ma non so come integrarla in un codice

nel senso che ho scritto

If Val(Range("A" & RR)) <> 0 then 'se il valore della colonna A è vuoto allora

LC = Range("A1").SpecialCells(xlLastCell).Column + 1
End if

Ma non funziona
[Modificato da Chiara-ExcelForum 21/01/2018 18:43]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Cerca
nei titoli, nei messaggi, con Google
Tag discussione
copia valori nella prima
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 16:50. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima