Copiar datos con condición

Hola:
Tengo un problema y necesito ayuda. Tengo en una columna desde A1:A6 unos datos que quiero pasar a la columna D1:D6 pero con una condición que si en alguna de las celdas de A el valor es cero no me lo pase a la celda correspondiente en DE pero DE mantenga el valor que tenia anteriormente. Por ejemplo: En la celda A3=5, la celda D3=5, al volver a introducir nuevos datos en la celda A3=0, D3=5 y asi en el resto de celdas.Se puede hacer con una macro?
Le agradecería su ayuda, Gracias.

1 respuesta

Respuesta
1
La macro que te servirá es la siguiente
Sub algo()
For x = 1 To 6
If Cells(x, 1).Value <> 0 Then
Cells(x, 4).Value = Cells(x, 1).Value
End If
Next x
End Sub
El archivo donde la hice y esta probada es:
http://hotfile.com/dl/119777645/b4a1297/sad.xlsm.html
Espero te sirva no olvides finalizar y puntuar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas