modificar el rango al codigo

[dragonfire33]

como puedo modificar el rango a este codigo , que no solamente se ejecute con el numero de la columna A , sino que se ejecute con el numero dividido entre la columna A a la columna D y se marque en los cuadros del lado derecho y se vaya señalado con el cuadro de color rojo de la columna E para saber en que numero va

Private Sub SpinButton1_Change()
  Dim n%, valor As String ' <= variable agregada '
  Application.ScreenUpdating = False
  If [A1] = "0000" Then Exit Sub
  valor = Format([A1], "0000") ' <= formato agregado '
  For i = 1 To Sheets.Count
    Sheets(i).Activate
    [A1] = valor
    For n = 1 To Len(valor)
      BuscarÁrea n, Mid(valor, n, 1), 4, 13
      BuscarÁrea n, Mid(valor, n, 1), 17, 26
    Next
  Next
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "$A$*" Then
   If Not ActiveCell = "" Then
      If IsNumeric(ActiveCell) Then SpinButton1 = ActiveCell
   End If
End If
End Sub

 

[dragonfire33]

como puedo modificar el rango a este codigo , que no solamente se ejecute con el numero de la columna A , sino que se ejecute con el numero dividido entre la columna A a la columna D y se marque en los cuadros del lado derecho y se vaya señalado con el cuadro de color rojo de la columna E para saber en que numero va

Private Sub SpinButton1_Change()
  Dim n%, valor As String ' <= variable agregada '
  Application.ScreenUpdating = False
  If [A1] = "0000" Then Exit Sub
  valor = Format([A1], "0000") ' <= formato agregado '
  For i = 1 To Sheets.Count
    Sheets(i).Activate
    [A1] = valor
    For n = 1 To Len(valor)
      BuscarÁrea n, Mid(valor, n, 1), 4, 13
      BuscarÁrea n, Mid(valor, n, 1), 17, 26
    Next
  Next
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "$A$*" Then
   If Not ActiveCell = "" Then
      If IsNumeric(ActiveCell) Then SpinButton1 = ActiveCell
   End If
End If
End Sub
 
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 = vbRed
      '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

 

[dragonfire33]

como puedo modificar el rango a este codigo , que no solamente se ejecute con el numero de la columna A , sino que se ejecute con el numero dividido entre la columna A a la columna D y se marque en los cuadros del lado derecho y se vaya señalado con el cuadro de color rojo de la columna E para saber en que numero va

Private Sub SpinButton1_Change()
Dim n%, valor As String ' <= variable agregada '
Application.ScreenUpdating = False
If [A1] = "0000" Then Exit Sub
valor = Format([A1], "0000") ' <= formato agregado '
For i = 1 To Sheets.Count
Sheets(i).Activate
[A1] = valor
For n = 1 To Len(valor)
BuscarÁrea n, Mid(valor, n, 1), 4, 13
BuscarÁrea n, Mid(valor, n, 1), 17, 26
Next
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address Like "$A$*" Then
If Not ActiveCell = "" Then
If IsNumeric(ActiveCell) Then SpinButton1 = ActiveCell
End If
End If
End Sub
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 = vbRed
'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