Este fórum está sendo desativado

[VictorAlmeida]

Bom dia,

Estou tentando fazer um macro da seguinte necessidade:
Eu filtro a coluna, e vou dando ctrl V da primeira celula somente na debaixo (aperto seta para baixo e dou ctrl V), porém fiz um macro que faça isso por mim:

Sub Macro12()
'
' Macro12 Macro
'
' Atalho do teclado: Ctrl+i
'
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
End Sub


Maaaas, ele cola em todas celulas que estão abaixo, inclusive nas celulas ocultas ou que não estão no filtro, tem como fazer ele dar ctrl V na de baixo (exemplo: estou na celula 110, e com o filtro a de baixo é 115, quero que ele apenas cole na 115 e não na 112,113, etc..)

Obrigado

[osvaldomp]

Selecione a célula a ser copiada e rode o código abaixo.

Código: Selecionar todos

Sub ColaNaPrimeiraCélulaVisívelAbaixo()
 Dim rng As Range
  ActiveCell.Copy
  Set rng = ActiveCell
   Do
    Set rng = rng.Offset(1)
   Loop While rng.EntireRow.Hidden = True
   Range(rng.Address).PasteSpecial Paste:=xlPasteAll
End Sub