Ciao a tutti un piccolo aiuto, sono rimasto bloccato su questo piccolo Bug, che poi in effetti non lo è
estraggo dei dati da un sito web e li importo in Excel questo l'esempio
premesso che i dati sono tutti in formato Testo, con una macro li trasformo in dati numerici e Date, il risultato è questo
la conversione è giusta anche con il formato, ma alla data di mezzanotte che in effetti è "20/04/2020 00:00", non mi viene riportato lo "00:00" come potrei fare per farlo riportare?, ma da problemi su un altra elaborazione successiva
questa una parte della la macro che fa la conversione
Sub Converti()
Dim r, c, d1, k, x, z, d, m, y, h, sh4 As Worksheet
Set sh4 = Worksheets("Appo")
sh4.Activate
With sh4
.Cells(1, 4) = "1°"
.Cells(1, 5) = "2°"
.Cells(1, 6) = "3°"
.Cells(1, 7) = "4°"
.Cells(1, 8) = "5°"
.Cells(1, 9) = "6°"
For x = 2 To uR(.Name, 1)
.Cells(x, 1) = .Cells(x, 1) * 1
d = .Cells(x, 2)
d = Replace(d, ".", "/")
.Cells(x, 2) = CDate(d) 'conversione in data
k = Split(.Cells(x, 3))
For z = 1 To 6
.Cells(x, z + 3) = Val(k(z - 1))
Next z
Next x
Columns("C:C").Delete Shift:=xlToLeft
End With
End Sub quando arrivo alle 24:00 devo fare un altro tipo di conversione?, mi sta creando problemi.
allego anche il file per eventuali prove
Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui