• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tarih formatı

B

batugul35

Katılım
30 Mayıs 2007
Mesajlar
73
Excel Vers. ve Dili
türkçe
Arkadaşlar merhaba

Öncelikle forumda yeniyim.Excel bilgimde az.Benim sormak istediğim hücreye
yazdığım (örn: 31052007) tarih bilgisini 31.05.2007 olarak tanıması.Yani kendim
rakamların arasına ( . ) veya ( / ) koymak istemiyorum.Forumda biraz inceledim
textbox dan bahsediliyor ama onunda ne olduğunu ve nasıl yapıldığını bilmediğim için pek işime yaramadı.
Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla,
 
batugul35' Alıntı:
Arkadaşlar merhaba

Öncelikle forumda yeniyim.Excel bilgimde az.Benim sormak istediğim hücreye
yazdığım (örn: 31052007) tarih bilgisini 31.05.2007 olarak tanıması.Yani kendim
rakamların arasına ( . ) veya ( / ) koymak istemiyorum.Forumda biraz inceledim
textbox dan bahsediliyor ama onunda ne olduğunu ve nasıl yapıldığını bilmediğim için pek işime yaramadı.
Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla,
Genişletmek için tıkla ...

Selamlar,

Hücreleri Biçimlendir>İsteğe Uyarlanmış>Tür kutusuna 00"/"00"/"0000
yazın ve Tamamı tıklayın

Kolay Gelsin
 
Fakat şimdi de şöyle bir problem ortaya çıktı.
Benim tablom bir valör alma tablosu.Dolayısıyla iki tarih arasında ki fark gününü
hesaplattığım için sizin belirttiğiniz şekilde yapınca tarihler görüntü olarak düzeldi fakat şimdide işlevlerini yitirdi.
 
batugul35' Alıntı:
Fakat şimdi de şöyle bir problem ortaya çıktı.
Benim tablom bir valör alma tablosu.Dolayısıyla iki tarih arasında ki fark gününü
hesaplattığım için sizin belirttiğiniz şekilde yapınca tarihler görüntü olarak düzeldi fakat şimdide işlevlerini yitirdi.
Genişletmek için tıkla ...

Selam,

Arkadaşım isteğe uyarlanmış olduğundan girdiğin her ne kadar tarih görüntüsün de ise de format tarih olmadığı için arasındaki farkı hesaplayamıyor

Belki başka bir çözüm yolu vardır. Kodlarla

Kolay gelsin
 
