gfsouza86,

Boa tarde!

Veja se é assim.

Boa tarde
É isso mesmo

Só mais uma pergunta!

Teria como na msgbox informar tipo assim:

A NF 123 já esta cadastrada para o fornecedor XPTO!

Isso é chamado de concatenar Strings. É elementar em linguagem de programação.
A primeira vez que ouvi a palavra "concatenar", eu me apavorei.
Pensei "isso não é para mim, jamais vou aprender".
Mas fui insistindo e acabei pegando o jeito.

 MsgBox "A NF " & txtcodigonovo.Text & " já está cadastrada para  o fornecedor " & txtnome.Text, vbCritical, "ERRO"

klarc28 muito obrigado pela explicação!

wagner coloquei seu código no meu projeto, porem mesmo assim ele esta permitindo o cadastro em duplicidade (mesma NF para o mesmo fornecedor)

Porem não consigo colocar o arquivo aqui por ser muito grande segue o link do mesmo que esta no onedrive

https://1drv.ms/x/s!Auo9f3NJzWXdi-kHzF284wFQjud6CQ

Ele tambem esta com alguns erros:

- erro 9 ao chamar o frmmenu (porem o mesmo existe)
- quando não localizo o registro é exibida a msg informando porem os botoes aparecem (mesmo eu colocando o código para não aparecer)

No seu projeto, você mudou a coluna do fornecedor. Qualquer detalhe, em programação, faz enorme diferença.

For i = 2 To UltimaLinha
        If Range("A" & i).Value = txtnf.Text And UCase(Range("C" & i).Value) = UCase(txtprestador.Text) Then
            MsgBox "A NF " & txtnf.Text & " já está cadastrada para  o fornecedor " & txtprestador.Text, vbCritical, "ERRO"
            Exit Sub
        End If
    Next i

O seu arquivo não tem algumas planilhas que estão no código:

Private Sub UserForm_Initialize()
Sheets("base_cadastro").Visible = True
'Sheets("relatorio").Visible = False
'Sheets("bases").Visible = False
End Sub

klarc28 realizei as alterações que você me informou

Porem mesmo com o sódigo abaixo informado por você ainda esta deixando realizar o cadastro

For i = 2 To UltimaLinha
        If Range("A" & i).Value = txtnf.Text And UCase(Range("C" & i).Value) = UCase(txtprestador.Text) Then
            MsgBox "A NF " & txtnf.Text & " já está cadastrada para  o fornecedor " & txtprestador.Text, vbCritical, "ERRO"
            Exit Sub
        End If
    Next i

Para chamar o frmmenu, retirei a linha

'Sheets("relatorio").Visible = False

e voltou a funcionar perfeitamente!

Porem ainda restam dois problemas rs
- FRMEDITARNF
quando não localizo o registro é exibida a msg informando porem os botoes aparecem (mesmo eu colocando o código para não aparecer)

- FRMEDITARNF
na hora de atualizar um registro ele nao esta atualizando, ele esta criando um registro na linha 2

Alguma ajuda?

Gabriel,

Veja se as alterações atendem sua necessidade.

PS : Não consegui postar o arquivo aqui, então baixe deste link do WeTransfer https://we.tl/uM96yJ17Re

Abs

srobles desculpe pela demora em responder, mas era isso mesmo
Me ajudou bastante