Repetir una acción de VBA en varias celdas contiguas
publicado
Hola,
Tengo una consulta, resulta que he logrado crear una lista desplegable dependiente, el problema ahora, es que necesito que esa misma acción se repita las celdas siguientes, la acción fue creada en VBA para la celda K8 relacionada con AJ8,pero lo que ahora necesito es que el evento de K8 suceda también en K9, K10 y demás (hasta K47) y AJ8, AH9 y demás; probé con copiar el código de VBA:...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$K$8" Then Exit Sub
ActiveSheet.Unprotect
Select Case Target.Value
Case Is = "Actualización guía comercial"
rgo = "_730_53"
Case Is = "Elaboración guia comercial"
rgo = "_730_53"
Case Is = "Perfiles producto mercado"
rgo = "_730_53"
End Select
Range("AJ8").Select
ActiveCell = ""
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & rgo
End With
ActiveSheet.Protect
End Sub[/CODE]
[b]...CAMBIANDO[/b] $K$8 por $K$9 y ("AJ8") por ("AJ9") y VBA me dice que "se ha detectado un error ambiguo"porque al parecer no se puede repetir el mismo comando para la hoja.
Quisiera saber si existe alguna forma de que la acción suceda en las demás celdas.
Gracias por tomarse el tiempo para leer mi inquietud.
De antemano les agradezco muchísimo su ayuda
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola,
Tengo una consulta, resulta que he logrado crear una lista desplegable dependiente, el problema ahora, es que necesito que esa misma acción se repita las celdas siguientes, la acción fue creada en VBA para la celda K8 relacionada con AJ8,pero lo que ahora necesito es que el evento de K8 suceda también en K9, K10 y demás (hasta K47) y AJ8, AH9 y demás; probé con copiar el código de VBA:...
[b]...CAMBIANDO[/b] $K$8 por $K$9 y ("AJ8") por ("AJ9") y VBA me dice que "se ha detectado un error ambiguo"porque al parecer no se puede repetir el mismo comando para la hoja.
Quisiera saber si existe alguna forma de que la acción suceda en las demás celdas.
Gracias por tomarse el tiempo para leer mi inquietud.
De antemano les agradezco muchísimo su ayuda