Bilgi alma.

[sedat2161]

Hayırlı sabahlar arkadaşlar. Ekli dosyada sayfa 1 deki tarihi değiştirdiğimde sayfa 2 deki bilgilerin sayfa 1e göre değiştirmek istiyorum. Yardımcı olursanız çok memnun olurum.

 

[Mahir64]

Merhaba,
sayfa2 K1 hücresine

='1'!K1

yazınız.

 

[sedat2161]

Merhaba,
sayfa2 K1 hücresine yazınız.

Merhaba mahir bey ilginiz için teşekkür ederim. K1 hücresine formülü yazdım. tarihler değişti. Yalnız başka bir sorun oluştu. Ay 30 ve ya Şubat 29 28 çektiğinde 1 nolu sayfa ona göre alttan gizleniyor. 2 nolu sayfa şu an alttan 30 çeken ayda gizlenmiyor. İyi çalışmalar diliyorum.


Sayfa 1
Sayfa 2

 

[Mahir64]

Merhaba,

Herkes için farklı sayfa açacağınıza veri sayfası oluşturun.

 

[Mahir64]

Örneği geliştirebilirsiniz.

 

[sedat2161]

Örneği geliştirebilirsiniz.

Sayın Mahir Bey gerçekten emeğiniz için çok teşekkür ediyorum. Çözüm üretmeye çalışıyorsunuz. Yalnız benim buradaki amacım kişi bazına bilgisini girdiğim şahısların bilgilerinin kayıtlı kalması. Çünkü değişiklik olabiliyor. Örneğin Sedat Çizelgesinin bilgisi ayrı mair çizelgesinin bilgisi ayrı ama tarihler aynı olması gerekiyor.

 

[Mahir64]

Anladım,
Böyle deneyin.

 

[sedat2161]

Anladım,
Böyle deneyin.

Çok teşekkür ederim Mahir ÇÜMEN bey emeğinize sağlık. ALLAH razı olsun. İyi çalışmalar diliyorum.

 

[sedat2161]

Çok teşekkür ederim Mahir ÇÜMEN bey emeğinize sağlık. ALLAH razı olsun. İyi çalışmalar diliyorum.

Çok teşekkür ederim Mahir ÇÜMEN bey emeğinize sağlık. ALLAH razı olsun. İyi çalışmalar diliyorum.

Hayırlı sabahlar arkadaşlar. Sağ olsun Mahir ÇÜMEN hocamız dosyayı çok güzel şekilde düzenledi. Yalnız bir sorunum oluştu. 1. Sayfada tarih değiştirirken tüm sayfalardaki C6:I36 aralığındaki bilgilerin silinmesi gerekiyor. Ben eski dosyalarımda bulduğum bir kodu uyarladım sadece 1. sayfayı silebildim. Ama birden fazla dosyam var hepsini birden nasıl silebilirim. Ekteki dosyamda sadece 3 sayfa var yalnız bu en az 60-70 sayfaya kadar çıkacak. Yardımlarınızı bekliyorum.

 

[YUSUF44]

Silme işlemi için aşağıdaki satırları deneyin:

For i = 1 To Sheets.Count
    Sheets(i).Range("C6:I36").ClearContents
Next

 

[sedat2161]

Silme işlemi için aşağıdaki satırları deneyin:

For i = 1 To Sheets.Count
    Sheets(i).Range("C6:I36").ClearContents
Next

Kodu tarih kodunun altına yazdım bu sorun çıktı.

 

[YUSUF44]

Next nereye kayboldu ?

 

[sedat2161]

Next nereye kayboldu ?

Hocam çok sağ olun emeğinize sağlık hakkınızı helal edin. Acemiliğime verin. Siz hocalarımız olması biz ne yaparız. ALLAH' a emanet olun.