Inactivación del botón deshacer después de ejecutar macro

Buenas tardes experto:
Quisiera hacerle la siguiente consulta. Tengo una lista validada en la  hoja 1 que, según el valor que elija, hace que se oculte un rango de filas en la hoja 2. Es normal que el botón de deshacer de la hoja 1 se desactive aun si modifico alguna celda o fila que no tiene nada que ver con la celda validada que hace que se ejecute la macro?????????
La macro que tengo es esta:
Private Sub Worksheet_Change(ByVal Target As Range)
A = Range("E4").Value
If A = 1 Or A = 2 Then
Sheets("Hoja2").Rows("5:25").Hidden = True
Else
If A = "3" Or A = "4" Then
Sheets("Hoja2").Rows("5:25").Hidden = False
Else
Range("E4").ClearContents
End If
End If
End Sub
.:::Gracias por tu ayuda::::::

1 Respuesta

Respuesta
1
Prueba mejor a poner el código de esta manera y me cuentas:
Private Sub Worksheet_Change(ByVal Target As Range)
if target.address = "$E$4" then 
If target.value = 1 Or target.value = 2 Then
Sheets("Hoja2").Rows("5:25").Hidden = True
ElseIf target.value = "3" Or target.value = "4" Then
Sheets("Hoja2").Rows("5:25").Hidden = False
Else
target.ClearContents
End If
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

! Macro para validar datos!

Tengo una inquietud necesito una macro que pueda hacer una búsqueda entre dos hojas una de las hojas es una lista con un números cosencutivos (folio)(hoja2) y en la otra un formato(hoja1), lo que quiero que haga esta macro es que me verifique el...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Macro para copiar celdas

Necesito una macro que me copie los datos de la celda B5 de la hoja 1 a la celda A2 de la hoja 2 lo que pasa es que los datos de la celda B5 me van cambiando y quiero que todos los datos se me vallan guardando en la celda A2, A3, A4, ... En fin en...
1 respuesta

Sumar valor en misma celda

Como lo hago para que al introducir un valor en una celda me sume automáticamente 25. Es decir que al poner 100 en una celda me de esta misma 125
1 respuesta

Modificar macro Excel para poner mayúsculas.

He copiado un macro para excel de Todo Expertos, para poner la primera letra de una oración en mayúscula y un punto final, funciona bien pero me gustacia aplicarlo solo a una celda o conjunto de ellas y no soy capaz de modificarlo, os agradecería...
1 respuesta

Macro que al seleccionar dato de una lista desplegable

Amigo en esa misma hoja de registro también tengo otra lista desplegable pero quiero lo siguiente estando en registros y seleccionando un dato de la lista desplegable en F4 me busque en proveedores desde A2 hasta fin de registro y me coloque el dato...
1 respuesta

¿Cómo puedo ocultar COLUMNAS con macros en excel?

Tengo valores desde A1 a K18, son números, en A20 a K20 tengo una suma de todos los números, pero en algunos tengo valor CERO, lo que necesito es que si un valor de los que tengo en A20:K20 es igual a CERO oculte toda esa columna, por ejemplo: si en...
1 respuesta

Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k5:k300")) Is Nothing Then Exit Sub End If ' If Target >= 0...
1 respuesta