Çözüldü Aya göre Makro Çalıştırma

[bekolinux]

Merhaba herkese;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu kodları çalıştırınca (yine buradan yardım almıştım)
eylul ayına ait C1 verisi varsa September-2023-p80 çalışma sayfasına istediğim verileri yazdırabiliyorum.
Fakat c1 e tarihe girdiğim zaman eğer tarih eylülse September-2023-p80 çalışma sayfasına yazsın istiyorum.
bunu nasıl yapabilirim.
örnek dosya aşağıda;

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

bitirmek üzereyim benim için çok önemli

 

[bekolinux]

Merhaba herkese;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu kodları çalıştırınca (yine buradan yardım almıştım)
eylul ayına ait C1 verisi varsa September-2023-p80 çalışma sayfasına istediğim verileri yazdırabiliyorum.
Fakat c1 e tarihe girdiğim zaman eğer tarih eylülse September-2023-p80 çalışma sayfasına yazsın istiyorum.
bunu nasıl yapabilirim.
örnek dosya aşağıda;

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

bitirmek üzereyim benim için çok önemli

başka ayın tarihi seçilirse onu yazmasın istiyorum ve eylül haricinde tarih seçilirse onu da başka çalışma sayfasına kayıt edeceğim.
bana seçtiğim eylülse September-2023-p80 çalışma sayfasına güne göre yazdıracak kodlar gerekli. zaten inceleyince anlaşılacaktır.

herkese teşekkürler

 

[bekolinux]

sanırım ben anlatamadım. yardım edecek kimse yok mu?

 

[halily]

aşağıdaki kod işinize yarar umarım
If Month(b.Range("C1")) <> 9 Then GoTo 10 ile girilen tarih 9. ay mı kontrolü yapılır
eğer 9. ay değilse 10 yazan satıra gidilir

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[bekolinux]

aşağıdaki kod işinize yarar umarım
If Month(b.Range("C1")) <> 9 Then GoTo 10 ile girilen tarih 9. ay mı kontrolü yapılır
eğer 9. ay değilse 10 yazan satıra gidilir

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

teşekkürler hocam deneyim. yazarım size

 

[Patron]

Konudan bağımsız olarak,
N15, V15 , AD15 hücrelerinde kullandığınız formüllerdeki kullandığınız
LET ve DÜŞEYYIĞ fonksiyonları başka sürümlerde çalışmayabilir. (bende olduğu gibi)
alternatif olarak aşağıdakileri kullanabilirsiniz.
N15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

V15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

AD15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[bekolinux]

Konudan bağımsız olarak,
N15, V15 , AD15 hücrelerinde kullandığınız formüllerdeki kullandığınız
LET ve DÜŞEYYIĞ fonksiyonları başka sürümlerde çalışmayabilir. (bende olduğu gibi)
alternatif olarak aşağıdakileri kullanabilirsiniz.
N15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

V15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

AD15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

harikasın hocam teşekkür ederim. lütfen konuyu kapatmayın geri dönüş yapacağım

 

[bekolinux]

aşağıdaki kod işinize yarar umarım
If Month(b.Range("C1")) <> 9 Then GoTo 10 ile girilen tarih 9. ay mı kontrolü yapılır
eğer 9. ay değilse 10 yazan satıra gidilir

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam ben 12 ay içinde çalisma sayfası acacagim. onun da kodlarını nasil yapabilirim.

 

[halily]

Case yada switch ile yapabilirsiniz

 

[bekolinux]

Case yada switch ile yapabilirsiniz

maalesef o kadar bilgim yok :/ biraz düzenleme denesemde, yapamadım. tek bir modülde 12 ay için kodları nasıl yazacağımı bilemiyorum

 

[bekolinux]

Konudan bağımsız olarak,
N15, V15 , AD15 hücrelerinde kullandığınız formüllerdeki kullandığınız
LET ve DÜŞEYYIĞ fonksiyonları başka sürümlerde çalışmayabilir. (bende olduğu gibi)
alternatif olarak aşağıdakileri kullanabilirsiniz.
N15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

V15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

AD15 için,
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam teşekkürler harika çalışıyor.

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

mesela siz eylül için "September-2023-p80" demişsiniz kodda o adı kullandım diğerlerinde de aynı mantık
tabi bu durumda If Month(b.Range("C1")) <> 9 Then GoTo 10 satırına gerek kalmıyor

 

[bekolinux]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

mesela siz eylül için "September-2023-p80" demişsiniz kodda o adı kullandım diğerlerinde de aynı mantık
tabi bu durumda If Month(b.Range("C1")) <> 9 Then GoTo 10 satırına gerek kalmıyor

SANIRIM BEN yapamadım teşekkür ederim.

 

[halily]

yapılamayacak bir şey yok aslında , 12 ay için sayfa oluşturdunuz mu?
choose fonksiyonunu araştırmanız yeterli
öncelikle 12 ay için sayfa oluşturmanız gerek sonrada o sayfa isimlerini choose içine koymanız yeterli

 

[Patron]

Bir öneri.
12 aylık sayfa yerine tek bir aylık sayfa olsa,
N15, V15 , AD15 teki verileri de Database sayfasına kaydetseniz,
tarih değiştikçe o tarihe ait ayın bilgileri aylık sayfasına gelse daha pratik olmaz mı?

 

[bekolinux]

Bir öneri.
12 aylık sayfa yerine tek bir aylık sayfa olsa,
N15, V15 , AD15 teki verileri de Database sayfasına kaydetseniz,
tarih değiştikçe o tarihe ait ayın bilgileri aylık sayfasına gelse daha pratik olmaz mı?

cok guzel olurda benim kodlama bilgisi düşük . hep sizin gibi guzel insanlar yardım etti. kendim yapamam heralde oni

 

[bekolinux]

yapılamayacak bir şey yok aslında , 12 ay için sayfa oluşturdunuz mu?
choose fonksiyonunu araştırmanız yeterli
öncelikle 12 ay için sayfa oluşturmanız gerek sonrada o sayfa isimlerini choose içine koymanız yeterli

hocam çok denedim ama yapamadım ben sanırım. choose 5 tane ekledim 5 aylık veri varmış çünkü.. choose da koydum. ama Set d = Sheets(xSyfAdi) bu adıma gelince hata veriyor. ayları da choose nasıl bilicek ki sırayla 12 tane yazmak şart mı

 

[halily]

Select Case ile ilgili araştırma yaparsanız işinize yarayabilir. Ama hangi yöntemi kullanırsanız kullanın olmayan sayfalar sorun çıkaracaktır. Sayfanın olup olmadığı kontrol edilebilir ama sayfa adlandirmanizin bir mantığı yoksa şablon oluşturmak mümkün olmaz. Adlandırmanın belli bir kuralı var mı?

 

[Patron]

Deneyiniz.

 

[bekolinux]

Deneyiniz.

teşekkür ederim çok güzel oldu.