[KwasneJablko]

#excel #vba

Jakis dziwny format mam w raporcie. Wyglada na String.

Jak natomiast zrobie =S13+0 to mi zamienia na normalny format Time. Okay.

Ale teraz jak probuje zrobi pętle to mi wywala mismatch error.

For Each cell In Sheets(1).Range("S:T")

If cell <> "" Then

Debug.Print cell.Address

cell.value = cell.value + 0

End If

Next cell

Ma ktos pomysl jak poprawnie ta petle zrobic aby mi wszystkie te Stringi na godziny pozamienial?

[dr_Cyban]

@KwasneJablko: Wklej to na koniec kodu
Sheets(1).Range("S:T").NumberFormat = "h:mm:ss AM/PM;@"

[KwasneJablko]

@dr_Cyban: niby zmienilo format ale to dalej jest string :/

[KwasneJablko]

@dr_Cyban: dobra ogarnalem. trzba uzyc CDate

For Each cell In Sheets(1).Range("S:T")
If cell <> "" Then
Debug.Print cell.Address
cell.Value = CDate(cell)
End If
Next cell