Girilen Değerleri Saat Formatına Çevirme

YasarPiskin

VIP Üye
Kullanıcı
Katılım
6 Ara 2016
Mesajlar
2,059
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.​
 
Girilen Miktara Göre Kodla Veri Alma
Otomatik Liste Oluşturma

Ekli dosyalar

Çözüm
Ömer BARAN
İ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: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
Tarihe göre sırala Oylamaya göre sırala
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.
 
Oyla 0 Olumsuz oyla
13 gibi yazıldığında 13:00, 08 gibi yazıldığında 08:00, 1730 gibi yazıldığında 17:30, 0830 gibi yazıldığında 08:30 gibi.
 
Oyla 0 Olumsuz oyla
231 değil de 0231 gibi yazılacak, veri girişleri tam saat yada yarım saatli, yani 23 yazıldığında 23:00, yada 2330 yazıldığına 23:30 gibi.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
Ömer abi EK'te ki çalışmada bu isteğimi karşılayacak size ait bir kod buldum, kodun bu belgede çalıştırılması hususunda yardımlarınızı talep ediyorum.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
İ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: 
İndirmek için giriş yapmanız gerekmektedir.
(26 satır)
 
Oyla 0 Olumsuz oyla
Çö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.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@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.
Genişletmek için tıklayın ...
Üstadım, Çok güzel bir kod olmuş. Çok işime yaradı. Teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt