Estoy intentando que excel me copie de una hoja a otrlos valores de una fila, pero omitiendo los ceros.
¿Alguien sabe alguna manera más ágil de efectul sin tener que hacer 400 condicionales?:
=SI(Hoja1!A1>0;Hoja1!A1;SI(Hoja1!A2>0;Hoja1!A2;....
Saludos,
Hola. Creo que en este caso una pequeña macro soluciona el problema de forma muy elegante. Este código que adjunto necesita la selección previa de las celdas o de la columna que tiene los datos originales, y que se le indique el número de columna al que se quiere trasladar la lista, pero excluidos los ceros. Adjunto también un archivo excel con la macro incrustada.
Sub CopiaSinCeros()
qfil = inputbox("¿Número de columna de destino?")
For Each cell In selection
If cell.value <> 0 Then
j = j + 1
cells(j, CLng(qfil)) = cell.value
End If
Next cell
End Sub
Saludos.