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
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.
