ay ve yıl seçilince sonraki 5 ayın otomatik gelmesi

[hamit197511]

ekteki dosyada vif sayfasında 1. sıradaki ay ve yıl seçildikten sonra diğer 5 ayın otomatik gelmesini bir türlü ayarlayamadım.
örnek olarak 1. sıraya ay 12 yıl 2008 girince 2. sıraya ay 1 yıl 2009 diye artarak gelmesini istiyorum.

 

[Korhan Ayhan]

Selamlar,

Yıl sütunundaki J13 hücresine aşağıdaki formülü uygulayınız. Aşağı doğru sürükleyiniz.

=EĞER(J11<>"";J11+1;"")

Ay sütunundaki L13 hücresine aşağıdaki formülü uygulayınız. Aşağı doğru sürükleyiniz.

=EĞER(L11<>"";L11+1;"")

 

[hamit197511]

çok sağol korhan ağabey

 

[hamit197511]

korhan ağabey formülü denedim ama ben tam olarak anlatamadım galiba
tekrar yazıyorum.
yıl 2008 ay 1 seçtiğimde
yıl 2008 ay 2
yıl 2008 ay 3
yıl 2008 ay 4
yıl 2008 ay 5
yıl 2008 ay 6 gibi

yıl 2008 ay 9 seçtiğimde
yıl 2008 ay 10
yıl 2008 ay 11
yıl 2008 ay 12
yıl 2009 ay 01
yıl 2009 ay 02 gibi

mümkünse böyle bir formül istiyorum.

 

[hamit197511]

ay ve yıl seçilince sonraki 5 ayın otomatik

Sorunu şu şekilde hallettim
yıl için
j13=eğer(l11>=12;j11+1;j11)
j15=eğer(l11>=11;j11+1;j11)
j17=eğer(l11>=10;j11+1;j11)
j19=eğer(l11>=9;j11+1;j11)
j21=eğer(l11>=8;j11+1;j11)
ay için
l13=eğer(l11=12;"1";l11+1)
l15=eğer(l11=11;"1";l13+1)
l17=eğer(l11=10;"1";l15+1)
l19=eğer(l11=9;"1";l17+1)
l21=eğer(l11=8;"1";l19+1)

 

[Merhum İdris SERDAR]

ekteki dosyada vif sayfasında 1. sıradaki ay ve yıl seçildikten sonra diğer 5 ayın otomatik gelmesini bir türlü ayarlayamadım.
örnek olarak 1. sıraya ay 12 yıl 2008 girince 2. sıraya ay 1 yıl 2009 diye artarak gelmesini istiyorum.

Dosyanız ekte.

.

 

[Korhan Ayhan]

Selamlar,

Sayfanızda "TEMİZLE" makrosu bulunduğundan formülle uygulamalar size sıkıntı yaratacaktır. Ekte dosyanızda gerekli düzenlemeleri yaptım. İncelermisiniz.

Not : Şubat ayı seçimlerinde gün seçimini dikkatli yapınız.

 

[hamit197511]

korhan ağabey örneği inceledim şubat ayının önemi yok vizite kağıdına primler 30 gün olarak yazılır birtek içinde bulunulan ayın kaçıncı günü ise o da el ile girilir. ben temizle makrosunda değişiklik yaptım ve şu an sorunsuz olarak çalışıyor. ayrıca eş ve çocuk vizite kağıdıda ekledim.
aslında tam istediğim gibi oldu ama birtek temizle makrosunu çalıştırınca checkboxlardaki işaretleride kaldırabilelseydim mükemmel olurdu.
dosyayı ekte gönderiyorum temizle makrosu çalışınca chekboxlardaki işareti kaldıracak bir yol varsa çok memnun olurum ağabey ilgin ve alakan için çok teşekkür ederim saygılarımla.

sayfakoruma şifresi : 197511

 

[hamit197511]

ay ve yıl seçilince sonraki 5 ayın otomatik gelmesi çözüldü

tüm yardımcı olan arkadaşlara teşekkür ederim forumda 3 4 saatlik aramadan sonra aşağıdaki kodlarla hallettim.

Dim sp As OLEObject
For Each sp In ActiveSheet.OLEObjects
If TypeOf sp.Object Is MSForms.CheckBox Then
sp.Object.Value = False
End If
Next