YasarPiskin

Yıllık Forum Üyesi
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Yapmak istediğim şey K sütunun girilen değerlerin saat formatına çevrilmesi için mevcut kodun iyileştirilmesi hususunda yardımlarınızı rica ediyorum. Örneğin K8 hücresine yazdığı 1730 un 17:30 olarak çevrilmesi gibi.​
 

Ekli dosyalar

Çözüm
İlk örnek belgenizde F5 hücresiyle U ve V sütunlarına yönelik kodlar da var idi.
Birleştirilmiş F5 hücresi ile U ve V sütunlarına yönelik eski kodlar hala geçerli olacak şekilde bir kodlama hazırladım.

Mevcut kodların tümünü silip yerine aşağıdakini yapıştırıp, hem K sütunundaki saat olayını
hem de F5 hücresi ile U ve V sütunlarına yönelik eski işlemlerinizi deneyin.

Verdiğim kodun sonuçlarını test ettikten sonra teşekkür değil de
istenilen işlemlerin tam olarak gerçekleşip gerçekleşmediğini net olarak ifade edin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)
Hücreye 13 yazdınız, bu değer 13:00 anlamına mı gelir yoksa 01:30 veya 00:13 mü mesela.
Yada 132 yazdınız 01:32 mi yoksa 13:20 mi demektir. vs vs.

Bence sorunsuz işlem için;
-- olması gerektiği gibi 08:20 şeklinde yazılmalı (makro vs gerekmez),
-- 0820 gibi 4 haneli yazılmalı makro koduyla saate dönüştürme yapılacak.
-- bir hücreye 8, yanındaki hücreye 20 yazılacak, bu ikisinden hareketle üçüncü bir hücrede (esas hücre) formülle sonuç almak.

Her şeyden önce şunu belirtmek isterim ki, biçimlendirmeleri ikinci plana atıp işin esasıyla meşgul olmakta yarar var.
 
sorunuza cevap olmayabilir ama A1 hücresine1245 yazınca b1 şu formül yazınca =ZAMAN(SOLDAN(A1;UZUNLUK(A1)-2);SAĞDAN(A1;2);0) hücre biçimi s:dd yapınca 12:45 dönüşümü yapılabilir.
 
İlk örnek belgenizde F5 hücresiyle U ve V sütunlarına yönelik kodlar da var idi.
Birleştirilmiş F5 hücresi ile U ve V sütunlarına yönelik eski kodlar hala geçerli olacak şekilde bir kodlama hazırladım.

Mevcut kodların tümünü silip yerine aşağıdakini yapıştırıp, hem K sütunundaki saat olayını
hem de F5 hücresi ile U ve V sütunlarına yönelik eski işlemlerinizi deneyin.

Verdiğim kodun sonuçlarını test ettikten sonra teşekkür değil de
istenilen işlemlerin tam olarak gerçekleşip gerçekleşmediğini net olarak ifade edin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(26 satır)
 
Çözüm
@kmlzdmr
Konu sahibinin isteği zaten K sütununa yönelik idi.
Hem J hem K sütunu için isterseniz koddaki
ElseIf Target.Column = 11 And Target.Row > 7 Then
satırını
ElseIf Target.Row > 7 And (Target.Column = 10 Or Target.Column = 11) Then
şeklinde değiştirmek yeterli olacaktır.
 
Üst