Ir ao conteúdo
  • Cadastre-se

Excel Cortar e colar linhas em vba


Posts recomendados

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

 

Link para o comentário
Compartilhar em outros sites

@Rosa Almiro Para copiar a linha inteira pode usar o método EntireRow,

 

For i = 2 To ultimalinha
    If Folha1.Cells(i, 2) = "Berçário" Then
        Folha1.Cells(i, 2).EntireRow.Copy Folha2.Cells(lin, 1)
        lin = lin + 1
    End If
Next

 

4 horas atrás, Rosa Almiro disse:

para caso seja outro valor em vez de copiar e colar, corte e copie

Se o corte for o método Cut (recortar para colar), em vez de apenas ter o If como postei acima, ficaria assim com If/Else,

For i = 2 To ultimalinha
    If Folha1.Cells(i, 2) = "Berçário" Then
        Folha1.Cells(i, 2).EntireRow.Copy Folha2.Cells(lin, 1)
    Else
        Folha1.Cells(i, 2).EntireRow.Cut Folha2.Cells(lin, 1)
    End If
    lin = lin + 1
Next

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

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

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.