Saat Farkı

[bluefalcon]

Arkadaşlar merhaba,

Ekteki dosyada konuyu açıkladım.Elimdeki bir miktar saat verisini 08:15:00'dan farkını makro ile almak istiyorum yardımınızı rica eder hayırlı geceler dilerim.

 

[Recep İpek]

E kolonunun formatını ss:dd:nn olarak ayarladıktan sonra aşağıdaki makroyu çalıştırınız.

Sub Button1_Click()
Dim bssat As Date
bsaat = #8:15:00 AM#
For i = 2 To [d65536].End(3).Row
Cells(i, "e").Value = (bsaat - CDate(Cells(i, "d").Value)) * -1
Next i
End Sub

 

[bluefalcon]

Biçim Ayarlama

"E kolonunun formatını ss:dd:nn olarak ayarladıktan sonra aşağıdaki makroyu çalıştırınız."


Columns("E:E").Select
Selection.NumberFormat = "hh:mm:ss;@"

şeklinde makroya eklenti yapınca oluyor...İlgine çok teşekkür ederim.