Nombres de rango en forma numérica
He creado una macro en excel que me permite imprimir un rango por al introducirle por eje. A2:ae58 pero esto puede variar no hay problema.lo que Necesito es esteblecer un nombre al rango pero que sea numérico no texto, dicho numero tiene que hacer referencia aun rango. Por ejemplo si introduzco 1 que me selecciones un rango digamos b23:c40
Utilizo el comando InputBox en la cual me pide el área que deseo imprimir .
De antemano muchas gracias por su ayuda
Utilizo el comando InputBox en la cual me pide el área que deseo imprimir .
De antemano muchas gracias por su ayuda
1 Respuesta
Respuesta de Elsa Matilde
1
Habrás notado que no se aceptan números como nombre de rangos. Entonces tenemos 2 alternativas:
a-Tener en algún lugar perdido del libro una lista con 2 col, en una el nro y en la otra en texto. Al ingresar el dato con el Inputbox buscará el equivalene en letras
b-Utilizar dentro de la rutina las instrucciones Select Case.
Opté por la segunda (los datos escondidos son fáciles de olvidar su ubicación). Tendrás que completar los Select que falten y ajustar el mensaje de error.
Sub buscarango()
Dim nrorango As Integer
Dim textorango As String
While nrorango >= 0
On Error Resume Next
nrorango = InputBox("Ingrese rango")
If IsNumeric(nrorango) And nrorango > 0 And nrorango <= 10 Then
Select Case nrorango
Case 1
textorango = "uno"
Case 2
textorango = "dos"
Case 3
textorango = "tres"
'.....
End Select
'-------
'aqui iría el resto de tu rutina
'--------
Exit Sub
Else
MsgBox ("Ingrese un número entre 1 y 10")
End If
Wend
End Sub
Pruébala y me contás el resultado.
a-Tener en algún lugar perdido del libro una lista con 2 col, en una el nro y en la otra en texto. Al ingresar el dato con el Inputbox buscará el equivalene en letras
b-Utilizar dentro de la rutina las instrucciones Select Case.
Opté por la segunda (los datos escondidos son fáciles de olvidar su ubicación). Tendrás que completar los Select que falten y ajustar el mensaje de error.
Sub buscarango()
Dim nrorango As Integer
Dim textorango As String
While nrorango >= 0
On Error Resume Next
nrorango = InputBox("Ingrese rango")
If IsNumeric(nrorango) And nrorango > 0 And nrorango <= 10 Then
Select Case nrorango
Case 1
textorango = "uno"
Case 2
textorango = "dos"
Case 3
textorango = "tres"
'.....
End Select
'-------
'aqui iría el resto de tu rutina
'--------
Exit Sub
Else
MsgBox ("Ingrese un número entre 1 y 10")
End If
Wend
End Sub
Pruébala y me contás el resultado.
