Fanny Cangrejo Diaz

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...

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