Ir ao conteúdo
  • Cadastre-se

Marcos Paulo Bernardo

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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á.

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