Tarih formatı

[batugul35]

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,

 

[Mdemir63]

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,

Selamlar,

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

Kolay Gelsin

 

[batugul35]

İlginiz için çok teşekkür ederim.

 

[batugul35]

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.

 

[Mdemir63]

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.

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

 

[Seyit Tiken]

Şö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.

 

[Necdet]

örnek dosya ekleseniz daha anlaşılır olmaz mı?

 

[İdris SERDAR]

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.

Ekteki dosyayı inceleyin.


..

 

[batugul35]

Ö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.

 

[xxcell]

kod ile çözmek isterseniz aşağıdaki kod sayfanın B sütununu istediğinize duyarlı yapıyor.

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]

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.

 

[İdris SERDAR]

örnek dosya ekleseniz daha anlaşılır olmaz mı?

Buraya geldik.....


.

 

[xxcell]

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.

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

 

[Necdet]

Ö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.

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

 

[batugul35]

dosya yı eklemeye çalışdım...

 

[İdris SERDAR]

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.

.

 

[batugul35]

Çok teşekkür ederim . çok işime yaradı.

 

[batugul35]

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.

 

[Seyit Tiken]

Bu şekilde deneyin.
Örnek : =EĞER(A11=0;"";(K11*B11))
Toplam İçin : =L2+L3+L4+L5+L6+L7+L8+L9

 

[batugul35]

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.