Não inserir valor repetido

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

3 Usuários

0 Reactions

1,022 Visualizações

RSS

wfranca

(@wfranca)

Posts: 297

Reputable Member

Topic starter

Pessoal, boa tarde!

Estou usando o código abaixo em um botão do meu Form. Esse form contem textbox com valores na qual insiro em uma planilha. A idéia é que ao inserir uma "ordem de produção" de valor igual ele não deixe inserir a ordem selecionada pois o valor já consta lançado na planilha. Só que esse código está apenas reconhecendo a ultima linha inserida e não deixa prosseguir, nem fazer lançamentos que não constam na planilha como mostra a imagem.

Private Sub btnok_Click()

On Error Resume Next
Dim nLinComp As Integer, nLinFim As Integer
Dim Resp As String
nLinFim = 2
Do While Not IsEmpty(Cells(nLinFim, 1))
nLinFim = nLinFim + 1
Loop
nLinComp = 1
Do While nLinComp <= nLinFim - 1
If Cells(nLinFim - 1, 2).Value = Cells(nLinComp, 2).Value Then
Cells(nLinFim - 1, 1).Activate
Resp = MsgBox("O Valor " & "'" & ActiveCell & "" & " já consta na planilha." & _
vbCrLf & vbCrLf & "Este Valor será Excluido !", vbCritical, " Valor !")
Exit Sub
Else
nLinComp = nLinComp + 1
End If
Loop
Cells(nLinComp + 1, 2).Activate
end sub

Welington Gonçalves

Postado : 28/08/2014 2:08 pm

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Primeiro, porque vc não troca essa parte:

Do While Not IsEmpty(Cells(nLinFim, 1))
nLinFim = nLinFim + 1
Loop

Por essa:

nLinFim = Cells(Rows.Count, 1).End(xlUp).Row

Segundo:

Essa linha:

If Cells(nLinFim - 1, 2).Value = Cells(nLinComp, 2).Value Then

Está buscando a coluna B, e não a coluna A (da pra ver pela imagem que ali tem valores duplicados).

Terceiro, em vez de lopar todas as linhas, pq vc não usa corresp pra ver se o valor já existe?

Chame a função com:
application.WorksheetFunction.Match

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 28/08/2014 3:24 pm