righe vuote

Hai un problema con Excel?

Nuova discussione

righe vuote
di gigi (utente non iscritto) data: 12/06/2017 10:47:39
Buongiorno, dato l'allegato vi sarei grato se qualcuno potesse risolvere quanto in esso contenuto, grazie
di Gianfranco data: 12/06/2017 11:30:12
ciao
perché vba?

metti in foglio2

dove vuoi

=SE.ERRORE(INDICE(Foglio1!$A$1:$A$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/(Foglio1!$A$1:$A$1000<>"");RIF.RIGA(B1)));"")

per i nomi
e

=SE.ERRORE(INDICE(Foglio1!$B$1:$B$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/(Foglio1!$B$1:$B$1000<>"");RIF.RIGA(A1)));"")

per i numeri
e tira in giù
oppure

=SE.ERRORE(INDICE(Foglio1!A$1:A$1000;AGGREGA(15;6;RIF.RIGA($1:$1000)/(Foglio1!A$1:A$1000<>"");RIF.RIGA(B1)));"")

e tira a destra è in giù

di alfrimpa data: 12/06/2017 11:30:59
Ciao gigi

La macro che vedi sotto fa quello che hai chiesto.

Alfredo

Sub copia()
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Foglio1").Range("a1:a" & ur)
Sheets("Foglio2").Range("a2:b100").ClearContents
For Each cel In rng
    lr = Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Row
        If cel.Value <> "" Then
            Sheets("foglio2").Cells(lr + 1, 1).Value = cel.Value
            Sheets("foglio2").Cells(lr + 1, 2).Value = cel.Offset(0, 1).Value
        End If
Next cel
End Sub

di Gianfranco data: 12/06/2017 11:31:32
ciao Al

due è meglio che uno
di alfrimpa data: 12/06/2017 11:32:10
Ciao Gianfranco

Un abbraccio

Alfredo
di gigi (utente non iscritto) data: 12/06/2017 17:40:31
Scusate ma se incollo la formula mi da un errore.
sareste così gentili da metterla nel foglio xls allegato?
Grazie
di alfrimpa data: 12/06/2017 17:48:45
Gigi la formula di Gianfranco funziona perfettamente.

Devi copiare la prima in A2 e la seconda in B2 del foglio2 e trascini giù.

Per la macro devi aprire l'editor di VBA con Alt+F11, dal menù Inserisci scegli Modulo standard e nella finestra in alto a destra copia e incolla il codice.

Poi esegui la macro con Alt+F8 la selezioni e clicca ok.

Alfredo
di gigi (utente non iscritto) data: 13/06/2017 10:22:41
mi spiace, la formula restituisce errore, vds stamp.
grazie
di alfrimpa data: 13/06/2017 10:26:52
Non devi allegare un'immagine ma il file con l'errore.

Alfredo
di Gianfranco data: 13/06/2017 10:35:51
ciao
Ciao AL
Gigi

è un errore piuttosto
ricorrente con il copia incolla
penso sia dovuto a qualche spazio
selezionato nel copia o nella posizione del cursore
al momento dell'incolla

comunque ti allego il file

se hai tanti dati ti consiglio la macro di AL

nb
per curiosità vedi se hai uno spazio prima dell'=
di gigi (utente non iscritto) data: 13/06/2017 12:39:27
grazie risolto

Vuoi Approfondire?