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