A2.Sheets(2).Activate 'Ativando a ABA Dados na planilha de importação ActiveSheet.Cells.Find("Proposta de Projeto").Select 'Procurando por Propostas de Projeto ActiveSheet.Columns(ActiveCell.Column).Select 'Selecionando a coluna Selection.Copy 'Copiando a Coluna dados.Sheets("Dados").Activate 'Ativando a ABA Dados na planilha atual ActiveSheet.Cells(ActiveCell.Row 8, ActiveCell.Colum).Select ActiveCell.Value = ActiveCell.Value 1 ' ActiveSheet.Paste ' Application.CutCopyMode = False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Eu preciso selecionar dados em uma planiha, copiar esses dados e colocar em uma celula específica da outra planilha. Não posso simplesmente pegar coluna 1 e jogar na linha 1. Precisa ser coluna 1 a partir da linha 9. Esta sempre dando erro de execução 438
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Como nenhum professor respondeu sua dúvida depois de tantos meses, talvez pela complexidade dela, indico colocá-la na seção ''Tarefas'' desta plataforma.
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
O erro de execução 438 geralmente ocorre quando o código está tentando acessar um método ou uma propriedade que não é válido para o objeto em questão. No seu caso, o erro pode estar ocorrendo porque o método PasteSpecial não está sendo usado corretamente. Além disso, há um pequeno erro de sintaxe na linha ActiveCell.Cells(ActiveCell.Row 8, ActiveCell.Colum).Select, onde falta um ponto após Row.
7
horas
de aula
4
tarefas
resolvidas
393
horas
de aula
18
tarefas
resolvidas
50
horas
de aula
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Aulas
Buscar
Tarefas
Pedir
Turmas
Procurar
Profes Já
Pedir
Cursos
Encontrar
Tira-dúvidas
Enviar dúvida
