copia contenuto celle non vuote

[CIACILLO1]

ciao a tutti ho bisogno del vostro aiuto......
mi serve una formula che mi copi il contenuto della riga con valori e mi salti quelle senza valori in due fogli differenti...
la riga va da A4 a Q4.
grazie per lerisposte che arriveranno

[Flash30005]

Se va bene anche una macro puoi usare questa

Codice: Seleziona tutto

Sub CopiaV()
CN = 0
For CC = 1 To 17
If Worksheets("Foglio1").Cells(4, CC).Value <> "" Then
CN = CN + 1
Worksheets("Foglio2").Cells(4, CN).Value = Worksheets("Foglio1").Cells(4, CC).Value
End If
Next CC
End Sub

Ciao

[ricky53]

Ciao,
oltre a quantoti ha ottimaente suggerito Flash, puoi provare con il "Filtro Avanzato" leggi nella guida le modalità di utilizzo.

[Anthony47]

E se vuoi farlo con formule:
-su Foglio2 selezioni A2:Q2
-metti nella barra della formula questa formula

Codice: Seleziona tutto

=MATR.TRASPOSTA(INDICE(Foglio1!A4:Q4;PICCOLO(SE(Foglio1!A4:Q4<>"";RIF.COLONNA(Foglio1!A4:Q4);"");RIF.RIGA(INDIRETTO("A1:A"&COLONNE(Foglio1!A4:Q4))))))

-completi con Contr-Maiusc-Enter
-Se non vuoi vedere gli errori nelle celle finali puoi usare la formattazione condizionale

Ciao

[Anthony47]

Mi e' stato fatto notare che lasciare gli errori nelle celle non e' molto bello, quindi invece della formula precedente potete usare questa:

Codice: Seleziona tutto

=SE(RIF.COLONNA(A1)<=CONTA.VALORI(Foglio1!$A$4:$Q$4);INDICE(Foglio1!$A$4:$Q$4;1;PICCOLO(SE(Foglio1!$A4:$Q4<>"";RIF.COLONNA(Foglio1!$A4:$Q4);"");RIF.COLONNA($A1:$Q1)));"")


(che e' anche piu' semplice di quella di prima)
Sempre Contr-Maiusc-Enter

Ciao