Formülle saat artırma

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte göndermiş olduğum excel dosyasındaki C2 hücresine elle yazmış
olduğum saate göre C3'ten aşağıya doğru saatin yarım saat artırılmasını
formülle yapmaya çalıştım ancak bir türlü başaramadım.

Yardımcı olur musunuz?

 

[ASLAN7410]

Arkadaşlar formül uygulamasını bulamadım, ancak forumda örneğini bulmuş olduğum aşağıdaki kodu sayfaya uyguladım.

Sayfamın C sütununa sağ klik hücre biçimlendir/Sayı/Saat/Tür kısmından 13:00:55 kısmını seçtikten sonra sayfaya kodu uyguladım kod güzel çalışıyor, bu seferde kod çok uzun oldu.

Yardımcı olur musunuz?

Sub SaatEkle()
Range("C3") = Range("C2").Value + TimeValue("00:30")
Range("C4") = Range("C3").Value + TimeValue("00:30")
Range("C5") = Range("C4").Value + TimeValue("00:30")
Range("C6") = Range("C5").Value + TimeValue("00:30")
Range("C7") = Range("C6").Value + TimeValue("00:30")
Range("C8") = Range("C7").Value + TimeValue("00:30")
Range("C9") = Range("C8").Value + TimeValue("00:30")
Range("C10") = Range("C9").Value + TimeValue("00:30")
Range("C11") = Range("C10").Value + TimeValue("00:30")
Range("C12") = Range("C11").Value + TimeValue("00:30")
Range("C13") = Range("C12").Value + TimeValue("00:30")
Range("C14") = Range("C13").Value + TimeValue("00:30")
Range("C15") = Range("C14").Value + TimeValue("00:30")
Range("C16") = Range("C15").Value + TimeValue("00:30")
Range("C17") = Range("C16").Value + TimeValue("00:30")
Range("C18") = Range("C17").Value + TimeValue("00:30")
Range("C19") = Range("C18").Value + TimeValue("00:30")
Range("C20") = Range("C19").Value + TimeValue("00:30")
Range("C21") = Range("C20").Value + TimeValue("00:30")
Range("C22") = Range("C21").Value + TimeValue("00:30")
Range("C23") = Range("C22").Value + TimeValue("00:30")
Range("C24") = Range("C23").Value + TimeValue("00:30")
Range("C25") = Range("C24").Value + TimeValue("00:30")
Range("C26") = Range("C25").Value + TimeValue("00:30")
Range("C27") = Range("C26").Value + TimeValue("00:30")
Range("C28") = Range("C27").Value + TimeValue("00:30")
Range("C29") = Range("C28").Value + TimeValue("00:30")
Range("C30") = Range("C29").Value + TimeValue("00:30")
Range("C31") = Range("C30").Value + TimeValue("00:30")
Range("C32") = Range("C31").Value + TimeValue("00:30")
Range("C33") = Range("C32").Value + TimeValue("00:30")
Range("C34") = Range("C33").Value + TimeValue("00:30")
Range("C35") = Range("C34").Value + TimeValue("00:30")
Range("C36") = Range("C35").Value + TimeValue("00:30")
Range("C37") = Range("C36").Value + TimeValue("00:30")
Range("C38") = Range("C37").Value + TimeValue("00:30")
Range("C39") = Range("C38").Value + TimeValue("00:30")
Range("C40") = Range("C39").Value + TimeValue("00:30")
Range("C41") = Range("C40").Value + TimeValue("00:30")
Range("C42") = Range("C41").Value + TimeValue("00:30")
Range("C43") = Range("C42").Value + TimeValue("00:30")
Range("C44") = Range("C43").Value + TimeValue("00:30")
Range("C45") = Range("C44").Value + TimeValue("00:30")
Range("C46") = Range("C45").Value + TimeValue("00:30")
Range("C47") = Range("C46").Value + TimeValue("00:30")
Range("C48") = Range("C47").Value + TimeValue("00:30")
Range("C49") = Range("C48").Value + TimeValue("00:30")
Range("C50") = Range("C49").Value + TimeValue("00:30")
End Sub

 

[Ömer BARAN]

Merhaba.
=C2+"00:30" veya =C2+1/48 şeklinde denediniz mi?

 

[ASLAN7410]

Sayın Ömer Bey ellerinize sağlık 2 formülde çok güzel çalışıyor, çok teşekkür ediyorum, hayırlı geceler hayırlı çalışmalar diliyorum.

Kodu nasıl kısaltabiliriz?

 

[ASLAN7410]

Arkadaşlar, ayrıca yukarıdaki kodu uyguladığımda saat 00:00:00'dan sonra olan hücrelerin içerisini 01.01.1900 00:15:00 şekle çeviriyor. Bunu nasıl düzeltebilirim.

 

[aerten]

Sayın ASLAN7410,
"Bunu nasıl düzeltebilirim." derken nasıl bir sonuç almak istiyorsunuz?

Excel ondalık sayıları saat olarak biçimlendirmeyi ve görüntülemeyi sağlıyor. Sizin değerleriniz 0,???? biçiminde ise ve görüntülenme biçimini tarih de görünecek şekilde saat biçimlendirmesiyle "14.03.2012 13:30" olarak yaptıysanız "01.01.1900" ekler.

Sizin istediğiniz yalnızca saatin görünmesi ise;
"Hücre Biçimlendirme"den,
"Saat" seçeneklerinden
yalnızca saatin göründüğü bir biçimi (Örneğin; *13:30:55) seçmeniz ya da "İsteğe Uyarlanmış"tan
"ss:dd:nn" biçimiyle görüntülemeyi seçmeniz gerekecektir.

 

[Ömer BARAN]

Cep telefonundan yazıyorum.
Bu değerlerle hangi işlemi yapacağınızı belirtirseniz,
daha isabetli cevap verme imkanı olur.
Kullandığınız formülü
=MOD(kullandığınız formül;1)
şeklinde değiltirerek denediniz mi?

 

[ASLAN7410]

Sayın aerten ve sayın Ömer Bey ilgilerinize çok teşekkür ederim, dediğiniz gibi Mod formülü ile ve isteğe uyarlanmış kısmından ss:dd:nn şeklinde yaptığımda istediğim sonucu aldım.

Hayırlı geceler hayırlı çalışmalar diliyorum.