Copie várias células (fora do intervalo) de uma pasta de trabalho para outra pasta de trabalho

Question

Me deparei com seu artigo"copiar várias células (fora do intervalo) de uma planilha para outra". Copiei a macro VBA e colei, referenciei as células em uma linha oculta e atribuí um botão para executar. funciona muito bem de uma planilha para outra na mesma pasta de trabalho. Meu problema é que preciso copiar de uma planilha1 da pasta de trabalho (fatura) para outra planilha1 da pasta de trabalho (contas a receber com vencimento). O código VBA existente pode ser ajustado para fazer isso?

Estas são as alterações que fiz na macro VBA para se adequar aos meus intervalos

wks1.Cells(use_row,1) = wks.cells (50,1)
wks1.Cells(use_row,2) = wks.cells (50,2)
wks1.Cells(use_row,3) = wks.cells (50,3)
wks1.Cells(use_row,4) = wks.cells (50,4)
wks1.Cells(use_row,5) = wks.cells (50,5)
wks1.Cells(use_row,6) = wks.cells (50,6)

Answer 1

Certamente. Basta criar uma referência (variável no sub) para a outra pasta de trabalho e escolher a planilha de recebimento nesse final.

O que é conseguido aqui substituindo as primeiras linhas, nas quais o restante do código depende (com suas próprias modificações resultantes):

Dim wkb As Workbook,wkb2 as workbook
Dim wks as worksheet, wks1 As Worksheet
Set wkb = ThisWorkbook ' Or workbooks("SourceWorkbook.xlsm") if it's saved.
set wkb2 = Workbooks("OtherWorkbook.xlsx")
Set wks = wkb.Sheets("Sheet1") ' Name references are a little clearer.
Set wks1 = wkb2.Sheets("Sheet1")

Você também pode adicionar outro "set wkb2 = nada" no final, mas isso é mais uma precaução de segurança do que realmente fazer muito.

De qualquer forma, sugiro que você leia um pouco sobre vba básico se precisar de funções relativamente complexas. Se não for para escrever rotinas inteiras, pelo menos faça você mesmo modificações aceitáveis. Por exemplo, aquele bit que você escreveu poderia ser feito em loop em vez de copypasta, já que as colunas são sequenciais.