Previous page | 1 | Next page

Compattare righe

Last Update: 7/3/2022 10:18 AM
Author
Print | Email Notification    
Post: 15
Registered in: 1/22/2018
Location: ROMA
Age: 74
Junior User
excell 2010
OFFLINE
6/13/2022 10:25 PM
 
Modify
 
Delete
 
Quote

Salve
non so come fare per compattare il file che allego magari con una macro, in pratica vorrei eliminare tutte le righe che non contengono valori
Post: 2,622
Registered in: 10/10/2013
Location: VICENZA
Age: 67
Veteran User
365
OFFLINE
6/13/2022 10:45 PM
 
Modify
 
Delete
 
Quote

ciao
in un modulo
Sub elimina()
Application.ScreenUpdating = False
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
[Edited by federico460 6/13/2022 10:45 PM]
Post: 16
Registered in: 1/22/2018
Location: ROMA
Age: 74
Junior User
excell 2010
OFFLINE
6/14/2022 10:03 PM
 
Modify
 
Delete
 
Quote

Re:
federico460, 13/06/2022 22:45:

ciao
in un modulo
Sub elimina()
Application.ScreenUpdating = False
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub




Post: 17
Registered in: 1/22/2018
Location: ROMA
Age: 74
Junior User
excell 2010
OFFLINE
6/15/2022 10:19 PM
 
Modify
 
Delete
 
Quote

Compatta righe
Grazie per la soluzione ma io vorrei no cancellare le righe nulle ma copiare le righe in una colonna adiacente in ordine senza le righe in bianco
Grazie
Post: 6,841
Registered in: 11/14/2004
Master User
Office 2019
ONLINE
6/16/2022 8:58 AM
 
Modify
 
Delete
 
Quote

Ciao Vaiano, hai detto


in pratica vorrei eliminare tutte le righe che non contengono valori



la macro di Federico che saluto fa effettivamente questo elimina gli spazi vuoti, non hai specificato che volevi un elenco di quei dati in un altra posizione e nemmeno hai specificato la posizione, perche probabile che vengano messi in una colonna che contiene già dei dati

comunque eccoti la macro che copia i dati in un altra posizione

vb
Sub compatta()
Dim r, c, x, ur

ur = Cells(Rows.Count, 3).End(xlUp).Row
r = 1
c = 5
For x = 1 To ur
  If Cells(x, 3) <> "" Then Cells(r, c) = Cells(x, 3): r = r + 1
Next x
End Sub


r=1 significa che l'elenco parte dalla riga 1, c=5 vengono inseriti i dati nella colonna 5 = "E" se devi cambiare la colonna o la riga basta inserire i numeri giusti dove vuoi i dati
anche se li vedrai strani perche la colonna 5 non avrà lo stesso formato dei dati della colonna 3="C"

Ciao By Sal (8-D

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 1,173
Registered in: 1/15/2016
Location: ROMA
Age: 49
Veteran User
2016
OFFLINE
6/16/2022 9:53 AM
 
Modify
 
Delete
 
Quote

Ciao
Si può fare anche con una formula
In E2 da trascinare in basso


=SE.ERRORE(INDICE($C$2:$C$1000;AGGREGA(15;6;RIF.RIGA($2:$1000)-1/($C$2:$C$1000<>"");RIF.RIGA($A1)));"")
Post: 2,624
Registered in: 10/10/2013
Location: VICENZA
Age: 67
Veteran User
365
OFFLINE
6/16/2022 5:17 PM
 
Modify
 
Delete
 
Quote

ciao
eliminare è eliminare eh!

poi alla tua precisazione avrei risposto come Danilo

adoro le formule🤣
Post: 18
Registered in: 1/22/2018
Location: ROMA
Age: 74
Junior User
excell 2010
OFFLINE
6/16/2022 11:14 PM
 
Modify
 
Delete
 
Quote

Compatta righe
Grazie per la soluzione
Comunque il avevo scritto "non so come fare per compattare il file che allego" magari con una macro, in pratica vorrei eliminare tutte le righe che non contengono valori


Post: 6,847
Registered in: 11/14/2004
Master User
Office 2019
ONLINE
6/17/2022 6:53 AM
 
Modify
 
Delete
 
Quote

Ciao Vaiano, non amo fare le polemiche, anzi è contro i miei principi, ma nel tuo messaggio scritto in grassetto manca una parola per capirlo bene

DOVE

Ciao By Sal (8-D



se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 19
Registered in: 1/22/2018
Location: ROMA
Age: 74
Junior User
excell 2010
OFFLINE
7/3/2022 10:18 AM
 
Modify
 
Delete
 
Quote

Compattare fighe
Grazie per il vostro aiuto
ho risolto il problema ma non so come fare per dire che la discussione è terminata
grazie
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 8:53 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2022 FFZ srl - www.freeforumzone.com