Olá amigos
Solicito ajuda em uma macro onde:
1 - Vou ler vários códigos na plan1 (i, 4) e copiar os demais dados colunas 1, 2 e 3 e para (os determinados códigos da coluna 4) ele vai atribuir ST01 na coluna 04 da PLAN2. Conforme código abaixo.
2 - Só consegui copiar a primeira linha e sem conversão para ST01 na plan2.
Sub Copia()
Dim ST01 As String
ST01 = Plan1.Range("J1").Value
Plan2.Activate 'Ativando a planilha 2 que vai receber os dados
Plan2.Range("A2:D50000").ClearContents 'Limpando o conteudo da planilha 2
ultimaLinha = Plan1.Cells(Rows.Count, "a").End(xlUp).Row 'Fazendo a leitura de todas as linhas da planilha 1
lin = 2
For i = 2 To ultimaLinha
If Plan1.Cells(i, 1) <> "" And Plan1.Cells(i, 4) = ST01 Then
Plan2.Cells(lin, 1) = Plan1.Cells(i, 1) 'Planilha 2 recebe os dados da Planilha 1
Plan2.Cells(lin, 2) = Plan1.Cells(i, 2) 'Planilha 2 recebe os dados da Planilha 1
Plan2.Cells(lin, 3) = Plan1.Cells(i, 3) 'Planilha 2 recebe os dados da Planilha 1
Plan2.Cells(lin, 4) = Plan1.Cells(i, 4) 'Planilha 2 recebe os dados da Planilha 1
lin = lin + 1
End If
Next
End Sub
Desde já agradeço antecipadamente a ajuda.
Divino Rodrigues.
Postado : 05/07/2017 5:52 am