Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Macro em loop, com If para copiar e colar em outra planilha

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Fabricio_Tavares
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Jul 07, 2016 9:46 pm

Macro em loop, com If para copiar e colar em outra planilha

Mensagem por Fabricio_Tavares » Sex Ago 09, 2019 4:43 pm

Preciso de um código em LOOP para fazer a pesquisa de uma determinada palavra em uma coluna na planilha 1.
Caso encontre essa palavra, e todas as vezes em que ela se repetir, deverá executar um copiar e colar.
Segue exemplo:

If Worksheets("Planilha1").Range("G2") = "Treinado" Then
ThisWorkbook.Sheets("Planilha2").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ThisWorkbook.Sheets("Planilha1").Range("G2").Copy
ThisWorkbook.Sheets("Planilha2").Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets("Planilha1").Range("H2").Copy
ThisWorkbook.Sheets("Planilha2").Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
End If

If Worksheets("Planilha1").Range("G3") = "Treinado" Then
ThisWorkbook.Sheets("Planilha2").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ThisWorkbook.Sheets("Planilha1").Range("G3").Copy
ThisWorkbook.Sheets("Planilha2").Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets("Planilha1").Range("H3").Copy
ThisWorkbook.Sheets("Planilha2").Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
End If

Este código funciona, porém teria que repetir o IF para todas as células da coluna G e ficaria um código muito grande. Acredito que um código em loop poderia resolver.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 135
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Macro em loop, com If para copiar e colar em outra planilha

Mensagem por Tov Elen Shau » Sex Ago 09, 2019 5:29 pm

Colega, fiz alguma coisa...mas ressalto que busca é sensitiva, se a palavra tiver alguma diferença, letra maiúscula por exemplo, ela não será considerada. Seque anexo.

Não se esqueça de ler o código, tem mensagem.
Anexos
Pesquisa.rar
(22.65 KiB) Baixado 3 vezes



Responder