Macro de Prompt inputbox a celda
Tengo una macro que realiza cierta operación, en la que toma una celda, pero su posición puede ser variable.. Es decir puede ser: a8:c10 o a8:c25 o a8:c500.
Debido a todo el proceso es complicado estar modificando el rango... Por eso pido su ayuda para pasar el valor desde un prompt o inputbox:
ej. Dim rango As Variant
rango = InputBox("Valor del rango")
Donde: a8:c(rango)
Claro esta que me arroja un error hacer esto, por lo que me resultaria muy útil como poder especificar desde el usuario el numero de celda...
1 Respuesta
H o l a:
En este caso ya no es necesario el inputbox, dejaremos que la macro calcule cuál es la última fila con datos de la columna "C", la macro quedaría así:
Sub macro()
'Por.Dante Amor
u = Range("C" & Rows.Count).End(xlUp).Row
If u < 8 Then u = 8
rango = "A8:C" & u
End SubPor ejemplo, si la última fila con datos de la columna "C" es la 45, entonces la variable rango = "A8:C45"
No pusiste un ejemplo de cómo vas a emplear el rango, pero te pongo un ejemplo:
Sub macro()
'Por.Dante Amor
u = Range("C" & Rows.Count).End(xlUp).Row
If u < 8 Then u = 8
rango = "A8:C" & u
Range(rango).Select
End SubAvísame cualquier duda.
:)
:)
