yaş hesaplama

[cold06]

Merhabalar, benim bir sorum olacak. a1 e 1980 yazdığımda oraya otomatik olarak yaşı hesaplaması mümkün mü ? bu formül veya makroyu 2000 satıra uygulayacağım bu şekilde yardımcı olursanız çok sevinirim.

İyi çalışmalar...

 

[Ömer]

Merhabalar, benim bir sorum olacak. a1 e 1980 yazdığımda oraya otomatik olarak yaşı hesaplaması mümkün mü ? bu formül veya makroyu 2000 satıra uygulayacağım bu şekilde yardımcı olursanız çok sevinirim.

İyi çalışmalar...

Merhaba,

B1 hücresine aşağıdaki formülü yazarak hesaplayabilirsiniz..

=YIL(BUGÜN())-A1

formülü yazdığınız hücrelerin biçimini Genel olarak değiştiriniz..

.

 

[cold06]

merhaba hocam öncelikle ilgin için teşekkürler. Yalnız ben sorumu yanlış yazdım sanırım.. mesela a1 hücresine 1980 yazdığımda a1 hücresi değişip 29 yazması lazım. yani bu yıldan hücreye yazdığım seneyi çıkarıp hücrede göstericek.
teşekkürler

 

[leumruk]

Merhaba,
Formül bulunan hücreye veri giremezsiniz. Bu nedenle bu işlem için makro kullanmalısınız. Eğer makro isterseniz bir çözüm üretebilirim.

 

[leumruk]

Yeni farkettim, yukarıda formül veya makro demişsiniz. Aşağıdaki kod işinizi görecektir.

Dim a As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
If a = 1 Or Target = "" Then Exit Sub
a = 1
Yıl = Format(Now, "yyyy")
Target = Yıl - Target
a = 0
End Sub

A sütununda herhangi bir hücreye tarih girdiğinizde, tarihi yaşa çevirecektir.

 

[cold06]

Yaş hesapllama

çok ama çok teşekkürler. işime ne kadar yaradığını bilemezsiniz. yalnız ben f sütünü içinde aynı şeyi yapamadım, aynı kodları kullandım a görüdüğüm yere f yazdım fakat sorun çıktı, döngülse hata verdi nedendir analamadım ?

Yine de çok teşekkürler.

Tamam çözdüm. sadece sütünu göstermek yetiyormuş. Eline sağlık

Yalnız tek sorun, benim bu dosyayı kullancak bilgisayarım openoffice kullanıyormuş acaba onda nasıl çalıştırıcam onu bilmiyorum. Deniyoruz bakalım neler olacak..

 

[istanbulcahan]

Güzel bir çalışma olmuş sağolun, işe yaradı bu çalışmayı biraz daha farklı çevreye götürerek, formülden yaş kontolü yapılacak ve eğer listedeki yaş uygun değilse kişinin isminin karşısına katılabilir ya da katılamaz sonucu verecek ama bunu yazmayacak direk başka bir bölümde listeyi otomatikman verecek nasıl yapabailirz.

 

[leumruk]

Güzel bir çalışma olmuş sağolun, işe yaradı bu çalışmayı biraz daha farklı çevreye götürerek, formülden yaş kontolü yapılacak ve eğer listedeki yaş uygun değilse kişinin isminin karşısına katılabilir ya da katılamaz sonucu verecek ama bunu yazmayacak direk başka bir bölümde listeyi otomatikman verecek nasıl yapabailirz.

Ne istediğinizi tam anlayamadım. Biraz daha açıklayabilir misiniz?

 

[istanbulcahan]

Şimdi. adı ve soyadı, doğum tarihi verilerinin girldiği listede örneğin 1997-1998-1999 doğumlu sporcu ise adı yazılan ise formülde a1'deki veriye giderek kontol yapılıyor ve isminni yanındaki hizaya katılabilir. a1 deki veri kontrolünde yukarıda doğumlulara uymayan olursa katılamaz yazacak.

 

[leumruk]

Selamlar,
Aşağıdaki örneği inceleyiniz. Fonksiyon kullandım.

 

[istanbulcahan]

Dosyayı açtım. ancak kişilerin doğum tarihi değişince katılma durumu ile ilgili bir değişiklik yok. nasıl yapabilicem.

 

[leumruk]

Fonksiyon, 12 yaşından küçükler için katılabilir, büyükler için katılamaz yazıyor. Örneğin: Doğum tarihine 2000 yazdığınızda katılabilir mesajı alırsınız. Bu tarihi 1999 yazdığınızda da aynı mesajı alırsınız. Ancak 1995 yazdığınızda katılamaz yazar; çünkü yaş 15 olacaktır. Buna dikkat edin.

 

[istanbulcahan]

Doğru elinize sağlık. peki ben bu fonksiyonu istedğim zaman 20 yaşından aşağı katılamaz olarak düzenlemek idtediğimde nereden değiştirebilirim..

 

[leumruk]

Aşağıdaki dosyayı inceleyiniz. D1'e katılabileceklerin yaşlarının alt sınırını, E1'e üst sınırını yazınız. Böylece yaş değiştikçe formülü değiştirmeniz gerekmeyecektir.

 

[istanbulcahan]

Çok sağol.

 

[leumruk]

Çok sağol.

Rica ederim.

 

[weycell78]

Merhaba,

Dim a As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
If a = 1 Or Target = "" Then Exit Sub
a = 1
Yıl = Format(Now, "yyyy")
Target = Yıl - Target
a = 0
End Sub


bu işe yaramadı benmi yapamadım ?