D8 hücresi 81 olduğunda tarih yazsın

[k0081]

Merhaba arkadaşlar;

D8 hücresi 81 olduğunda D14 hücresine 355 gün sonrasının tarihini atsın..

D8 hücresi 82 , 83 ,84 ,85 gibi arttığında D14 teki tarih değişmesin. sadece 81 e bağlı olsun yani..

macro başlığında yazdım ama Formülle de olabilir..

Yardımcı arkadaşa şimdiden teşekkürler..

 

[YUSUF44]

İlgili sayfanın kod bölümünde deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d8]) Is Nothing Then Exit Sub
If Target = 81 Then [d14] = Date + 355
End Sub

 

[k0081]

Teşekkürler hocam tamamdır..
***********************

Hocam aynı kodda şöyle bir değişiklik olabilirmi D8 e EVET yazdığımda tarihe yine 355 eklesin..

 

[YUSUF44]

Şöyle deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d8]) Is Nothing Then Exit Sub
If Target = 81 Or UCase(Target) = "EVET" Then [d14] = Date + 355
End Sub

 

[k0081]

Şöyle deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d8]) Is Nothing Then Exit Sub
If Target = 81 Or UCase(Target) = "EVET" Then [d14] = Date + 355
End Sub

hocam denedim,, fakat EVET formüle bağlı olduğu için sanırım,, herhangi bişey yazmadı.

 

[YUSUF44]

Evet'in formülü nedir? Kodları o formüle göre düzenleme imkanı olabilir.

 

[Ömer]

hocam denedim,, fakat EVET formüle bağlı olduğu için sanırım,, herhangi bişey yazmadı.

Merhaba,

Açıklamalarınızda tezatlık var gibi. Eğer D8 hücresi formülle değişiyorsa ilk kod da çalışmaz. Fakat siz çalıştığını söylediniz.

Bu durumda kodları aşağıdaki gibi değiştirmelisiniz.

Private Sub Worksheet_Calculate()
    If [D8] = 81 Or UCase([D8]) = "EVET" Then [D14] = Date + 355
End Sub

.

 

[k0081]

Aslında Tezatlık yok hocam,, ama haklısınız da,, 81 formülle çıktığı zaman çalışmıyor.. doğrudan yazdığımda çalışıyor.. zaten o yüzden tekrar sordum soruyu,, EVET olduğunda durum anlaşıldı... hocam..
*******************
Şimdi soruyu şöyle güncellemek gerekiyor:

D8 hücresinde var olan bir formül sonucu EVET çıktığında D14 e 355 gün ekleyerek tarih yazılması.. son hali budur hocam..

 

[YUSUF44]

D8 hücresindeki formül nedir diye sormuştum.

 

[k0081]

evet'in formülü nedir? Kodları o formüle göre düzenleme imkanı olabilir.

hocam çok pardon,, Oruçluluk durumu görmedim.. tabloyu değiştirdim bu arada.. hücre adresleri değişti. Tarih D15 yazacak.. baz alacağı hücrede D14.. ( yani EVET in çıktığı Hücre D14 )

=eğer(b2>81;"evet";"hayır")

 

[YUSUF44]

Peki B2'deki değer formülle mi yoksa elle mi giriliyor?

 

[k0081]

Peki B2'deki değer formülle mi yoksa elle mi giriliyor?

formülle hocam.

 

[YUSUF44]

Öyleyse B2'yi etkileyen, elle giriş yaptığınız hücreye göre düzenlememiz gerek. Anladığım kadarıyla sayfa olaylarına bağlı kodlar belirli bir target ve bu targetteki değişimlere göre düzenlenebiliyor.

 

[k0081]

evet aynen öyle.. B2 deki formülü de gönderebilirim , gerekli ise ?

=EĞER(D8>=81;MUTLAK((((D9-(D8*D7))/D7)));"işlem yok..")

 

[Ömer]

Bunun çözümünü #7. mesajda yazmıştım. Denemediniz mi?

 

[k0081]

Ömer;

Hocam çok pardon,, kusura bakmayınız.. özür.. Evet 7. msj da vermiş olduğunuz kod düzgün bir biçimde çalışıyor..

Teşekkür ediyorum,, Tamamdır.. Ömer hocam..

Not: denemiştim hocam ben.. ama 81 silip o şekilde kullanmıştım...
*********************************
Excel 2007 de şu hatayı veriyor. Excel 2010 da sorun yok.

 

[asi_kral]

Merhaba
2007 denemesinde Ömer Hocanın kodunda hata ile karşılaşılmadı

 

[drykcktl]

Merhaba,

Açıklamalarınızda tezatlık var gibi. Eğer D8 hücresi formülle değişiyorsa ilk kod da çalışmaz. Fakat siz çalıştığını söylediniz.

Bu durumda kodları aşağıdaki gibi değiştirmelisiniz.

Private Sub Worksheet_Calculate()
    If [D8] = 81 Or UCase([D8]) = "EVET" Then [D14] = Date + 355
End Sub

.

A sütununa numara verdiğimizde B sütununda o günün tarihini nasıl alabiliriz..makro yada formül olabilir.

 

[k0081]

Merhaba
2007 denemesinde Ömer Hocanın kodunda hata ile karşılaşılmadı

ilginç.. bende hata veriyor. Başka bir 2007 yüklü makinada deneyeceğim.

 

[Ömer]

Dosyanızdan kaynaklanan bir sorun olabilir. Hata veren dosyayı eklemeniz mümkün mü?