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

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

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

İleti#1)  anorian » 10 Ağu 2019 17:15

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
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#2)  Feyzullah » 12 Ağu 2019 01:40

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
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 756
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

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

İleti#3)  anorian » 15 Ağu 2019 12:42

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ı
Kullanıcı avatarı
anorian
 
Kayıt: 08 Ağu 2019 14:33
Meslek: girilmedi
Yaş: 35
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

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

İleti#4)  Feyzullah » 16 Ağu 2019 16:55

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 756
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Yandex[Bot] ve 3 misafir

Bumerang - Yazarkafe