×
Ir ao conteúdo
  • Cadastre-se

Excel Copiar Conteúdo de Coluna


Ir à solução Resolvido por OreiaG,

Posts recomendados

Boa noite galera boa.

Um amigo me pediu pra fazer uma planilha pra ele e estou muito enrolado, preciso da ajuda de vocês. É o seguinte:

Preciso de uma macro que copie da "coluna U", linha 2, da aba "Dados", a partir da letra C até antes da barra e cole na aba "Principal", na coluna F a partir da linha 3.

 

Se alguém se disponibilizar a me ajudar de já meus agradecimentos.

 

Obs.: Planilha em anexo.

 

Paulo Cezar

Testando Coordenadas.zip

Link para o comentário
Compartilhar em outros sites

Veja se é isso.

 

Sub CopiarConteúdoDeColuna()
 Dim d As Range, k As Long, x As Long
  With Sheets("Dados")
   For Each d In .Range("U2:U" & .Cells(Rows.Count, 21).End(xlUp).Row)
    k = InStr(d.Value, "C")
    x = InStr(k, d.Value, "|")
    Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Mid(d.Value, k, x - k)
   Next d
  End With
End Sub

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Sub CopiarConteúdoDeColuna()
 Dim d As Range, k As Long, x As Long
  If Sheets("Principal").Range("F3").Value <> "" Then
   Sheets("Principal").Range("F3:F" & Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Row).Value = ""
  End If
  With Sheets("Dados")
   For Each d In .Range("U2:U" & .Cells(Rows.Count, 21).End(xlUp).Row)
    k = InStr(d.Value, "C")
    x = InStr(k, d.Value, "|")
    Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Mid(d.Value, k, x - k)
   Next d
  End With
End Sub

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois...
  • Solução

A macro só limpa a coluna F se F3 não estiver vazia. Possivelmente F3 está vazia e abaixo dela existem dados, e nesse caso a macro não limpa.

Se for esse o caso, no lugar destas 3 linhas

 

 If Sheets("Principal").Range("F3").Value <> "" Then
   Sheets("Principal").Range("F3:F" & Sheets("Principal").Cells(Rows.Count, 6).End(xlUp).Row).Value = ""
  End If

 

 

coloque esta

Sheets("Principal").Range("F3:F500") = ""

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 comunidades 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

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!