Ir ao conteúdo
  • Cadastre-se

Rosa Almiro

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Reputação

0
  1. Obrigado pelo feedback. Vou implementar.
  2. Bom dia amigos. Tirem-me uma duvida. Existe forma de substituir este código para que em vez de selecionar coluna a coluna, selecionar a linha completa e copia-la, e como faço para caso seja outro valor em vez de copiar e colar, corte e copie. Grato pela disponibilidade. Sub Berçário() Folha2.Range("b2:z1000").ClearContents ultimalinha = Folha1.Cells(Rows.Count, "a").End(xlUp).Row lin = 2 For i = 2 To ultimalinha If Folha1.Cells(i, 2) = "Berçário" Then Folha2.Cells(lin, 2) = Folha1.Cells(i, 1) Folha2.Cells(lin, 3) = Folha1.Cells(i, 2) Folha2.Cells(lin, 4) = Folha1.Cells(i, 3) Folha2.Cells(lin, 5) = Folha1.Cells(i, 4) Folha2.Cells(lin, 6) = Folha1.Cells(i, 5) Folha2.Cells(lin, 7) = Folha1.Cells(i, 6) Folha2.Cells(lin, 8) = Folha1.Cells(i, 7) 'continua até á ultima coluna, existe forma de selecionar a linha completa? lin = lin + 1 End If Next End Sub

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...