Ir ao conteúdo
  • Cadastre-se
Luciana Goes

Macro - Colar somente em células visíveis

Recommended Posts

Pessoal, preciso copiar dados de uma planilha qualquer onde todas as células estão visíveis. Esses dados preciso colar numa outra planilha que contem células ocultas.

Gostaria de colar estes dados ignorando as células ocultas.

Encontrei uma macro que faz isso, mas ao copiar, copia como imagem e preciso que faça a colagem padrão do excel.

A macro que encontrei foi essa:

Sub copiacola()
'se erro, não faz nada
'On Error GoTo fim

'cola o conteúdo na célula ativa
ActiveCell.PasteSpecial

'dimensiona variáveis
Dim lin1, lin2, col As Integer
lin1 = ActiveCell.Row
lin2 = ActiveCell.End(xlDown).Row
col = ActiveCell.Column

For i = lin1 To 500
If Cells(i, col).EntireRow.Hidden = True Then
Range(Cells(i, col), Cells(lin2, col)).Cut _
Cells(i + 1, col)
lin2 = lin2 + 1
End If
Next

'fim:
'Exit Sub

Application.CutCopyMode = False
End Sub

Alguém poderia me ajudar, por favor?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×