Solucionar error de compilación El uso de la propiedad no es válido

He creado un botón para que ejecute un formulario compuesto de un combobox y 2 botones. El combobox1 le he asignado un rango para que en la lista desplegable pueda seleccionar una. El botón 1 teóricamente le estoy intentando dar la instrucción de que busque lo que hay en el combobox1 y lo resalte en la hoja de excel, (Vamos lo que es el "Buscar y reemplazar" de excel de toda la vida) pero me sale el error de compilación. El botón 2 simplemente lo que hace es cerrar el formulario. Este es el código que he puesto:

Private Sub CommandButton1_Click()
On Error GoTo Fin
Cells.Find(What:=Me.ComboBox1.Value).Activate
Unload Me
Exit Sub
MsgBox "el dato no se encuentra en esta hoja"
Me.ComboBox1.Value -""
Me.ComboBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Userform_Initialize()

Dim Ultimafila As Integer
Dim Rango As String

Ultimafila = Application.WorksheetFunction.CountA(Columns(5))
Rango = "=Viso!" & "F12:$F$" & Ultimafila

ActiveWorkbook.Names.Add Name:="Viso", RefersTo:=Rango
Me.ComboBox1.RowSource = "f12:f250"

End Sub

Y cuando sale el error me deja marcado en amarillo Private Sub CommandButton1_Click() y se marca en azul el valor "Value" de esta línea

Me.ComboBox1.Value -""

¿Pueden ayudarme a solucionar esto?

1 Respuesta

Respuesta

Prueba lo siguiente:

Private Sub CommandButton1_Click()
  Dim f As Range
  Set f = Cells.Find(What:=Me.ComboBox1.Value)
  If Not f Is Nothing Then
    f.Activate
    Unload Me
  Else
    MsgBox "el dato no se encuentra en esta hoja"
    Me.ComboBox1.Value = ""
    Me.ComboBox1.SetFocus
  End If
End Sub

Nota: No es recomendable utilizar la instrucción On Error, lo mejor es resolver el posible problema con código.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas