Selección de celdas variables

Hola Expertos! Estoy trabajando en excel 2010 y tengo una macro que busca un valor y selecciona un rango a partir del valor encontrado, luego lo copia y lo inserta en otra columna. En estos momentos solo puedo hacer que seleccione un rango determinado. Lo que necesito es cambiar ese valor de rango por un número de filas determinadas, específicamente: 3 celdas hacia abajo,  mi código es el siguiente

Sub ORGANIZA()
On Error Resume Next
Dim columna As String
Dim nueva As String

inicio:
columna = InputBox("¿En cuál columna está la dependencia que quieres Alinear?")
If columna = "" Then Exit Sub
If columna = "a" Then Exit Sub
If columna = "b" Then Exit Sub
If columna = "c" Then Exit Sub

Columns("C:C").Select
Selection.Find(What:="Finanzas Públicas").Select
Range(Selection, "C800").Select  'Aquí quiero remplazar "C800" por las celdas variables
Selection.Copy
Range(columna & 2).Select 'este valor también lo cambio
Selection.Insert Shift:=xlDown

'estas instrucciónes se repiten con diferentes valores en el buscador.

nueva = MsgBox("¿Quieres seguir trabajando o ya le paramos?", vbQuestion + vbYesNo, "REPETIR")
If nueva = vbYes Then GoTo inicio
End Sub

En resumen que donde encuentre el valor, en lugar de copiar a partir de ese valor hasta C800, que solo seleccione 3 celdas a partir de el, si lo encuentra en C200, que seleccione C200:C203.

Espero me puedan ayudar! Gracias expertos

1 Respuesta

Respuesta
1

Reemplazá la línea de la selección por esta otra:

Range(Selection, Selection.Offset(3, 0)).Select 'Aquí quiero remplazar "C800" por las celdas variables

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas