Prezados,
Volto a pedir ajuda porque estou me debatendo e não consigo concluir um trabalho.
Por inteira presunção achei que sabia e não sei nada mesmo.
O Osvaldo escreveu um código em outro tópico e não consegui encaixar dentro do código que peguei na net. Desta vez
espero fazer de uma forma melhor, inclusive vou anexar a planilha.
0 código em VBA precisa localizar na aba "transpor" os nomes dos clientes, coluna " i " . Após a localização deverá
copiar as celulas da mesma linha das colunas "A - B-D-F-G-H e I" para a aba "extrair". IMPORTANTE Obsv. Ao
localizar o nome do cliente, coluna "i"(aba "transpor") e copiar os dados pra aba "extrair" o próximo procedimento
e verificar na próxima linha da coluna "A"(aba "transpor") se a númeração repete, caso positivo, copiar as celulas
da mesma linha das colunas "A - B-D-F-G-H e I" para a aba "extrair".
Abaixo código que estou usando. Ele não copia a venda cujo numeração se repete
Sub EXTRAIR_TRANSPOR()
Dim x As Integer
Dim j As Integer
j = 4
Sheets("EXTRAIR").Range("A3:Z20000").ClearContents
With Sheets("transpor")
For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("I" & x) <> "" Then
Sheets("EXTRAIR").Range("A" & j) = .Range("A" & x)
Sheets("EXTRAIR").Range("B" & j) = .Range("B" & x)
Sheets("EXTRAIR").Range("c" & j) = .Range("D" & x)
Sheets("EXTRAIR").Range("d" & j) = .Range("F" & x)
Sheets("EXTRAIR").Range("e" & j) = .Range("G" & x)
Sheets("EXTRAIR").Range("F" & j) = .Range("H" & x)
Sheets("EXTRAIR").Range("G" & j) = .Range("I" & x)
j = j + 1
End If
Next x
End With
MsgBox " PROCESSO CONCLUÍDO"
End Sub
Atenciosamente
Janio
EXTRAIR .rar