Ola,
Estou fazendo uma planilha para outras pessoas usarem.
O usuário terá copiado um intervalo de células de uma outra planilha (vou chamar de planilha X), e quando ele aperta o botão pra rodar a macro na planilha Y, a macro localiza através de filtro qual a célula que o intervalo devera ser colado, e cola.
Estou enfrentando um erro justamente na linha que cola.
Fazendo alguns testes, notei que quando o que está na área de transferência (o que foi copiado) está no formato de texto, a macro roda sem problemas. Porém quando o que foi copiado é um intervalo de células, acusa erro 1004.
Alguém pode ajudar?
Sub ATUALIZARGRU()
'
' ATUALIZARGRU Macro
'
' FILTRA A PLANILHA
ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=2, Criteria1:= _
"=GRU", Operator:=xlAnd
' SELECIONA A PRIMEIRA CÉLULA ABAIXO DO CABEÇALHO, ONDE SERÁ COLADO O INTERVALO
Dim Rng As Range
Set Rng = Range("C2")
With Rng
With .Offset(1, 0).Resize(Rows.Count - .Row, 1)
.SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
End With
End With
' COLA O CONTEÚDO QUE FOI COPIADO ANTES DE RODAR A MACRO
ActiveSheet.Paste
End Sub
Postado : 26/02/2015 8:34 am