Formato Celdas EXCEL

[YAID]

Hola Laire, para esto puedes usar la funcion de formato condicional, o si quieres te dejo este codigo:

Sub valor()

'Aqui edita la celda donde empezaran los datos (en vez de "A7" puede ser "B7" o cualquier otra celda)
Range("A7").Select

'Aqui debes contar cuantas filas van a ser las que se van a modificar y ponerlas en una celda
'en este caso voy a poner la celda "A3", pero si quieres cambia de celda

Dim celda As Integer

celda = Val(Range("A3"))

'Aqui empieza lo bueno, esta condicional comenzara donde tienes la primera fila de datos
'comenzando a leer (segun tu ejemplo) en la columna "A", para colocar los resultados en la
'columna "D", incluyendo el formato de moneda.

For i = 1 To celda

ActiveCell.Offset(0, 3).Select

If ActiveCell.Offset(0, -1) <> 0 Then

ActiveCell.Offset(0, -1).Copy
ActiveSheet.Paste

Else

If ActiveCell.Offset(0, -2) <> 0 Then

ActiveCell.Offset(0, -2).Copy
ActiveSheet.Paste

Else

If ActiveCell.Offset(0, -3) <> 0 Then

ActiveCell.Offset(0, -3).Copy
ActiveSheet.Paste

Else

ActiveCell = 0

End If
End If
End If

ActiveCell.Offset(1, -3).Select

Next

End Sub


Pon atencion a las indicaciones dadas ok?, espero te sirva,

Salu2