Previous page | 1 | Next page
Facebook  

inserimento dati in base agli spazi vuoti

Last Update: 2/15/2020 8:41 AM
Author
Print | Email Notification    
Post: 40
Registered in: 2/20/2015
Age: 46
Junior User
2007 / 2010
OFFLINE
2/14/2020 1:10 PM
 
Modify
 
Delete
 
Quote

eliminazione spazi vuoti
nella colonna A ho dei dati intervallati dagli spazi, vorrei che al posto degli spazi vengano inseriti i dati sovrastanti fino a quando non si incontra una cella piena
Nel file il risultato atteso
[Edited by mapero 2/14/2020 1:29 PM]
Post: 220
Registered in: 7/4/2012
Junior User
2013
OFFLINE
2/14/2020 1:39 PM
 
Modify
 
Delete
 
Quote

Assomiglia ad un asterisco, invece è differente
Puoi verificare con la formula =CODICE(A4) e casomai cambiare in ...Chr(176)
Sub copia()
Dim ur, x, y, txt
ur = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Foglio1").Activate
For x = 2 To ur
    If Cells(x, 1) <> "*" Then
        txt = Cells(x, 1)
        For y = x + 1 To ur
            If Cells(y, 1) = Chr(176) Then Exit For
            If Cells(y, 1) = "" Then
                Cells(y, 1) = txt
            End If
        Next
        x = y
    End If
Next
End Sub
Post: 40
Registered in: 2/20/2015
Age: 46
Junior User
2007 / 2010
OFFLINE
2/14/2020 1:44 PM
 
Modify
 
Delete
 
Quote

cavolo vba, per una cosa così semplice ?
in pratica ogni volta che trova uno spazio deve inserire il dato subito sopra fino a quando non trova la cella occupata.
Post: 221
Registered in: 7/4/2012
Junior User
2013
OFFLINE
2/14/2020 3:55 PM
 
Modify
 
Delete
 
Quote

A me piace il VBA, comunque se preferisci le formule, aspetta un'altra risposta dagli esperTi.

Nel frattempo allego una formula (nella quale devi cambiare un solo particolare)
=SE(A2<>"";A2;FORMULA("A"&CERCA(2;1/(A1:A$2<>"");RIF.RIGA(A1:A$2))))
[Edited by ABCDEF@Excel 2/14/2020 4:11 PM]
Post: 41
Registered in: 2/20/2015
Age: 46
Junior User
2007 / 2010
OFFLINE
2/14/2020 4:10 PM
 
Modify
 
Delete
 
Quote

Re:
ABCDEF@Excel, 14/02/2020 15.55:

>>>...per una cosa così semplice ?
Usa formule, suggerimento "cambia un solo particolare" nella formula. In colonna B (avrai la lista), in B2 dopo trascini giù.

=SE(A2<>"";A2;FORMULA("A"&CERCA(2;1/(A1:A$2<>"");RIF.RIGA(A1:A$2))))



perdona la mia ignoranza... dovresti indicarmi i vari passaggi più dettagliatamente... se ti va
da solo non sono capace


[Edited by mapero 2/14/2020 5:44 PM]
Post: 504
Registered in: 1/15/2016
Location: ROMA
Age: 47
Senior User
2016
OFFLINE
2/14/2020 6:21 PM
 
Modify
 
Delete
 
Quote

Buonasera
In B2 da trascinare in basso

=CERCA(2;1/(A$2:A2<>"");A$2:A2)
Post: 42
Registered in: 2/20/2015
Age: 46
Junior User
2007 / 2010
OFFLINE
2/14/2020 6:37 PM
 
Modify
 
Delete
 
Quote

Re:
DANILOFIORINI, 14/02/2020 18.21:

Buonasera
In B2 da trascinare in basso

=CERCA(2;1/(A$2:A2<>"");A$2:A2)


perfetta

Post: 4,212
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Master User
2010
OFFLINE
2/15/2020 8:41 AM
 
Modify
 
Delete
 
Quote

Ciao Danilo, me la puoi spiegare ?
[Edited by patel45 2/15/2020 10:11 AM]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
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]
Maschera inserimento dati complessa ( x me ) :D (6 posts, agg.: 1/17/2017 11:30 PM)
Verificare dati collegati da inserimento libero (4 posts, agg.: 8/31/2017 8:42 PM)
Mask inserimento dati magazzino e scorporo vendite (10 posts, agg.: 11/19/2019 4:04 PM)
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 12:53 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.1] - Copyright © 2000-2020 FFZ srl - www.freeforumzone.com