Ir ao conteúdo
  • Cadastre-se

Como copiar dados de outra planilha com formatação


Posts recomendados

Pessoal boa tarde!

Sou novo em vba,e estou com um problema em uma de minhas planilhas.

Preciso copiar dados de outra tabela para montar um gráfico com lista suspensa.

Porém toda vez que copio,a hora vem configurada como cientifico e não muda,Já tentei formatar mais mesmo assim não estou conseguindo.

Alguém consegue me dar uma ajuda!

 

Apenas preciso que ele copie os dados da tabela bdados1 e cole na consulta uma das colunas como hora.

Segue o código para que vocês olhem:

Dim coluna(4) As String
Dim y, i, k As Integer

y = 2
Sheets("consulta").Select 'planilha onde é feita a consulta'
Range("F1").Select 'coluna de consulta'
pesquisa = ActiveCell.FormulaR1C1
    If pesquisa = "" Then Exit Sub
    Set plan = Sheets("Bdados1") 'planilha onde base de dados da pesquisa'
    Set x = plan.Columns("A:A").Find(what:=pesquisa) 'coluna onde é feita a pesquisa'
    If Not x Is Nothing Then
      celula = x.Address
      Do
        plan.Select
        x.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        For i = 1 To 4
            coluna(i) = x.Columns(i)
        Next i
        Sheets("consulta").Select
        Range("A" & y).Value = coluna(1)
        Range("B" & y).Value = coluna(2)
        Range("C" & y).Value = coluna(3)
        
              
        y = y + 1
        
        
        Set x = plan.Columns("A:A").FindNext(x) 'aba de pesquisa da formula'
      Loop While Not x Is Nothing And x.Address <> celula
    Else
      MsgBox "Produto " & pesquisa & " não encontrado na planilha " & plan.Name
    End If
  
Worksheets("consulta").Columns("C").NumberFormat = "hh:mm:ss"


End sub

 

Muito obrigado desde já.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

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...