Función creada por usuario (Rango sin comillas)
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
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 de Abraham Valencia
1
Siguiendo con tu mismo ejemplo:
Function BuscaPapel(Celdas As Range) As String
Dim Rango As Range 'variable para for each
Application.Volatile 'para actualizar la función con cualquier cambio
For Each Rango In Celdas
If UCase(Rango.Value) = "PAPEL" Then
BuscaPapel = "Existe Papel"
Exit For
Else
BuscaPapel = "No hay papel"
End If
Next
End Function
Function BuscaPapel(Celdas As Range) As String
Dim Rango As Range 'variable para for each
Application.Volatile 'para actualizar la función con cualquier cambio
For Each Rango In Celdas
If UCase(Rango.Value) = "PAPEL" Then
BuscaPapel = "Existe Papel"
Exit For
Else
BuscaPapel = "No hay papel"
End If
Next
End Function
Gracias Abraham, la verdad es que he leído varias respuestas tuyas en diferentes sitios de la web y siempre son satisfactorias.
Nuevamente muy agradecido por tu respuesta, ya que pensé que nadie contestaría.
Saludos desde Chile.
Nuevamente muy agradecido por tu respuesta, ya que pensé que nadie contestaría.
Saludos desde Chile.
