Jump to content
Fórum Script Brasil
  • 0

COPIAR E COLAR DADOS COM CRITERIO


DIVINORS

Question

Olá amigos.
Solicito ajuda na macro abaixo.

1- Preciso armazenar em uma variavel os codigos de Plan1 J1:J10
2- Comparar estes codigos com a coluna "D" que vai ter centena de linhas. Os codigos sendo iguais a plan1 J1:J10 copiar estes dados encontrados para plan2 coluna "D" como ST01(somente os selecionados.
3- Segue abaixo desta tabela a macro (que preciso de ajuda) + anexo.

Plan1 Plan2
J1 = 07-0345 ="D" ST01
J2= 07-0346 ="D" ST01
J3= 07-0347 ="D" ST01
J4= 07-0348 ="D" ST01
J5= 07-0349 ="D" ST01
J6= 07-0350 ="D" ST01
J7= 07-0351="D" ST01
J8= 07-0352="D" ST01
J9= 07-0353="D" ST01
J10= 07-0354="D" ST01

Sub Copia()
Dim ST01 As String

Plan1.Activate
ST01 = Range("J1:J10").Select (ESTÁ ACONTECENDO ERRO AQUI)


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

PLAN1.jpg

PLAN2.jpg

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...