Intervalo de cópia do vba para outra planilha + pasta de trabalho

Para copiar uma célula ou intervalo de células para outra planilha, você deve usar o método “Copiar” do VBA. Neste método, você precisa definir o intervalo ou célula usando o objeto de intervalo que deseja copiar e, em seguida, definir outra planilha com o intervalo no qual deseja colá-lo.

Copie uma célula ou organize em outra planilha

 Range("A1").Copy Worksheets("Sheet2").Range("A1")

1. Primeiro, defina o intervalo ou célula que deseja copiar.
   
2. Em seguida, digite um ponto final (.) e selecione o método de cópia na lista de propriedades e métodos.
   
3. Aqui você obterá um intellisense para definir o destino da célula copiada.
   
4. A partir daqui você precisa definir a planilha e depois o intervalo de destino.
   

Agora, quando você executa este código, ele copia a célula A1 da planilha ativa para “Planilha2”. Uma coisa que você precisa ter certeza é que, ao copiar uma célula e colá-la em um destino, a formatação também será colada lá.

Mas se você deseja apenas copiar o valor de uma célula e colá-lo em diferentes planilhas, considere o código a seguir.

 Worksheets("Sheet2").Range("A1") = Range("A1").Value

Este método não usa o método copy, mas simplesmente adiciona valor à planilha de destino usando um sinal de igual e usando a propriedade value com a célula de origem.

Copiar célula de outra planilha

Agora suponha que você queira copiar uma célula de uma planilha que não está ativa no momento. Neste caso, você precisa definir a planilha com a célula de origem. Assim como o código a seguir.

 Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")

Copiar um intervalo de células

 Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")

Copiar uma célula de uma planilha para outra pasta de trabalho

Quando as pastas de trabalho são abertas , mas ainda não foram salvas.

 Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")

Quando as pastas de trabalho são abertas e salvas.

 Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")

Copiar uma célula de uma planilha para outra pasta de trabalho fechada

 'to open the workbook that is saved in a folder on your system _ change the path according to the location you have in your _ system Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" 'copies cell from the book1 workbook and copy and paste _ it to the workbook myFile Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("myFile").Worksheets("Sheet1").Range("A1") 'close the workbook and after saving Workbooks("myFile").Close SaveChanges:=True

Relacionado: Como abrir uma pasta de trabalho usando VBA no Excel