Macro Excel. No sé cómo hacerlo.

[Perr0]

sorry dorde, me maree y pensé que tu eras el de la pregunta, debia decir "gubertu".
No quise en ningun momento opacarte... todas las soluciones son útiles.


el script que hice fue este:

Código vb:

Private Sub w_Click()
y = 1
Do While Cells(y, 1) <> ""
    If Cells(y, 3) < 0 Then
        valorC4 = 0
    Else
        valorC4 = Cells(y, 3)
    End If
    If Cells(y, 3) > 0 Then
        valorC5 = 0
    Else
        valorC5 = Cells(y, 3) * -1
    End If
    Cells(y, 4) = valorC4
    Cells(y, 5) = valorC5
    y = y + 1
Loop
Columns("C:C").Delete Shift:=xlToLeft
End Sub
 

salu2 cordiales