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
=TuhojaPrincipal!A1
. Así, con cambiar el valor de tu primera hoja, automáticamente se cambia en las otras 2.