none
Codigo en VB Excel RRS feed

  • Pregunta

  • Buenas tardes, 

    Tengo el siguiente código en VB, y a la hora de dar el click me arroja un error "Se ha producido un error '91' en tiempo de ejecucion: Variable de objeto o bloque With no establecido" y me posiciona en la parte del código que resalto, alguien me puede ayudar con el porque...

    Private Sub btnBuscar_Click()
       
    If txtNombres = Empty Then
    MsgBox "Favor de ingresar criterio de busqueda", vbInformation, "Prueba"
        
    End If

    With Selection
    Cells.Find(What:=txtNombres.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate

    End With


    txtNombres = ActiveCell.Offset(0, 0)
    txtRfc = ActiveCell.Offset(0, 1)
    txtContraseña = ActiveCell.Offset(0, 2)





    End Sub

    jueves, 11 de octubre de 2018 19:24