Message "Compile error" (Loop without Do)

2

I do not understand why I've put Do Until!

Private Sub cmdPequisar_Click()
    'Verificar se foi digitado um nome na primeira caixa de texto   
    If txtCPF.Text = "" Then   
        MsgBox "Digite o CPF de um cliente"   
        txtCPF.SetFocus   
        GoTo Linha1   
    End If

    With Worksheets("Dados Clientes").Range("A:A")   
        Set c = .Find(txtCPF.Value, LookIn:=xlValues, LookAt:=xlPart)    

        Do Until Sheets("Dados Clientes").Cells(0, 1) = ""   
            If Sheets("Dados Clientes").Cells(0, 1) = txtCPF Then

               If Not c Is Nothing Then

                    c.Activate   
                    txtCPF.Value = c.Value   
                    txtNome.Value = c.Offset(0, 1).Value   
                    txtEndereco.Value = c.Offset(0, 2).Value   
                    cboEstado.Value = c.Offset(0, 3).Value   
                    cboCidade.Value = c.Offset(0, 4).Value   
                    txtTelefone.Value = c.Offset(0, 5).Value   
                    txtEmail.Value = c.Offset(0, 6).Value   
                    txtNascimento.Value = c.Offset(0, 7).Value   

                    Linha = Linha + 1

            Loop

            Exit Sub   

        Else   

            MsgBox "Cliente não encontrado!"   

        End If   
    End With   

    Linha1:   

    End If   
End Sub
    
asked by anonymous 28.06.2016 / 21:11

1 answer

0

Try:

Do

  ...
  ...

Loop Until Sheets("Dados Clientes").Cells(0, 1) = "" 

Do not put anything in front of the DO.

    
28.06.2016 / 21:52