Sub CopyPasteToOtherSheet()
Worksheets("Sheet1").Range(Range("C1"), Range("C65536").End(xlUp)).Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End Sub
Tags: Excel, VBA, copy, paste,

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Sub CopyPasteToOtherSheet()
Worksheets("Sheet1").Range(Range("C1"), Range("C65536").End(xlUp)).Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End Sub
Nenhum comentário:
Postar um comentário