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