Rango de celdas en textbox

Buenas tardes
Por favor como hago para que el rango del la fila que es 2 a 10000 lo pueda cambiar cada vez que quiera desde un textbox de un formulario
gracias este es el código en le que estiy trabajando
Sub colores1()
'recorre el rango A1:E20 de la hoja activa coloreando las celdas según su valor
fila1 = 2
fila2 = 100000
col1 = 25
col2 = 25
For fila = fila1 To fila2
    For columna = col1 To col1
    If Cells(fila, columna).Value <= 3.9 Then
        Cells(fila, columna).Interior.ColorIndex = 6 'azul
    Else
        If Cells(fila, columna).Value > 39.9 Then
            Cells(fila, columna).Interior.ColorIndex = 6 'rojo
        Else
            Cells(fila, columna).Font.ColorIndex = 1 'marrón
        End If
    End If
    Next columna
Next fila
MsgBox "YA"
End Sub

1 Respuesta

Respuesta
1
Espero que esto te ayude...
Sub colores1()
'recorre el rango A1:E20 de la hoja activa coloreando las celdas según su valor
Dim R As Integer
R = Value.TextBox1.Text
fila1 = 2
fila2 = R
col1 = 1
col2 = 5
For fila = fila1 To fila2
    For columna = col1 To col2
    If Cells(fila, columna).Value <= 3.9 Then
        Cells(fila, columna).Interior.ColorIndex = 6 'azul
    Else
        If Cells(fila, columna).Value > 39.9 Then
            Cells(fila, columna).Interior.ColorIndex = 6 'rojo
        Else
            Cells(fila, columna).Font.ColorIndex = 1 'marrón
        End If
    End If
    Next columna
Next fila
MsgBox "YA"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas