Tarih Formatını Göründüğü değere Cevirme

[Kemal Demir]

Arkadaslar Selam,

Ek'teki Dosyada Çözmek İstediğim bir durum var.Bu konuda yardımcı olurmusunuz.

Dosya İçeriği:

Örnek:

B2=Format görünümü 03.01.1900 08:22:10
hücrede görsel görünümü 4822 dakika ben c kolonuna c2 hucresine 4822 değerini yazdırmak istiyorum.

Konuyu burada anlatamadım ama dosya içerisinde daha detaylı olarak belirttim.

Yardımcı olurmusunuz.

 

[Recep İpek]

Sayın Rakkas,

C2=MINUTE(B2) işinizi görür mü?

 

[Kemal Demir]

Sn.Ripek ilgin için teşekkur ederim.

dosya ya baktınız mı bilmiyorum.

Birazdaha farklı bu bana iş yerımdeki sistemden gelen değer ben bunu göründüğü duruma cevirmem lazım

formatı number olacak(Format number oldugunda ise göründüğü değeri vermiyor)

Bir kod vardır diye duşünüyorum.Tekrar ilgin için teşekkur ederim.

 

[Kemal Demir]

Arkadaslar Cozume ulastım.

[vb:1:4bb3733a97]Sub dakika_saat()
Application.ScreenUpdating = False
For x = 2 To 50
gun = 0: saat = dakka = 0
gun = Cells(x, 2).Value
gun = Int(gun)
saat = Cells(x, 2).Value - gun
Cells(x, 3).Value = gun
Cells(x, 4).Value = Int((saat * 1440) / 60)
Cells(x, 5).Value = (saat * 1440) Mod 60
deger = Cells(x, 5).Value + Cells(x, 4).Value * 60 + Cells(x, 3).Value * 1440
Cells(x, 2).Value = deger / 60
Cells(x, 2).NumberFormat = "0.#"
Next
Columns("c:e").Delete
End Sub[/vb:1:4bb3733a97]

Paylaşmak İstedim.

 

[Recep İpek]

Sayın Rakkas,

Ekli dosyada bununla ilgili bir çalışma yaptım.

Umarım doğru anlamışımdır.

Yalnız tarih+saat olan hücrelerde görünen format ile çıkan sonuç farklı..

Sadece saat olan hücrelerde herhangi bir problem yok.

Durumua göre gerekli düzeltmeleri yapabilirsiniz.

Not:Benden önce çözümü bulmuşsunuz.

 

[Kemal Demir]

Sn.Ripek İlginden Dolayı Teşekkur Ederim.