Aylar Geçici silinsin

[eminuslu]

Sevgili dostlar ekte gönderdiğim deneme dosyamda anlattığım şekilde ayların geçici olarak silinip kaydettiğimizde yerine gelmesini istiyorum bu konuda yardımcı olma gayreti gösteren her kese teşekkür ederim.Bu soruma istediğim şekilde cevap alabilirsem bu benim için bayram demektir hepinizin mübarek Kurban Bayramını tebrik ederim dosyam ektedir

 

[Orion1]

dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C8,C10]) Is Nothing Then Exit Sub
If UCase(Target.Value) = "X" Then Range("E10:F10").Value = ""
End Sub

 

[eminuslu]

Orion1 bey ilgilendiğiniz için teşekkür ederim sorumun içerisinde bir soru daha çıktı X işaretini veri doğrulama yöntemi ile D8 ve D10 hücrelerine getirirsem o zaman çalışmıyor

 

[Orion1]

Orion1 bey ilgilendiğiniz için teşekkür ederim sorumun içerisinde bir soru daha çıktı X işaretini veri doğrulama yöntemi ile D8 ve D10 hücrelerine getirirsem o zaman çalışmıyor

D sütununda değil C sütununda olacak.
Veri doğrulama=> liste ile yaptım.dosya 2 numaralı mesajda.tekrar düzenledim.veri doğrulama yaptım.
Problem çıkmadı çalışıyor.

 

[eminuslu]

Tşk ederim

 

[eminuslu]

..............

..............

 

[eminuslu]

......................

......................

 

[eminuslu]

.................

 

[eminuslu]

................

,,,,,,,,,,,,,,,,,,,,

 

[eminuslu]

...............

..............................