Modificar parte del código en excel
Expertos buenos días
Como puedo hacer para agregarle a este código para que se ejecute al mismo tiempo en las 3 hojas cuando realice cada cambio de numero en la celda A1
Sub Controldenúmero1_Cambiar()
Dim n As Integer
For n = 1 To Len([A1])
BuscarÁrea n, Mid([A1], n, 1), 4, 13
BuscarÁrea n, Mid([A1], n, 1), 17, 26
Next
End Sub
y este es el complemento
Sub BuscarÁrea(n As Integer, Número As Integer, x1 As Long, x2 As Long)
Application.ScreenUpdating = False
y = (n - 1) * 2 + 5 'empieza en col E
aTablas:
Range(Cells(x1, y), Cells(x2, y)).Interior.ColorIndex = xlNone
For x = x1 To x2
If Cells(x, y) = Número Then
Cells(x, y).Interior.Color = vbYellow
'pasa a la tbla siguiente
GoTo siguenTablas
End If
Next
siguenTablas:
'sigue con otras tablas
y = y + 9
If y > 57 Then Exit Sub
GoTo aTablas
End Sub
https://drive.google.com/open?id=1IaQEHMb9mQmH8ZnTyaMc6pvJtThzuWTP
1 Respuesta
Prueba este
Sub Multi_Hojas() Dim xSh As Worksheet Application.ScreenUpdating = False For Each xSh In Worksheets xSh.Select Call RunCode Next Application.ScreenUpdating = True End Sub Sub RunCode() 'AQUI SU CODIGO End Sub
Cambia la línea por tu código
Si llamas ambas macros con el mismo botón simplemente borra la línea que dice " 'Aquí su código " y agrega
Call Controldenúmero1_Cambiar Call BuscarÁrea
