Como usar Range() de acuerdo a una variable,

Junto con saludar les cuento que necesito que lo que este dentro del range sea según una variable, yo trate de la siguiente forma range("b7" + i) pero no me resulto. El código con el que estoy trabajando es el siguiente
Sub Consulta_Lista()
aux = Worksheets("Lista_por_rol").TextBox1
Sheets("Base").Select
Range("b8").Select
Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    cuenta = cuenta + 1
Loop
For i = 1 To cuenta
    Sheets("Base").Select
    Range("b7" + i).Select  (Aquí es donde falla)
    If ActiveCell.Value = x Then
        ActiveCell.Offset(1, 0).Select
        arreglo(1) = ActiveCell.Value
        ActiveCell.Offset(2, 0).Select
        arreglo(2) = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
        arreglo(3) = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
        arreglo(4) = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
        arreglo(5) = ActiveCell.Value
        ActiveCell.Offset(4, 0).Select
        arreglo(6) = ActiveCell.Value
        ActiveCell.Offset(2, 0).Select
        arreglo(7) = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
        arreglo(8) = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
        arreglo(9) = ActiveCell.Value
        Sheets("Lista_por_rol").Select
        Range("b7" + i).Value = arreglo(1)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(2)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(3)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(4)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(5)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(6)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(7)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(8)
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = arreglo(9)
    End If
    arreglo(1) = ""
    arreglo(2) = ""
    arreglo(3) = ""
    arreglo(4) = ""
    arreglo(5) = ""
    arreglo(6) = ""
    arreglo(7) = ""
    arreglo(8) = ""
    arreglo(9) = ""
Next i
End Sub

1 Respuesta

Respuesta
1
Reemplaza:
Range("b7" + i).Select
Por:
Cells(i, 2). Select 'El 2, se refiera a la segunda columna, o sea B., el 3 a C, el 4 a D etc etc.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas