none
Erro tipo 13: tipos incompativeis RRS feed

  • Pergunta

  • Ola pessoal, sou novo aqui e nao tenho conseguido ajuda de outras pessoas, o codigo ainda nao esta completo, porem tem uma parte nele (que ja esta) que se eu colocar um valor e depois apagar, ele da erro tipo 13... segue abaixo o codigo

    ele me diz que o erro é na formula que sublinhei

    Function Codigo_eventos()Dim iLin   

    If IsNumeric(txtCodVendCliente.Text) Then   

    If optVendedor.Value = True Then       

    iLin = fBusca_Cod(Sheets("Vendedor").Range("B2:B6500"), txtCodVendCliente.Text)       

    If iLin > 0 Then           

    cmbVend_Cliente.Text = Sheets("Vendedor").Cells(iLin, "C").Text           

    Carrega_Vendas 1       

    Else           

    cmbVend_Cliente.Text = ""       

    End If        

    ElseIf optCliente.Value = True Then               

    iLin = fBusca_Cod(Sheets("Clientes").Range("B2:B6500"), txtCodVendCliente.Text)       

    If iLin > 0 Then           

    cmbVend_Cliente.Text = Sheets("Clientes").Cells(iLin, "C").Text           

    Carrega_Vendas 2       

    Else           

    cmbVend_Cliente.Text = ""       

    End If   

    End If    

    Else       

    iLin = fBusca_Cod(Sheets("Fabricas").Range("B2:B6500"), txtCodVendCliente.Text)       

    If iLin = 0 Then           

    cmbVend_Cliente.Text = Sheets("Fabricas").Cells(iLin, "C").Text           

    Carrega_Vendas 3       

    Else           

    cmbVend_Cliente.Text = ""       

    End If   

    End If

    End Function

    se precisarem de qqlr outra formula, so falar




    • Editado João Villar terça-feira, 14 de fevereiro de 2017 17:15
    terça-feira, 14 de fevereiro de 2017 14:34

Respostas

  • Experimente fazer isso:

    iLin = fBusca_Cod(Sheets("Fabricas").Range("B2:B6500"), CInt(txtCodVendCliente.Text))       

    O CInt converte o texto em um tipo inteiro. Creio que isso resolva o seu problema.

    Detalhe, tenha certeza que o txtCodVendCliente contenha somente digitos. 

    att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------


    terça-feira, 14 de fevereiro de 2017 17:59
    Moderador

Todas as Respostas

  • Poderia postar o codigo da funçao fBusca_Cod.

    O problema que un dos dois parametros nao é do tipo correto. So vendo o codigo desta funcao para saber o que é que esta errado.

    Att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------


    terça-feira, 14 de fevereiro de 2017 14:55
    Moderador
  • Function fBusca_Cod(rFaixa As Range, sCod As Long) As Long

    With rFaixa
        Set c = .Find(sCod, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If sCod = c.Value Then fBusca_Cod = c.Row
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
    End Function

    terça-feira, 14 de fevereiro de 2017 17:16
  • Experimente fazer isso:

    iLin = fBusca_Cod(Sheets("Fabricas").Range("B2:B6500"), CInt(txtCodVendCliente.Text))       

    O CInt converte o texto em um tipo inteiro. Creio que isso resolva o seu problema.

    Detalhe, tenha certeza que o txtCodVendCliente contenha somente digitos. 

    att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------


    terça-feira, 14 de fevereiro de 2017 17:59
    Moderador
  • mano, esqueci de mandar, tenho outro cod de fbusca, esse seria o cod certo, o outro é o cod busca geral

    Else
            iLin = fBusca_Cod(Sheets("Fabricas").Range("B2:B6500"), txtCodVendCliente.Text)
            If iLin > 0 Then
                cmbVend_Cliente.Text = Sheets("Fabricas").Cells(iLin, "C").Text
                Carrega_Vendas 3
            Else
                cmbVend_Cliente.Text = ""
            End If
        End If


    • Editado João Villar terça-feira, 14 de fevereiro de 2017 18:02
    terça-feira, 14 de fevereiro de 2017 18:01
  • Experimente fazer isso:

    iLin = fBusca_Cod(Sheets("Fabricas").Range("B2:B6500"), CInt(txtCodVendCliente.Text))       

    O CInt converte o texto em um tipo inteiro. Creio que isso resolva o seu problema.

    Detalhe, tenha certeza que o txtCodVendCliente contenha somente digitos. 

    att

    Testei e não deu certo, se quiser mando o arquivo aqui

    terça-feira, 14 de fevereiro de 2017 18:05
  • Bom dia,

    Há alguma mensagem de erro?

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 17 de fevereiro de 2017 11:31
    Moderador
  • Bom dia,

    Devido a falta de interação do autor dessa pergunta,

    essa thread está sendo fechada. Caso o problema ainda

    esteja ocorrendo, favor abrir uma nova thread.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 20 de fevereiro de 2017 12:33
    Moderador