Este fórum está sendo desativado

[nikel]

Estou tentando fazer uma macro que busca dados em um banco de dados, no caso, esse banco armazena dados de recebimento de produtos, e depois que ela busca esses dados ela joga eles em uma outra planilha, onde existe um modelo pré pronto de etiquetas. Só que estou encontrando problemas pq a macro está pegando dados repetidos de produto.
Segue o codigo que estou utilizando:

Sheets("OUTUBRO").Select

Dim Valor As String

Dim linha

Do While Cells(linha, 10) <> ""


Valor = Cells(linha, 10).Value



If Valor = "NÃO" Then

Dim Dados1 As String
Dim Dados2 As String
Dim Dados3 As String
Dim Dados4 As String
Dim Dados5 As String
Dim Dados6 As Date


Dados1 = Cells(linha, 1).Text
Dados2 = Cells(linha, 2).Text
Dados3 = Cells(linha, 3).Text
Dados4 = Cells(linha, 4).Text
Dados5 = Cells(linha, 5).Text
Dados6 = Cells(linha, 7).Value
Dados7 = Cells(linha, 6).Text


Sheets("ETIQUETA").Select



Dim lin As String
Dim col
Dim etiqueta As Integer



etiqueta = 1
lin = 2

Do While etiqueta <= 6



col = 3
Cells(lin, col).Select
ActiveCell.FormulaR1C1 = Dados6

lin = lin + 1
Cells(lin, col).Select
ActiveCell.FormulaR1C1 = Dados2

lin = lin + 1
Cells(lin, col).Select
ActiveCell.FormulaR1C1 = Dados1

lin = lin + 1
Cells(lin, col).Select
ActiveCell.FormulaR1C1 = Dados4

lin = lin + 1
Cells(lin, col).Select
ActiveCell.FormulaR1C1 = "NF " & Dados3

col = col + 1
Cells(lin, col).Select
ActiveCell.FormulaR1C1 = "Qtd. " & Dados5 & " " & Dados7


lin = lin + 3
col = col - 1

etiqueta = etiqueta + 1
Sheets("OUTUBRO").Select

Cells(linha, 10).Value = "SIM"


linha = linha + 1

Loop

Else
linha = linha + 1

End If

Loop

End Sub

[Jimmy]

Olá Nikel,

Anexe a planilha pois é necessária para a solução do problema.

Clique em "+ RESPOSTA", e não em RESPOSTA RÁPIDA. Abaixo da área de mensagem encontrará ADICIONAR UM ANEXO. Depois selecione SELECIONAR UM ARQUIVO e encontre o arquivo que quer enviar. Finalize enviando a mensagem.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan