Değeri saate çevirme

[Carpintero]

Merhaba arkadaşlar
350 değerini saat 03:50 haline getirecek makro satırı nasıl olmalı acaba

 

[leguminosea]

a = WorksheetFunction.Substitute(Format((Sheets("Sayfa1").Range("A1") / 100), "00.00"), ",", ":")

 

[ÖmerBey]

Merhaba,
Deneyiniz...

d = 350
MsgBox TimeSerial(Int(d / 100), d Mod 100, 0)

 

[Carpintero]

Teşekkür ederim
Sayın leguminosea ve Ömer Bey
Bir de ;
A1 deki değer 1,5 saatten fazla ise
If Cells(1,"a") >........... Then
derken ne yazmalıyım acaba

 

[ÖmerBey]

Rica ederim,
Aşağıdaki şekilde deneyiniz.

If Cells(1, "a") > TimeValue("01:30:00") Then

İyi çalışmalar...