VERIFICAR DUPLICIDADE DE CODIGOS DE BARRAS
Olá Boa Tarde a todos.
Estou com um serio problema, mas vou explicar em partes:
1) Crie um form no Excel com uma textbox que uso para bipar os códigos de Barras das Notas Fiscais que vão para a entrega aqui na Empresa.
2) Depois que bipo a nota o valor que está na caixa de texto é igual ao valor que está no nota, porem quando mando escrever este valor por meio de um botão na próprio form este valor é zerado em muitas casas.
3) Para poder entender melhor o que estou dizendo vai um exemplo:
Uma Nota Fiscal que tem como: CODBAR = 13130401964277000105550000000005681000025627 (na textbox)
depois que clico no botão fica: CODBAR = 13130401964277000000000000000000000000000000 (na Planilha)
E não é isso que eu quero, eu quero que mostre o valor real, pois eu comparo este valor com os outros valores na coluna para excluir os duplicados, como ele zera os valores restantes com isso todas as notas parecem que tem o mesmo CODBAR.
Portanto peço ajuda sobre como eu posso resolver este problema.
Desde já agradeço.
Segue o a planilha para que quiser analizar
Estou com um serio problema, mas vou explicar em partes:
1) Crie um form no Excel com uma textbox que uso para bipar os códigos de Barras das Notas Fiscais que vão para a entrega aqui na Empresa.
2) Depois que bipo a nota o valor que está na caixa de texto é igual ao valor que está no nota, porem quando mando escrever este valor por meio de um botão na próprio form este valor é zerado em muitas casas.
3) Para poder entender melhor o que estou dizendo vai um exemplo:
Uma Nota Fiscal que tem como: CODBAR = 13130401964277000105550000000005681000025627 (na textbox)
depois que clico no botão fica: CODBAR = 13130401964277000000000000000000000000000000 (na Planilha)
E não é isso que eu quero, eu quero que mostre o valor real, pois eu comparo este valor com os outros valores na coluna para excluir os duplicados, como ele zera os valores restantes com isso todas as notas parecem que tem o mesmo CODBAR.
Portanto peço ajuda sobre como eu posso resolver este problema.
Desde já agradeço.
Segue o a planilha para que quiser analizar
a questão está no tipo da celula que recebe o codigo, qual tipo vc colocou?
bom clique com o botão direito em cima da celula clqieu em formatar depois na aba numero mude para texto.
se aparecer um sinal de erro é so clicar no sinal e ignorar o erro
se aparecer um sinal de erro é so clicar no sinal e ignorar o erro
Olã Marcelo, cara eu formatei como Texto e nada, continua zerando os valores.
Olá o código que eu coloquei no botão que escreve o que esta na textbox (numnota)
Private Sub validar_Click()
[ô]verificar se foi bipado alguma nota
If numnota.Text = [Ô][Ô] Then
MsgBox [Ô]Bipar NOTA FISCAL[Ô]
numnota.SetFocus
Exit Sub
End If
[ô]Ativar a Planilha BancoNotas
ThisWorkbook.Worksheets([Ô]BancoNotas[Ô]).Activate
[ô]Selecionar a célula A3
Range([Ô]A3[Ô]).Select
[ô]Procurar a primeira célula da coluna A vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
[ô]Carregar os num bipado para a planilha
ActiveCell.Value = Val(numnota.Value)
[ô]Limpar textbox
numnota.Text = [Ô][Ô]
numnota.SetFocus
End Sub
Em seguida quando o valor é escrito ocorre uma mudança na planilha e entre o meu código para verificar se este novo numero de nota é repetido ou não. Mas como ele zera os valores todas as notas bipadas são iguais.
Bem será que não deveria definir uma variável como String para receber o valor da text box?
Olá o código que eu coloquei no botão que escreve o que esta na textbox (numnota)
Private Sub validar_Click()
[ô]verificar se foi bipado alguma nota
If numnota.Text = [Ô][Ô] Then
MsgBox [Ô]Bipar NOTA FISCAL[Ô]
numnota.SetFocus
Exit Sub
End If
[ô]Ativar a Planilha BancoNotas
ThisWorkbook.Worksheets([Ô]BancoNotas[Ô]).Activate
[ô]Selecionar a célula A3
Range([Ô]A3[Ô]).Select
[ô]Procurar a primeira célula da coluna A vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
[ô]Carregar os num bipado para a planilha
ActiveCell.Value = Val(numnota.Value)
[ô]Limpar textbox
numnota.Text = [Ô][Ô]
numnota.SetFocus
End Sub
Em seguida quando o valor é escrito ocorre uma mudança na planilha e entre o meu código para verificar se este novo numero de nota é repetido ou não. Mas como ele zera os valores todas as notas bipadas são iguais.
Bem será que não deveria definir uma variável como String para receber o valor da text box?
Faça seu login para responder