Saat formatını genele cevirm

[Kemal Demir]

Gunaydın Arkadaslar

Saat formatını genele cevirmek için kullandığım kodu yazıyorum
****************
Range("C4:C23").Select
Selection.Copy
Range("j4").Select
Range("j4").PasteSpecial
Application.CutCopyMode = False
Selection.NumberFormat = "General"
********************************

Ama Yapmak İsteyim te yapamadığım.

mesela saat:12:23:25 değeri bu kodla 2,124512 gibi bir değer veriyorm

benım ise görmek istediğim sadece

saat:12:23:25 ise j4 sadece general formatta 12 olsun
saat:15:15:42 ise j5 sadece general formatta 15 olsun
.
.
.
.
gibi

ama yine formatı sadece Sayı olarak 12 olsun

Anlatabildiysem ne mutlu bana
Konuyu Ã?rnekle Yoluyorum

Saygılar.

 

[veyselemre]

çalışma sayfası için
=saat(C4) veya
=saat(j4)

makro için
For x = 4 To 23
Cells(x, 12) = Hour(Cells(x, 3))
Next

 

[Kemal Demir]

Hocam Ellerine sağlık ama eksik anlatımdan kaynaklanan durtum için sole bir ilave soz konusu

30 saati de 30 göstersin
45 saati 45 göstersin

Suan ki dongu 24 saat uzerındekileri 24 e bölüyor sağlıcakla yardımcı olursanız sevininirm

 

[veyselemre]

bu şekilde nasıl bir kullanım olacağını düşünemiyorum, niye saat formatını genele çeviriyorsunuz, onu da anlamadım, 24 saatten büyük saat nasıl olur, onu da anlamadım, sanırım mesai toplatma için düşünüyorsunuz ama bu şekilde çözüm zor gibi, çünkü saat 00:00:00 ise bunu generale çevirdiğiniz zaman 24 saat verecektir
detaylı bir dosya gönderirseniz başka bir çözüm bulabiliriz, general 'e çevirerek çözüm alabilmeniz zor sanırım

 

[Kemal Demir]

Sn VeyselEmre, Emeklerin için saol Sana Detaylı dosyay yollurum
Yardımcı olursan sevınınırım

SaygıLar

 

[veyselemre]

çok karışık bir tablonuz var hiçbir şey anlamadım
k4 hücresine aşağıdaki formülü yazın aşağı doğru kopyalayın

=SOLDAN(METNEÇEVİR(C4;"gg.aa.yyyy ss:dd:ss");2)*24+PARÇAAL(METNEÇEVİR(C4;"gg.aa.yyyy ss:dd:ss");12;2)

 

[Kemal Demir]

ingilizce karsılığı nedir

 

[Mahmut Bayram]

=LEFT(TEXT(R[-8]C,""gg.aa.yyyy ss:dd:ss""),2)*24+MID(TEXT(R[-8]C,""gg.aa.yyyy ss:dd:ss""),12,2)

 

[Mahmut Bayram]

veya formüllerinizin ingilizce dili için aşağıdaki makroyu kullanabilirsiniz

[vb:1:65375a1a41]Sub formüllühücreyiseç()
For Each Item In Selection
If Mid(Item.Formula, 1, 1) = "=" Then
MsgBox "The formula in " & Item.Address(rowAbsolute:=False, _
columnAbsolute:=False) & " is: " & Item.Formula, vbInformation
End If
Next
End Sub[/vb:1:65375a1a41]