Skip to main content
Formatação e correção gramatical
Fonte Link
Rafael Tavares
  • 5,2mil
  • 11
  • 31
  • 52

O Primeiro e o segundo método não são as mesmas coisas ? OqueO que tem de errado ?

Resumo do código: Estou pegando um range (valores) de uma planilha (a qual pego o nome  (mês) na planilha "RELAT""RELAT" usando o for for) e estou copiando os valores desta em outra planilha usando a referência por células, para que eu possa fazer a alteração de linha na planilha "RELAT""RELAT" para que os dados não sejam substituídos, porém o Excel me mostra um Erro 400.

Substitui o forfor pelo seguinte código, porém queria reduzir usando o forfor

O Primeiro e o segundo método não são as mesmas coisas ? Oque tem de errado ?

Resumo do código: Estou pegando um range (valores) de uma planilha (a qual pego o nome(mês) na planilha "RELAT" usando o for ) e estou copiando os valores desta em outra planilha usando a referência por células, para que eu possa fazer a alteração de linha na planilha "RELAT" para que os dados não sejam substituídos, porém o Excel me mostra um Erro 400

Substitui o for pelo seguinte código, porém queria reduzir usando o for

O Primeiro e o segundo método não são as mesmas coisas ? O que tem de errado ?

Resumo do código: Estou pegando um range (valores) de uma planilha (a qual pego o nome  (mês) na planilha "RELAT" usando o for) e estou copiando os valores desta em outra planilha usando a referência por células, para que eu possa fazer a alteração de linha na planilha "RELAT" para que os dados não sejam substituídos, porém o Excel me mostra um Erro 400.

Substitui o for pelo seguinte código, porém queria reduzir usando o for

idioma do título
Link

VBA [Excel] - I cant reference aNão consigo referenciar há um Range usingusando o método Cells method - ERRORERRO 400

adicionou 12 caracteres ao conteúdo
Fonte Link
Evilmaax
  • 2,7mil
  • 1
  • 23
  • 40

Sub atualizar_Relatorio()

Sub atualizar_Relatorio()

Worksheets("RELATÓRIO").Activate
     

Worksheets("RELAT").Range("C7:L8").Value = Worksheets("JANEIRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C9:L10").Value = Worksheets("FEVEREIRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C11:L12").Value = Worksheets("MARÇO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C13:L14").Value = Worksheets("ABRIL").Range("P5:Y6").Value
Worksheets("RELAT").Range("C15:L16").Value = Worksheets("MAIO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C17:L18").Value = Worksheets("JUNHO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C19:L20").Value = Worksheets("JULHO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C21:L22").Value = Worksheets("AGOSTO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C23:L24").Value = Worksheets("SETEMBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C25:L26").Value = Worksheets("OUTUBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C27:L28").Value = Worksheets("NOVEMBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C29:L30").Value = Worksheets("DEZEMBRO").Range("P5:Y6").Value

End Sub

End Sub

Sub atualizar_Relatorio()

Worksheets("RELATÓRIO").Activate
 

Worksheets("RELAT").Range("C7:L8").Value = Worksheets("JANEIRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C9:L10").Value = Worksheets("FEVEREIRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C11:L12").Value = Worksheets("MARÇO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C13:L14").Value = Worksheets("ABRIL").Range("P5:Y6").Value
Worksheets("RELAT").Range("C15:L16").Value = Worksheets("MAIO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C17:L18").Value = Worksheets("JUNHO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C19:L20").Value = Worksheets("JULHO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C21:L22").Value = Worksheets("AGOSTO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C23:L24").Value = Worksheets("SETEMBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C25:L26").Value = Worksheets("OUTUBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C27:L28").Value = Worksheets("NOVEMBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C29:L30").Value = Worksheets("DEZEMBRO").Range("P5:Y6").Value

End Sub

Sub atualizar_Relatorio()

Worksheets("RELATÓRIO").Activate    

Worksheets("RELAT").Range("C7:L8").Value = Worksheets("JANEIRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C9:L10").Value = Worksheets("FEVEREIRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C11:L12").Value = Worksheets("MARÇO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C13:L14").Value = Worksheets("ABRIL").Range("P5:Y6").Value
Worksheets("RELAT").Range("C15:L16").Value = Worksheets("MAIO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C17:L18").Value = Worksheets("JUNHO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C19:L20").Value = Worksheets("JULHO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C21:L22").Value = Worksheets("AGOSTO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C23:L24").Value = Worksheets("SETEMBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C25:L26").Value = Worksheets("OUTUBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C27:L28").Value = Worksheets("NOVEMBRO").Range("P5:Y6").Value
Worksheets("RELAT").Range("C29:L30").Value = Worksheets("DEZEMBRO").Range("P5:Y6").Value

End Sub
alteração de idioma
Fonte Link
Carregando
Fonte Link
Carregando