Ir ao conteúdo
  • Cadastre-se

Macro para copiar linha se tiver x valor na célula


Posts recomendados

Galera eu estou precisando de uma macro para checar linha por linha e se a célula tiver "new1" valor ela copia a linha toda para outra aba.. tenho pouco conhecimento mas fiz uma macro assim: porém gostaria de saber se existe um código mais eficiente

 

sub buscarNovos ()
sheets("Plan1").Select
iTotalLinhas = cells(rows.count,1).end(xlup).row
for x=3 to itotalLinhas
Sheets("Plan1").Select
if cells(x,10) = "new1" then
rows(x).select
selection.copy
sheets("Novos").select
iTotalLinhas2= cells(rows.Count,1).end(xlup).row +1
Range("A"& iTotalLinhas2).select
selection.pastespecial paste=xlpastevalues, operaiton-xlnone, skipblanks _
    :=False, transpose:=False
x=x-1
end if
next x
end sub

 

 

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...