Excel Copiar Conteúdo de Coluna

[paulocezarpicos]

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

[OreiaG]

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

 

[paulocezarpicos]

Boa tarde OreiaG.

 

É isso mesmo que eu estava precisando. Pra terminar com a cereja no bolo só falta limpar a coluna F a partir da linha 3 até o final, antes da macro, aí fica beleza.

[OreiaG]

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

 

[paulocezarpicos]

OreiaG,

Não deu certo. Quando executo a macro ela está colando após a ultima colagem e eu queria que limpasse a coluna F a partir da linha três antes de colar os dados. Pode ser??

 

Fico no aguardo.

 

Paulo Cezar

[OreiaG]

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") = ""

 

[paulocezarpicos]

Valeu OreiaG. Muito obrigado pela ajuda, fique com DEUS