Ir ao conteúdo
  • Cadastre-se
Hbadotti

Macro colar + Validação de Dados = *****

Recommended Posts

Bom pessoal, estou com o seguinte macro
 

Sub AdicionarAbastecer()
  With Sheets("Banco de Dados")
   Range("L6:T6").Copy Destination:=.Range("A" & Rows.Count).End(xlUp).Offset(1)
    .Range("A2:I" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort Key1:=.[A2], Order1:=xlDescending
  End With
End Sub

O mesmo copia as coluna L6 até T6 de uma planilha e cola na outra na linha 2 coluna A, só que o problema é que os dados O6 e Q6 são tipo dropdown list, ou melhor dizendo, são "Dados validados" em forma de lista, o problema é quando uso essa macro, ele copia os dados junto com sua formatação para a outra panilha e acaba ficando um negocio meio feio, gostaria de saber como faço para que o macro faça essa cópia/cola para que as linhas/colunas que estejam com "Validação de Dados" sejam coladas sem essa formatação. Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vj. se é isso q precisa:  

Sub AdicionarAbastecer()    With Sheets("Banco de Dados")        .Range("L6", "T6").Rows.Copy        .Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial _                Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False        .Range("A2:I" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort Key1:=.[A2], Order1:=xlDescending    End WithEnd Sub

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

×