none
ERROR DE COMPILACIÓN SE ESPERABA END SUB RRS feed

  • Pregunta

  • Si alguien me puede ayudar con el siguiente código ya que me sale "error de compilación se esperaba end sub" y si hay algun error más por favor corregirlo. Gracias

    Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)


    Dim i, j, filas As Integer

    Dim DOCUMENTO As String

        If Textbox1.Value = "" Then
        Exit Sub
        ListBox.Clear
        
        DOCUMENTO = Textbox1.Value
        Sheets("DATOS_GENERALES").Select
        filas = Range("B1").CurrentRegion.Rows.Count
        
        j = 1
        
        For i = 2 To filas
        
            If Cells(i, j).Offset(0, 1).Value Like  DOCUMENTO  Then
            
            ListBox1.AddItem Cells(i, j)
            
            ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
            ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
            ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
            
            Else
            
            End If
        
        Next i

    End Sub


    Private Sub UserForm_Initialize()

    With ListBox1
    .ColumnCount = 3
    .ColumnWidths = "20pt; 50pt;50pt;"

    End With



    End Sub

    miércoles, 22 de noviembre de 2017 23:44

Todas las respuestas

  • Te falto poner end if

        If Textbox1.Value = "" Then
                Exit Sub
                ListBox.Clear()

                DOCUMENTO = Textbox1.Value
                Sheets("DATOS_GENERALES").Select()
                filas = Range("B1").CurrentRegion.Rows.Count

                j = 1

                For i = 2 To filas

                    If Cells(i, j).Offset(0, 1).Value Like DOCUMENTO Then

                        ListBox1.AddItem(Cells(i, j))

                        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
                        ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
                        ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)

                    Else

                    End If

                Next i
            End If

    • Propuesto como respuesta Jorge TurradoMVP jueves, 23 de noviembre de 2017 16:08
    miércoles, 22 de noviembre de 2017 23:47