Poner un condicional de valor a una celda sin necesidad de un botón de comando
Tengo un macro que me cambia el valor de una celda dependiendo del valor de otra, lo hice colocando dicha instrucción en un botón de mando, pero quiero que el macro realice la instrucción sin necesidad del botón, que cuando cambie el valor de la celda control, cambie el de la otra celda si se cumple la condición. Cordial saludo.
1 Respuesta
Pon la macro
Sub iva()
For Each myWorksheet In Worksheets
'make sure that cell B1 is not empty
If myWorksheet.Range("j40").Value > 2000000 Then
myWorksheet.Range("f41").Value = 0.07
Else
myWorksheet.Range("f41").Value = 0.09
End If
Next
End Sub
Esto lo tengo en un botón de comando, pero quiero que sin necesidad del botón, tan pronto cambie el valor de la celda j40, cambie el valor de la celda f 41 de acuerdo a la condición.
Pon esto en el evento change de la hoja
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J40")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
'
If Target.Value > 2000000 Then
Range("F41").Value = 0.07
Else
Range("F41").Value = 0.09
End If
End If
End Sub
Te paso la macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J40")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
'
If Target.Value > 2000000 Then
Range("F41").Value = 0.07
Else
Range("F41").Value = 0.09
End If
End If
End Sub
¡Gracias! voy a probarlo y te aviso
Valoras la respuesta para finalizar saludos!
no se como hacer lo que me pides, poner la macro en el evento change de la hoja..
Aquí el vídeo para que consigas entrar al evento change
No olvides cambiar la valoración de la respuesta
