Copiando dados de uma linha em uma planilha para outra planilha usando MACRO

Question

Estou trabalhando em uma planilha que precisa copiar informações geradas em uma planilha para outra planilha para fins de impressão. As informações na planilha primária (folha de dados) são geradas por meio de duas listas suspensas contendo a altura e a largura do objeto. Gostaria de poder copiar essas informações geradas na folha de dados para a folha de impressão e continuar esse processo copiando um novo combo de largura de altura para uma nova linha na folha de impressão. A macro que tenho até agora está me dando um erro, e eu queria saber se existe alguma solução para esse problema

Sub copyRow()
Dim wsd1 As Worksheet
Dim wsd2 As Worksheet
Dim wsp As Worksheet
Dim Row1 As Long

' define which worksheet to work on, i.e. replace Sheet1 with the name of your sheet
Set wsd1 = ActiveWorkbook.Sheets("Data Sheet").Range("B11:H11")
Set wsd2 = ActiveWorkbook.Sheets("Data Sheet").Range("M11:R11")
Set wsp = ActiveWorkbook.Sheets("Print Sheet")

' determine the last row with content in column A and add one
Row1 = Worksheets("Print Sheet").Cells(Rows.Count, "C").End(xlUp).Row + 1

' copy data from data sheet to print sheet
wsd1.Copy wsp.Range("C" & Row1)


End Sub

Obrigado por qualquer ajuda!

Michael

    

Answer 1

Dim wsd1 As Worksheet
[ ... ]
Set wsd1 = ActiveWorkbook.Sheets("Data Sheet").Range("B11:H11")

Você está tentando atribuir um intervalo a um objeto de planilha.

Dim wsd1 As Range
[ ... ]
Set wsd1 = ActiveWorkbook.Sheets("Data Sheet").Range("B11:H11")