Necesito una macro para estos calculo en la hoja registro

mi amigo esto es lo que quiero que haga la macro en la celdas que a continuación te especifico lo tengo por formula pero la quiero por macro

En la celda F16 de la
hoja registro quiero q me haga por macro que se active al cumplir condición =SI(Y(F14>0;F15>0);F14*F15;(""))
En la celda F17 de la
hoja registro quiero q me haga por macro que se active al cumplir condición =SI(Y(F11>0;F16>0);F11*F16;(""))
En la celda F18 de la
hoja registro quiero q me haga por macro que se active al cumplir condición =SI(Y(F15>0;F11>0);F15*F11+F15;(""))
En la celda F19 de la
hoja registro quiero q me haga por macro que se active al cumplir condición
=SI(Y(F16>0;F11>0);F16*F11+F16;(""))

gracias en lo que me puedas ayudar

1 respuesta

Respuesta
1

Este sería el código

Private Sub Worksheet_Change(ByVal Target As Range)
'por.dam
If Not Intersect(Target, Range("F14:F15")) Is Nothing Then
    If Range("F14") > 0 And Range("F15") > 0 Then
        Range("F16") = Range("F14") * Range("F15")
    Else
        Range("F16") = ""
    End If
End If
If Not Intersect(Target, Range("F11,F16")) Is Nothing Then
    If Range("F11") > 0 And Range("F16") > 0 Then
        Range("F17") = Range("F11") * Range("F16")
    Else
        Range("F17") = ""
    End If
End If
If Not Intersect(Target, Range("F11,F15")) Is Nothing Then
    If Range("F11") > 0 And Range("F15") > 0 Then
        Range("F18") = Range("F15") * Range("F11") + Range("F15")
    Else
        Range("F18") = ""
    End If
End If
If Not Intersect(Target, Range("F11,F16")) Is Nothing Then
    If Range("F11") > 0 And Range("F16") > 0 Then
        Range("F19") = Range("F16") * Range("F11") + Range("F16")
    Else
        Range("F19") = ""
    End If
End If
End Sub

Saludos.Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas