Eğer 60 yaşını bitirdiyse (X) bitirmediyse (Y)

kelkitli · 7 Ağustos 2008

Değerli Dostlar Selamlar,
Aşağıdaki kod ile 60 yaşını bitirip 61 den gün aldıysa (x) değilse (Y) seçilsin.

Sub yashesabı()
If Range("a1(doğumtarihi+60yıl)") => "Bugün-Doğumtarihi=60 yaş" Then
MsgBox "Kart verilebilir"
ElseIf Range("a1(doğumtarihi+60yıl)") < "Bugün-Doğumtarihi=60 yaş"" Then
MsgBox "Kart verilemez"
End If
End Sub

veyselemre · 7 Ağustos 2008

Merhaba, lütfen doğruluğunu test edip kullanın.

Kod:

Sub yashesab&#305;()
    If Year(Date - [a1]) - 1900 >= 60 Then MsgBox ("Kart Verilebilir") Else MsgBox ("Kart Verilemez.")
End Sub

kelkitli · 7 Ağustos 2008

Sayın veyselemre teşekkür ederim.

kelkitli · 7 Ağustos 2008

Sayın veyselemre,
Benmi hesaplıyamadım bilmiyorum.

Sub yashesabı3()
[A3] = Year(a1)
End Sub

yazdığımız zaman yılı vermezmi. Hani formül ile =YIL(A1) aynı mı olmalı? Ben hesabı yanlışlık varmış gibi algıladım da nerede hata yapıyorum bilemedim.

kelkitli · 7 Ağustos 2008

Sayın veyselemre tamam ben hatalı algılamışım özür dilerim. Sorun çözüldü.

kelkitli · 7 Ağustos 2008

Değerli Dostlar ilginç bir durum var. Kodları Visual Basic Run komutuyla çalıştırıyorum bütün tarihlere "Kart verilebilir" yazıyor; Buton ile çalıştırıyorum "Kart verilemez" diyor. Ama aynı kod bir diyer dosyada normal çalışıyor.

Ayhan Ercan · 7 Ağustos 2008

Merhaba

Kodları Run ile çalıştırdığınızda, Mevcut aktif olan sayfanız hangisi?

kodda : If Year(Date - [a1]) - 1900

Direk olarak a1 hücresi denmiş. Sayfa adı belirtilmemiş. Dolayısıyla vba dan run ile çalıştığı durumda mevcut aktif olan sayfa hangisi ise ona göre kod çalışacaktır.
(Benim aklıma bu geldi)..

kelkitli · 8 Ağustos 2008

Sayın Ayhan Ercan teşekkür ederim cevabınız için. Sayfayla ilgili değilde bulamadım sebebini. Formül ile çözdüm. Pek şık olmadı ama yoktan iyi.

kelkitli · 31 Ağustos 2008

Selamlar,
Değerli Dostlar ekli dosyada Sayın veyselemre'nin yazdığı kodu iki şekilde yaptım. yaşhesabı isimli makro ile hücreden çalıştırıyorum hesap doğru. Userformdan çalıştırıyorum yanlış hesaplıyor.

Ayhan Ercan · 31 Ağustos 2008

Merhaba

Textboxla ilgili mevcut kodunuzu aşağıdaki gibi değiştirerek deneyiniz...

Kod:

If Year(Date - CDate(UserForm1.TextBox1.Value)) - 1900 >= 60 Then......

kelkitli · 31 Ağustos 2008

Merhaba Sayın Ayhan Ercan,
Öncelikle teşekkür ederim. Hücre işlemlerinde bu tür uygulamaları rahatlıkla yapıyordum. TextBox larla ilgili uygulamalarda sıkıntıya düştüm.

UserForm1.TextBox31.Value = WorksheetFunction.CountIf(Sayfa4.Range("B2:B65536"), UserForm1.TextBox2.Value & UserForm1.TextBox3.Value)
If Year(Date - CDate(UserForm1.TextBox1.Value)) - 1900 >= 60 Then UserForm1.TextBox32.Value = "YETERLİ" Else UserForm1.TextBox32.Value = "YETERSİZ"

Bu uygulamaların ikisindende sonuç alamadım. Yarım gündür uğraşıyorum. Mümkünse hatam ne incelermisiniz.

Ayhan Ercan · 31 Ağustos 2008

Hatamı alıyorsunuz sonuçmu alamıyorsunuz.

Bu kodlar ile ne yapmaya çalışıyorsunuz?

Ben kodları çalışma mantığına göre kendime uyarladım bende sorun cıkmadı. Gayet güzel çalışıyor...

kelkitli · 31 Ağustos 2008

Sayın Ayhan Ercan,
Eklediğim dosyada UserForm üzerinde, "önceden kaydı, Ankara'da mı oturuyor, yaşı yeterlimi gibi alanları doldurmaya çalışıyorum. Dosyanın şifresi 123
konu olan bölüm "aktar isimli makronun sonunda.

Ayhan Ercan · 1 Eylül 2008

Tekrar Merhaba sn kelkitli

If Year(Date - CDate(UserForm1.TextBox5.Value))

Doğum tarihine göre hesaplattırma yapıyorsunuz anladığım kadarıyla.
Doğum tarihi de Textbox1 de değil Textbox5 te

Kodunuzu ona göre revize ederek deneyiniz....

kelkitli · 1 Eylül 2008

Sayın Ayhan Ercan,
Teşekkürler, dün fazla uğraştım, demekki takılmış kafam.

Eğer 60 yaşını bitirdiyse (X) bitirmediyse (Y)

kelkitli

veyselemre

Özel Üye

kelkitli

kelkitli

kelkitli

kelkitli

Ayhan Ercan

Özel Üye

kelkitli

kelkitli

Ayhan Ercan

Özel Üye

kelkitli

Ayhan Ercan

Özel Üye

kelkitli

Ayhan Ercan

Özel Üye

kelkitli