none
Erro em tempo de execução "13" tipos incompaíiveis RRS feed

  • Pergunta

  • Boa Noite

    Estou criando um cadastro e quando rodo o programa usando o botão de pesquisa, recebo o erro mencionado conforme o codigo abaixo

    Sub pesquisa()
    Dim ws As Worksheets
    Dim cod As String
    Set ws = ThisWorkbook.Worksheets("Clientes")
    With ws
    linha = 2
    cod = cadastro_frm.pesquisa_cod_txt.Text

    Do Until Sheets("Clientes").Cells(linha, 1) = ""
    If Sheets("Clientes").Cells(linha, "a") = cod Then

    cadastro_frm.txt_nome.Text = Sheets("Clientes").Cells(linha, "b")
    cadastro_frm.txt_cpf.Text = Sheets("Clientes").Cells(linha, "c")
    cadastro_frm.txt_endereco.Text = Sheets("Clientes").Cells(linha, "d")
    cadastro_frm.txt_cidade.Text = Sheets("Clientes").Cells(linha, "e")
    cadastro_frm.txt_cep.Text = Sheets("Clientes").Cells(linha, "f")
    cadastro_frm.CB_estado.Text = Sheets("Clientes").Cells(linha, "g")
    Else

    MsgBox"Cadastro não encontrado ", vbInformation

    Exit Sub
    End If
    linha = linha + 1
    Loop
    End With
    End Sub

    Agradeço pela ajuda

    Atenciosamente

    Carlos

    quinta-feira, 28 de março de 2019 00:09

Todas as Respostas

  • a proposito o erro se da na linha

    Set ws = ThisWorkbook.Worksheets("Clientes"

    quinta-feira, 28 de março de 2019 00:44
  • O correto é:

    Dim ws As Worksheet

    Creio ser este o motivo do erro.


    Filipe Magno


    • Editado FilipeMagno sábado, 30 de março de 2019 00:42 Retirei o "s" final.
    quinta-feira, 28 de março de 2019 00:58
  • Olá, tenta o código para verificar quais Worksheets tem na sua planilha...

    For Each ws In ThisWorkbook.Worksheets 
     MsgBox ws.Name 
    Next ws


    Se ajudou, marque como resposta! Obrigado.

    sexta-feira, 29 de março de 2019 14:27
  • O correto é:

    Dim ws As Worksheets

    Creio ser este o motivo do erro.


    Filipe Magno

    Desculpe, acabei copiando errado. Não tem o "s" final". O que quis dizer é:

    Dim ws As Worksheet

    Teste por favor!


    Filipe Magno

    sábado, 30 de março de 2019 00:42