Excel Cortar e colar linhas em vba

[Rosa Almiro]

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

 

[Midori]

@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

 

[Rosa Almiro]

Obrigado pelo feedback.

Vou implementar.