Evento change en excel ayuda codigo
hola encontré el siguiente código en este foro i necesito esto pero con unas funcionalidad mas que no se como resolver
Private Sub Worksheet_Change(ByVal Target As Range)
'por luismondelo
If Target.Address = "$B$1" Then
Range("a1").Value = Range("a1").Value -Target.Value
Target.Select
Target.ClearContents
End If
End Sub
lo que pude entender es que este código al ingresar un numero en b1 esto le resta al campó a1 necesito esto pero ademas quiero que este código poder hacerlo para 1000 registros no solo para esa celda osea hacerlos para
a2-b2
a3-b3
asi susesivamente gracias expertos y espero me puedan colaborar gracias
1 Respuesta
Dado que esa macro la hice yo, te mando tu solución:
Copia este evento change dentro del objeto hoja que estás tratando y cuando modifiques cualquier celda de la columna B de dicha hoja, se autoejecutará la macro para realizar el proeceso.
Private Sub Worksheet_Change(ByVal Target As Range) 'por luismondelo If Target.Column = 2 Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - Target.Value Target.Select Target.ClearContents End If End Sub
no olvides finalizar la consulta
