Makro ile sayıyı saate çevirme

[vivident]

Arkadaşlar forumda hep formül ile yapılmış. Ben kod ile bu işlemi nasıl yaparım

0,5 -- > 00:00:30 sn olarak çevirmek istiyorum
Sheets("A").Range("G14") = format(Sheets("A").Range("G14"), "hh:mm:ss") yaptığımda hata alıyorum

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sheets("A").Range("G14") = Format(Sheets("A").Range("G14") / 24 / 60, "hh:mm:ss")

.

 

[vivident]

aynı hatayı aldım

compile error:
wrong number of arguments or invalid property assignment

 

[Ömer]

Dosyanızla ilgili bir durum olabilir mi? Dosyanızı eklemeniz mümkün mü?

Aynı hata mesajıyla ilgili bir link:

https://www.excel.web.tr/threads/kod-hatasi.6870/

.

 

[vivident]

Amacım G14 hücresindeki ondalıklı sayıyı saat formatına çevirim C14 ile toplamaktı.
Dosyam ektedir

 

[Merhum İdris SERDAR]

.

Şeklinde deneyin.

Sheets("A").Range("G14").NumberFormat= "hh:mm:ss"

.

 

[vivident]

Ömer bey ve idris bey ayrı ayrı teşekkür ediyorum. İkinizin kodu ile bu sorun çözüldü

Sheets("A").Range("G14") = Sheets("A").Range("G14") / 24 / 60
Sheets("A").Range("G14").NumberFormat = "hh:mm:ss"

 

[vivident]

Aynı konu üzerinde ben yine takıldım
C14 = tarih saat
G14 = saat
C14 = C14 + G14 yapmak istiyorum, yine uyumsuz kod hatası alıyorum
________________________________________________

Dim a As Date
Dim b As Time
a = Sheets("A").Range("C14") = format(Sheets("A").Range("C14"), "dd.mm.yyyy hh:mm:ss")

Sheets("A").Range("G14") = Sheets("A").Range("G14") / 24 / 60
b = Sheets("A").Range("G14").NumberFormat = "hh:mm:ss"

Sheets("A").Range("C14") = CDbl(b) + CDbl(a)

 

[Ömer]

Kodlarda

Sub format()

adında prosedür oluşturmuşsunuz. Hatayı bu yüzden alıyorsunuz. Buradaki kod başlık adını değiştirirseniz sorun çözülür.

 

[yavuz829]

Arkadaşlar tam sayıyı saate çevirmek istiyorum. Hücre biçimlendirme ile yapıyorum. 00":"00 şeklinde 1112 A1 hücresine yazdığım zaman 11:12 olarak doğru gösteriyor B1 hücresine 1222 sayıyı yazıp saate çevirdiğim zaman 12:22 olarak gösteriyor. İki saat arasındaki farkı C1 hücresinde =(B1-A1)*24 olarak bulmaya çalıştığım zaman aradaki saat farkını 01:10 olarak göstermesi gerekirken hiç ilgisi olmayan 26:40 bir saat farkı olarak gösteriyor.

Tam sayıyı saate çevirip iki saat arasındaki farkı nasıl bulabilirim. (24 saat dilimine göre)