Şöyle kısa bir metodta var. Yalnız bir defa "/"(NumLock'un sağına bitişik tuş) basmak kaydyla tarih yazılabilir. Örnek : 31/05 Enter, sonuç : 31.05.2007 şeklinde olacak. Not : Tarihin değişik bir formatı çıkabilir. Onun için, Hücre Biçimlendirme'den onu düzeltin. Bir bilgi daha : Eğer yıl tarihi, içinde bulunulan tarihten aşağı veya yukarıda ise; Örnek : 31/05/6 Enter, sonuç : 31.05.2006 şeklinde olacaktır.
 
örnek dosya ekleseniz daha anlaşılır olmaz mı?
 
batugul35' Alıntı:
Fakat şimdi de şöyle bir problem ortaya çıktı.
Benim tablom bir valör alma tablosu.Dolayısıyla iki tarih arasında ki fark gününü
hesaplattığım için sizin belirttiğiniz şekilde yapınca tarihler görüntü olarak düzeldi fakat şimdide işlevlerini yitirdi.
Genişletmek için tıkla ...

Ekteki dosyayı inceleyin.


..
 
Öncelikle arkadaşlar hepinizden yardımlarınız için teşekkür ediyorum.
Yalnız ben tarihi yazarken herhanbi bir tuşa basmak istemiyorum.(.) veya(/) gibi.çünkü hata yapma olasılığımı arttırıyor.Birde bu işlemi gün içerisinde devamlı kullandığım için daha pratik olmasını istiyorum.
 
kod ile çözmek isterseniz aşağıdaki kod sayfanın B sütununu istediğinize duyarlı yapıyor.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub

If Len(Target.Text) > 5 Then
If IsDate(Mid(Target.Text, 1, 2) & "/" & Mid(Target.Text, 3, 2) & "/" & Mid(Target.Text, 5, Len(Target.Text) - 4)) Then Target.Value = DateValue(Mid(Target.Text, 1, 2) & "/" & Mid(Target.Text, 3, 2) & "/" & Mid(Target.Text, 5, Len(Target.Text) - 4))
End If

End Sub
 
Kod ile nasıl yapılır neriye yazılır bilmiyorum.fakat yurttas arkadaşın verdiği örnek ile tablomu yeniden yapmaya başladım.size göre ufak bana göre büyük bir problemle karşılaşdım value değerinden dolayı istediğim sutunu toplamıyor.
0 0
10 100
20 200
30 300
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
kusura bakmayın dosya nasıl eklendiğini bilmediğim için bu şekilde yaptım.
 
Yukarıda verdiğim koda ait örnek dosya.

sayfa1'de B sütunu, sayfa2'de herhangi bir hücreyi tarih olarak algılıyacak şekilde dizayn edildi.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub

If Len(Target.Text) > 5 Then
If IsDate(Mid(Target.Text, 1, 2) & "/" & Mid(Target.Text, 3, 2) & "/" & _ 
Mid(Target.Text, 5, Len(Target.Text) - 4)) Then Target.Value = _ 
DateValue(Mid(Target.Text, 1, 2) & "/" & Mid(Target.Text, 3, 2) & "/" & _ 
Mid(Target.Text, 5, Len(Target.Text) - 4))
End If

End Sub
 
batugul35' Alıntı:
Öncelikle arkadaşlar hepinizden yardımlarınız için teşekkür ediyorum.
Yalnız ben tarihi yazarken herhanbi bir tuşa basmak istemiyorum.(.) veya(/) gibi.çünkü hata yapma olasılığımı arttırıyor.Birde bu işlemi gün içerisinde devamlı kullandığım için daha pratik olmasını istiyorum.
Genişletmek için tıkla ...

tam tersine hata yapmamak için size önerim, - ve / kullanın, onlarda sağda tuş takımlarının orda.

1/1/5 yazarsanız 01.01.2007 olur
1/1-5 yazarsanız da 01.01.2007 olur
dikkat edeniz 5 karakter yazarak tarihi yazıyorsunuz daha az hata yaparsınız 01012007 derken baştaki sıfırı yada ayın sıfırını unutabilirsiniz vs vs vs
 
K3 Hücresindeki formülü:

=IF(OR(A2="";A3="");"";DATE(RIGHT(A3;4);MID(A3;3;2);LEFT(A3;2))-DATE(RIGHT(A$2;4);MID(A$2;3;2);LEFT(A$2;2)))

=EĞER(YADA(A2="";A3="");"";TARİH(SAĞDAN(A3;4);PARÇAAL(A3;3;2);SOLDAN(A3;2))-TARİH(SAĞDAN(A$2;4);PARÇAAL(A$2;3;2);SOLDAN(A$2;2)))

L3 Hücresindeki formülü de:

=IF(OR(B3="";K3="");"";K3*B3)

=EĞER(YADA(B3="";K3="");"";K3*B3)

şeklinde yaparak aşağıya doğru kopyalayın.

.
 
Son düzenleme:
Arkadaşlar yukarıda anlatılan şekilde 'date' formatı ile programı çalıştırdım.
Fakat başi (sıfır) ile başlayan tarihlerde sapıtıyor.( 02/08/2007)
Örnek yukarıda yurttas arkadaşımın verdiği örnektede aynı problem var.
 
Bu şekilde deneyin.
Örnek : =EĞER(A11=0;"";(K11*B11))
Toplam İçin : =L2+L3+L4+L5+L6+L7+L8+L9
 
Hayır benim problemim hücrenin boş olması değil tarihin ( örnek:02/08/2007)
baş tarafı sıfır ile başlarsa yanlış veriyor.12/08/2007 yazarsanız bir problem
olmuyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst