liste yapımı

[sahika51]

İyi günler saygıdeğer arkadaşlar. Örneğimde Aylık rutin hazırladığım bir gelir tablosu var. bu tabloya a hücresine veri girdikçe alta bir satır açılıyor. Ancak her 30 kişi dolduğunda sayfada satır açılması yerine örneğimdeki yeşil alanların aynısının bir satır atlayarak oluşması ve toplanması gereken yerlerin toplanması gerekiyor.
1. sayfada 1-30. kişi
2. sayfada 31-60. kişi
3. sayfada 61-90. kişi
....
şimdiden teşekkür ederim

 

[tamer42]

İyi günler saygıdeğer arkadaşlar. Örneğimde Aylık rutin hazırladığım bir gelir tablosu var. bu tabloya a hücresine veri girdikçe alta bir satır açılıyor. Ancak her 30 kişi dolduğunda sayfada satır açılması yerine örneğimdeki yeşil alanların aynısının bir satır atlayarak oluşması ve toplanması gereken yerlerin toplanması gerekiyor.
1. sayfada 1-30. kişi
2. sayfada 31-60. kişi
3. sayfada 61-90. kişi
....
şimdiden teşekkür ederim

Ekli dosyayı inceler misiniz, bu şekilde bir çözüm mü istiyordunuz?

 

[sahika51]

tamer bey ilginiz için teşekkürler. Aslında mantık bu şekilde ancak biz bunu sayfa 1 de yapmamız lazım. yani yazıcı çıktısı gibi düşünün ikinci sayfamız Sayfa1 A38 den başlayacak. diğeride a a75 den ...Çünkü Sayfa1' i Eylül ayı için olacak diğeri Ekim, Kasım olacak.

 

[tamer42]

tamer bey ilginiz için teşekkürler. Aslında mantık bu şekilde ancak biz bunu sayfa 1 de yapmamız lazım. yani yazıcı çıktısı gibi düşünün ikinci sayfamız Sayfa1 A38 den başlayacak. diğeride a a75 den ...Çünkü Sayfa1' i Eylül ayı için olacak diğeri Ekim, Kasım olacak.

Tam anlayamadım;
Burada istemiş olduğunuzu örnek dosya üzerinde anlatabilir misiniz

 

[sahika51]

bunu manuel yaptım. bunu kodla yapmak istiyorum

 

[tamer42]

bunu manuel yaptım. bunu kodla yapmak istiyorum

Aynı sayfa içinde;

Worksheet_Change

kodu ile devam ederken yeni veriler eklendiği zaman her aşamada kod çalışmaya devam edecektir. bu kodun çalışmasını engellemek için aklıma gelen Target.Row ile kriterler belirmek gerekecektir. Bu konuda diğer Üstatlar daha iyi yardımcı olacaktır.

If (Target.Row >= 38 And Target.Row <= 42) Then
Exit Sub
End If

 

[sahika51]

Aynı sayfa içinde;

Worksheet_Change

kodu ile devam ederken yeni veriler eklendiği zaman her aşamada kod çalışmaya devam edecektir. bu kodun çalışmasını engellemek için aklıma gelen Target.Row ile kriterler belirmek gerekecektir. Bu konuda diğer Üstatlar daha iyi yardımcı olacaktır.

If (Target.Row >= 38 And Target.Row <= 42) Then
Exit Sub
End If

İlgilendiğiniz için teşekkürler. İnşallah yapılabilir. En azından farklı çalışmalar için örnek olur.