1 sayfadan 1. sayfa

SAAT OLARAK BİÇİMLENDİRİLMİŞ STÜNDA SAYIYI SAATE ÇEVİRME

İletiTarih: 10 Ağu 2019 17:15
anorian
Selamın aleyküm RANDEVU LİSTESİNDEKİ SAAT stünunu saat olarak biçimlendirdim örneğin 15 yazdığımda kendisinin 15:00 olarak eklemesini istiyorum fakat bu böyle olmuyor direk 15 yazdığımda :00 kısmını girmediğimde direk 15:00 değilde 00:00 diye kendini atıyor bunu nasıl çözebilirim acaba

excel resimi:

https://ibb.co/fY7Z0qr


dosyanın kendisi:

https://www.dosyaupload.com/jbif

Cevap: SAAT OLARAK BİÇİMLENDİRİLMİŞ STÜNDA SAYIYI SAATE ÇEVİ

İletiTarih: 12 Ağu 2019 01:40
Feyzullah
Aşağıdaki kodu dosyanızın ThisWorkBook (BuÇalışmaKitabı) kod bölümüne yazınız.

Kod: Tümünü seç
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Len
(Target) < 3 Then
Target 
= Target & ":00"
Target.NumberFormat = "hh:mm"
End If
End Sub

Cevap: Cevap: SAAT OLARAK BİÇİMLENDİRİLMİŞ STÜNDA SAYIYI SAA

İletiTarih: 15 Ağu 2019 12:42
anorian
Feyzullah yazdı:Aşağıdaki kodu dosyanızın ThisWorkBook (BuÇalışmaKitabı) kod bölümüne yazınız.

Kod: Tümünü seç
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Len
(Target) < 3 Then
Target 
= Target & ":00"
Target.NumberFormat = "hh:mm"
End If
End Sub

oldu teşekkürediyorum fakat bu seferde saatlerin sıralanması devre dışı kaldı yani dosyadaki diğer kodları gözden geçirip o şekilde işlem yapabilirmisiniz çünkü verdiğiniz kodu diğer kodların altına yapıştırdığımda üstteki saat sıralayan kod devre dışı kaldı

Cevap: Cevap: Cevap: SAAT OLARAK BİÇİMLENDİRİLMİŞ STÜNDA SAY

İletiTarih: 16 Ağu 2019 16:55
Feyzullah
anorian yazdı:
Feyzullah yazdı:Aşağıdaki kodu dosyanızın ThisWorkBook (BuÇalışmaKitabı) kod bölümüne yazınız.

Kod: Tümünü seç
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Len
(Target) < 3 Then
Target 
= Target & ":00"
Target.NumberFormat = "hh:mm"
End If
End Sub

oldu teşekkürediyorum fakat bu seferde saatlerin sıralanması devre dışı kaldı yani dosyadaki diğer kodları gözden geçirip o şekilde işlem yapabilirmisiniz çünkü verdiğiniz kodu diğer kodların altına yapıştırdığımda üstteki saat sıralayan kod devre dışı kaldı



Kodu sayfaların kod bölümüne değil ThisWorkBook (BuÇalışmaKitabı) kod bölümüne yazınız diye mesajda belirtmiştim. Bahsettiniz kodları dosyanızda görmüştüm zaten. Ben yinede dosya ekledim deneyin.