• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

bekolinux

Yeni Üye
Katılım
19 Ocak 2022
Mesajlar
74
Aldığı beğeni
11
Excel V
Office 365 TR
Konu Sahibi
Merhaba herkese;

HTML:
Kod:
İç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
 
Konu Sahibi
Merhaba herkese;

HTML:
Kod:
İç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
 
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
teşekkürler hocam deneyim. yazarım size
 
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
V15 için,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
AD15 için,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
V15 için,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
AD15 için,
HTML:
Kod:
İç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
 
Konu Sahibi
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:
Kod:
İç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.
 
Case yada switch ile yapabilirsiniz
 
Konu Sahibi
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
V15 için,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
AD15 için,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
hocam teşekkürler harika çalışıyor.
 
HTML:
Kod:
İç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
 
Konu Sahibi
HTML:
Kod:
İç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.
 
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
 
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ı?
 
Konu Sahibi
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
 
Konu Sahibi
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ı
 
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ı?
 
Deneyiniz.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst