Función creada por usuario (Rango sin comillas)
Hola Narvather
Mi duda es como hago para que en una función creada por mi en una macro, el usuario seleccione un rango sin poner comillas.
En el ejemplo siguiente el usuario selecciona el rango y da error en la hoja de calculo, pero si el rango seleccionado lo pone entre comillas, entonces reconoce la función sin errores.
El problema es que cuando uno aprieta F2 para editar la celda y el rango está con comillas, no muestra con colores el rango seleccionado.
De antemano agradezco la posible ayuda y un saludo a todos porque es primera vez que pregunto algo.
Por ejemplo
Function BuscaPapel(Celdas) As String
Dim Rango As Range 'variable para for each
Application.Volatile 'para actualizar la función con cualquier cambio
For Each Rango In Range(Celdas)
If UCase(Rango.Value) = "PAPEL" Then
BuscaPapel = "Existe Papel"
Exit For
Else
BuscaPapel = "No hay papel"
End If
Next
End Function
Gracias
Mi duda es como hago para que en una función creada por mi en una macro, el usuario seleccione un rango sin poner comillas.
En el ejemplo siguiente el usuario selecciona el rango y da error en la hoja de calculo, pero si el rango seleccionado lo pone entre comillas, entonces reconoce la función sin errores.
El problema es que cuando uno aprieta F2 para editar la celda y el rango está con comillas, no muestra con colores el rango seleccionado.
De antemano agradezco la posible ayuda y un saludo a todos porque es primera vez que pregunto algo.
Por ejemplo
Function BuscaPapel(Celdas) As String
Dim Rango As Range 'variable para for each
Application.Volatile 'para actualizar la función con cualquier cambio
For Each Rango In Range(Celdas)
If UCase(Rango.Value) = "PAPEL" Then
BuscaPapel = "Existe Papel"
Exit For
Else
BuscaPapel = "No hay papel"
End If
Next
End Function
Gracias
1 Respuesta
Respuesta
1