Ondalık olarak aktarılan sayının saate çevirilmesi.

[desıgner1]

Merhabalar
20:30 olarak okuduğum saati
başka bir sayfaya aktardığım zaman 0,854166666666667
bu şekilde rakama dönüşüyor.

Makro ile bu rakamı tekrar nasıl 20:30 yapabilirim acaba
A1:A10 aralığında varsayalım değerleri.

 

[Orion1]

Kopyala yapıştır yaptığınız zaman bir sorun çıkmaz.

 

[desıgner1]

Merhaba Orion Hocam.
Veriler manuel değil de makro yardımı ile aktarılıyor.

 

[turist]

Makroya ihtiyaç durmadan, A1:A10 aralığının hücre biçilendirmesini "zaman" olarak düzeltin.

 

[desıgner1]

Sayın turist söylediğiniz şeyi deniyorum lakin herhangi bir tepki alamıyorum.
Sadece şu oluyor.
Bahsettiğim verilerin bulunduğu hücrede iken formül çubuğuna girip çıktığım zaman
veriler istediğim şekle yani 20:30 haline geliyor.

 

[Orion1]

Merhaba Orion Hocam.
Veriler manuel değil de makro yardımı ile aktarılıyor.

Buyurun.

Sub kopyala59()
Sayfa1.Range("A1:A10").Copy
Sayfa2.Range("A1").PasteSpecial
Application.CutCopyMode = False
End Sub

 

[desıgner1]

Sayın Hocam.
Alakanız için çok teşekkür ederim.

lakin yaşadığım sorun bahsettiğiniz türde değil maalesef.
Ben eğer mümkün ise A1:A10 aralığında bulunan ondalık sayıları
aşina olduğumuz ( 20:30 gibi ) saat formatına döndürecek bir makro istemekteyim.
Saygılarımla.

 

[çıtır]

Koda ilave ediniz.

Sheets("Sayfa1").Range("A" & i).NumberFormat = "[h]:mm:ss"

 

[Orion1]

Sayın Hocam.
Alakanız için çok teşekkür ederim.

lakin yaşadığım sorun bahsettiğiniz türde değil maalesef.
Ben eğer mümkün ise A1:A10 aralığında bulunan ondalık sayıları
aşina olduğumuz ( 20:30 gibi ) saat formatına döndürecek bir makro istemekteyim.
Saygılarımla.

#6 nolu mesajda ben kodu verdim.O kod oluyor.

 

[desıgner1]

Sayın çıtır verdiğiniz satır sorunumu halletti.

Değerli büyüklerim hepinize ayrı ayrı teşekkür ederim.
sevgiyle kalın.

 

[çıtır]

Sayın çıtır verdiğiniz satır sorunumu halletti.

Değerli büyüklerim hepinize ayrı ayrı teşekkür ederim.
sevgiyle kalın.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[Orion1]

Benim #6 nolu mesajda verdiğim kodlar olmadımı?

 

[desıgner1]

Orion Hocam veriler makro yardımı ile geliyor başka sayfadan.
Makronun içeriği epey bir karışık süz ve başkaca işlevler var makroda.
Dolayısı ile nihai olarak bizim A1:A10 aralığını baz almamız gerekiyor idi.
Dolayısı ile bu doğrultuda bir makro talebi etmiştim.
Sayın çıtır in verdiği satırı biraz revize ederek sorunu hallettim.

Bu vesile ile konuya gösterdiğiniz ilgi için bir kez daha teşekkür ederim.
Saygılarımla.