Eliminare celle vuote

[T.Life]

Nella colonna AT4:AT80 ci sono un serie di formule che portano a dei risultati numerici con degli spazi vuoti in alcune righe.
Vorrei copiare tali risultati in un'altra colonna es: AU1:AU.., eliminando gli spazi intermedi:

es:colonna AT
1
2

5
6
7


11
es:colonna AU
1
2
5
6
7
11

[ricky53]

Ciao,
se l'operazione non deve essere ripetuta molte volte puoi filtrare i dati nella colonna "T" in modo da non vedere le celle che "visualizzano nulla" e poi copi dove ti occorre.

Controlla le formule per verificare che venga scritto "nulla" (due volte i doppi apici) nelle celle

[PcBase]

In alternativa ai consigli di Ricky53
Provate anche con:

Codice: Seleziona tutto

Sub Copia_Dati()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "AT").End(xlUp).Row
    With Range("AT4:AT" & LastRow).Cells
        Union(.SpecialCells(xlCellTypeConstants), _
          .SpecialCells(xlCellTypeFormulas)).Copy Destination:=Range("AU1")
    End With
End Sub

[T.Life]

Mi da questo errore !!!

http://wikisend.com/download/175950/Prova.xlsx

[Anthony47]

Non credo che il file contenga celle con costanti, quindi dovresti usare

Codice: Seleziona tutto

    With Range("AT4:AT" & LastRow).Cells
          .SpecialCells(xlCellTypeFormulas, xlNumbers).Copy Destination:=Range("AU1")
    End With


Ciao

[ricky53]

Ciao,
io ottengo:
Errore di run-time '1004'
Non è stata trovata alcuna cella



Preciso che nella cella "AT2" ho inserito la formula

Codice: Seleziona tutto

=SE(AS2<>""; AS2; "")

che per "non verificata" riportava "" nella cella "AT2" ed ho copiato in basso fino alla cella "AT20"


Ho provato con la soluzione di Anthony e la copia viene fatta correttamente.

[T.Life]

Scusate ma a me continua a dare lo stesso errore

[Anthony47]

Scusate ma a me continua a dare lo stesso errore

Allora dovresti dire quale errore.
Ciao

[T.Life]

Errore di run-time '1004'
Non è stata trovata alcuna cella

[Anthony47]

Allora in AT4 e sottostanti o non ci sono formule oppure non ci sono formule che restituiscono numeri.

Ciao

[T.Life]

solo numeri

[Anthony47]

Nella colonna AT4:AT80 ci sono un serie di formule che portano a dei risultati numerici con degli spazi vuoti in alcune righe

solo numeri

Ma allora e' cambiato il problema?

[T.Life]

Scusa il ritardo della mia risposta !!!

Si solo con i numeri

[Anthony47]

Beh, se il problema e' cambiato dovresti pero' almeno descriverlo...

[T.Life]

http://wikisend.com/download/175950/Prova.xlsx

Non ci sono formule che restituiscono questi numeri ed io vorrei eliminare gli spazi vuoti che si sono creati avvicinando i valori vicini uno sotto l'altro

[Anthony47]

Il file e' vuoto, non ci ho trovato nessuna ispirazione. Suggerisco di usare il filtro automatico.

Ciao