tarihlerde gün.ay.yıl arasına otomatik nokta koyma

[beetle0]

arkadaşlar merhabalar.excelde tarihleri yazarken gün ay yıl arasına noktaları kendim koyuyorum buda bazen karıştırmama sebep oluyor.bunun bir fonksiyonu vardı biliyordum ama unuttum.yani ben direkt olarak tarihi örneğin 13012008 diye hücreye girip formülün aralara nokta koymasını istiyorum.yardımlarınızı bekliyorum.ilgilenen arkadaşlara şimdiden çok ama çok teşekkürler.....

 

[Necdet]

Merhaba,

13-1-8 ya da 13/1/8 olarak giriş yapın daha rahat edersiniz üstelik hata yapma şansınız da azalır.

 

[fedeal]

lütfen inceleyin
http://www.excel.web.tr/f50/tarih-bicimi-sorunu-t709.html

 

[ozgretmen]

Sayfanızın kod bölümüne aşağıdaki kodu girdiğinizde , sayfanızda hücrelere 8 haneli bir sayı yazdığınızda otomatik olarak istediğiniz hale dönüştürecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
deger = Cells(ActiveCell.Row - 1, ActiveCell.Column).Text
If Len(deger) = 8 Then
Cells(ActiveCell.Row - 1, ActiveCell.Column).Value = Left(deger, 2) & "." & Mid(deger, 3, 2) & "." & Right(deger, 4)
Else
End If
End Sub

 

[beetle0]

Sayfanızın kod bölümüne aşağıdaki kodu girdiğinizde , sayfanızda hücrelere 8 haneli bir sayı yazdığınızda otomatik olarak istediğiniz hale dönüştürecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
deger = Cells(ActiveCell.Row - 1, ActiveCell.Column).Text
If Len(deger) = 8 Then
Cells(ActiveCell.Row - 1, ActiveCell.Column).Value = Left(deger, 2) & "." & Mid(deger, 3, 2) & "." & Right(deger, 4)
Else
End If
End Sub

cevabın için teşekkürler.fakat ben anlayamadım bu verdiğiniz formulu komple mi kopyala yapıştır yapıcam.yardımcı olurmusunuz??

 

[fedeal]

sayın ozgretmen bu güzel örneginiz için teşekkürler.

 

[beetle0]

arkadaşlar biraz daha kolay şekilde anlatabilecek varmı acaba?hala bu tarihlerle boğuşuyorum

 

[ozgretmen]

Sayfa sekmesi üzerinde sağ tıkla orada kod görüntüle var. Tıkla ve açılan sayfa bu kodu yapıştır ve çık.Sayfanızda 8 haneli bir sayı giriniz.Bu kadar.

 

[fedeal]

sayın özgretmen izinizle
araçlar-makro-visual basic düzenliyicisi
actıktan sonra sol tarafta bulunan vbaproject altında sayfa1(sayfa1) yazan yere (hangi sayfada kullanacaksanız) üzerine çift tıklayın acılan boş sayfaya oldugu gibi kopyalayın
iyi calışmalar.

ben yazarken siz cevaplamışınız. saygılar

 

[ozgretmen]

sayın özgretmen izinizle
araçlar-makro-visual basic düzenliyicisi
actıktan sonra sol tarafta bulunan vbaproject altında sayfa1(sayfa1) yazan yere (hangi sayfada kullanacaksanız) üzerine çift tıklayın acılan boş sayfaya oldugu gibi kopyalayın
iyi calışmalar.

ben yazarken siz cevaplamışınız. saygılar

Benden de saygılar.Önemli olan sorunun bir şekilde cevaplandırılması.İlginizden ötürü asıl ben teşekkür ederim.İyi çalışmalar

 

[beetle0]

arkadaşlar yardımlarınız için çok teşekkür ederim.kod olayını çözdüm.bir sorum daha olacak!şimdi bu kodu uyguladığımızda kod bütün excel sayfası için uygulanıyor.tek bir sütuna nasıl uygularız? mesela tarihi sadece a sütununa girdiğimizden sadece kod o sütunda geçerli olsun.diğer sütunlara 8 rakamlı bir para birimi falan girsek bu sefer o da tarihe dönüşecek

 

[ozgretmen]

Aşağıdaki şekilde deneyiniz....

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
deger = Cells(ActiveCell.Row - 1, ActiveCell.Column).Text
If Len(deger) = 8 Then
Cells(ActiveCell.Row - 1, ActiveCell.Column).Value = Left(deger, 2) & "." & Mid(deger, 3, 2) & "." & Right(deger, 4)
Else
End If
End Sub

 

[canavar_55]

Sayın beetle0,

Tarih yazacağınız hücreleri seçin,

Sağ tık
hücreleri biçimlendir
isteğe uyarlanmış
tür'ün altındaki kutucuğa

##\.##\.####

yazın

bundan sonra bu hücrelere 11112008 yazdığınızda 11.11.2008 yazacaktır

 

[beetle0]

Sayın beetle0,

Tarih yazacağınız hücreleri seçin,

Sağ tık
hücreleri biçimlendir
isteğe uyarlanmış
tür'ün altındaki kutucuğa

##\.##\.####

yazın

bundan sonra bu hücrelere 11112008 yazdığınızda 11.11.2008 yazacaktır

tamam işte yaaa ben bu kodu arıyodum.Allah razı olsun kardeşim.yardımcı olan tüm arkadaşlara çok tşkr ederim.ancak canavar arkadaşıma özel teşekkürlerimi iletirim.saygılarımla

 

[Necdet]

01012009 yazarsanız ne olacak?

Gün ya da Ay ın sıfırını yazmazsanız ne olur?

Ayrıca görüntüyü kurtarırsınız ama tarih olarak hesaplama yapamazsınız.

Israrla tarih girişini
1-1-9
1/1/9
1/1-9
1-1/9 şeklinde yapabiliriz. en garantilisi bu.

 

[kimustafa]

Kodu kopyalayıp yapıştırdım fakat çalışmıyor sebebi ne olabilir?

 

[YUSUF44]

Kodu kopyalayıp yapıştırdım fakat çalışmıyor sebebi ne olabilir?

Hangi kodu nereye yapıştırdınız, nasıl denediniz, amacınız neydi, neyle karşılaştınız?

En güzeli siz tam olarak ne istediğinizi örnek dosyanızla belirtin, daha kolay çözüm bulursunuz.

 

[beyinmuhendisi]

Amacınızı anlayamadım ama umarım işe yarar.