Maaş Kontrolu İcmali

[Kemter]

Merhabalar sevgili arkadaşlar;

Her ay 10.700 üzerindeki kayıtları filtre satır ekle sayfa sayfa düzenle çok zamanımı alıyor bunun için
Ekteki dosyada bulunan İcmal sayfasına vba kodu oluşturmak, (birkaç tanesine örnek verirseniz) inşallah gerisini çoğaltırım yada icmal sayfası için başka önerileriniz varsa oda olur.
Dosyada İcmal sayfasında gerekli örnekleri kırmızı ile göstermeye çalıştım,

AÇIKLAMASI
Ek Gösterge, Tazminat, Ek.Tz ve Özel H.T sayfalarında bulunan
FARK sütununda bulunan değeri 0 (sıfır)'dan büyük ise veya -1, -10 vb. değerler varsa
bunları İCMAL sayfasındaki Birimlere göre aşağıya satır ekleyerek, Ek Gösterge, Tazminat, Ek.Tz ve Özel H.T Sütunlara yazdırmak istiyorum,
NOT: SIFIR (0) OLANLARI YAZILAMAYACAK.
Şimdiden emeği geçenlerden RABBİM razı olsun.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Kemter]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Merhabalar Sayın muygun bey iş yoğunluğundan ancak bakabildim.
Eki denedim emeğinize, bilginize ve yüreğinize sağlık çok güzel olmuş, Allah (C.C) senden razı olsun.
Sizden bir istirhamım olabilir mi? Dosyadaki İcmal ve analiz sayfasında bulunan Ad Soyad(B sütunu), SicilNo(C sütunun) sonra K. Unvanı, Tahsil gibi sütunlara ilaveler yapmam gerekirse Makroda hangi satırları güncellemem gerektiğini bunları renklendirebilir misiniz? Makro yazmayı bilmiyorum fakat örnek üzerindeki bilgilerle güncelleme yapmaya çalışıyorum.
İyi çalışmalar.

 

[muygun]

Merhaba;
Yeni ekte
sayfa isimlendirmeleri;

Set s1 = ThisWorkbook.Worksheets("analiz")
ile s1=analiz

Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
ile s2 sayfaları döngü sonucu analiz sayfası a sütunundaki sayfa adları

Set s3 = ThisWorkbook.Worksheets("İcmal")
ile s3=icmal
olarak tanımlandı.

artık
s1.Cells(sonsatir, 2) = s2.Cells(z, "f")
klod satırı ile
s1 sayfası satırno,sütunno 'ya s2 sayfası z değişkeninine ait satırnosu,"f" sütunu verisini yazar.

anlaşılacağı üzere = işaretinden önceki alan yazılan yer, = işaretinden sonraki alan ise alınan yer

Umarım anlaşılır olmuştur.
İyi çalışmalar.

 

[Kemter]

Merhaba;
Yeni ekte
sayfa isimlendirmeleri;

Set s1 = ThisWorkbook.Worksheets("analiz")
ile s1=analiz

Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
ile s2 sayfaları döngü sonucu analiz sayfası a sütunundaki sayfa adları

Set s3 = ThisWorkbook.Worksheets("İcmal")
ile s3=icmal
olarak tanımlandı.

artık
s1.Cells(sonsatir, 2) = s2.Cells(z, "f")
klod satırı ile
s1 sayfası satırno,sütunno 'ya s2 sayfası z değişkeninine ait satırnosu,"f" sütunu verisini yazar.

anlaşılacağı üzere = işaretinden önceki alan yazılan yer, = işaretinden sonraki alan ise alınan yer

Umarım anlaşılır olmuştur.
İyi çalışmalar.

Merhabalar; siz anlaşılır olarak anlatmışsınızdır. Ben anladığım kadarıyla sütun ekleyip, makroda bazı yerleri değiştirdim. Belli yerler geldi.
Fakat makro bilgim olmadığı için eksik oldu. Mümkünse yeni ek'e ve makroya bakabilir misiniz.
iyi çalışmalar.

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[Kemter]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

Merhaba;
Evet denedim çalışıyor ve makroyuda anladım.
İlgini ve alakanıza, emeğinize, bilginize ve yüreğinize sağlık çok güzel olmuş,
Rabbim sana ve sevdilerine saadet-i daryen nasip etsin. Amin
İyi çalışmalar.

 

[Kemter]

Merhaba;
Evet denedim çalışıyor ve makroyuda anladım.
İlgini ve alakanıza, emeğinize, bilginize ve yüreğinize sağlık çok güzel olmuş,
Rabbim sana ve sevdilerine saadet-i daryen nasip etsin. Amin
İyi çalışmalar.

Merhaba, sayın muygun bey makroda bir kaç sütun eklemesi yaptım, fakat bazı sütunları getirmeyi yapamadım, o sütunlarıda SARI renkle boyadım. Mümkünse müsait bir vaktiniz inceleye bilirmisiniz?
İyi çalışmalar.

 

[muygun]

Merhaba;
Tablodaki kodlara bakarak ne yaptığımı hatırlamam yarım saat sürdü.
Anlıyacağınız kodlarda istediğiniz zaman araya sütun ekleme, başlık değiştirme sorun olur.
Bu nedenle kodları;
analiz sayfasında B : M sütun başlıkları ne ise ilgili veriler gelecek şekilde revize ettim.
Umarım doğru anlamışımdır.
Eki deneyin.
İyi çalışmalar.

 

[Kemter]

Merhaba;
Tablodaki kodlara bakarak ne yaptığımı hatırlamam yarım saat sürdü.
Anlıyacağınız kodlarda istediğiniz zaman araya sütun ekleme, başlık değiştirme sorun olur.
Bu nedenle kodları;
analiz sayfasında B : M sütun başlıkları ne ise ilgili veriler gelecek şekilde revize ettim.
Umarım doğru anlamışımdır.
Eki deneyin.
İyi çalışmalar.

Merhaba;
Emeğinize sağlık, siz güzel olanı yapmışsınız fakat ben kodları bilmediğim için anlatamamış olabilirim,
gelmesini isteğim yerleri manuel olarak analiz ve icmal sayfasına kırmızı renkli olarak gösterdim.
Benim uğraşım Ek Gösterge, Tazminat, Ek.Tz ve Özel H.T sayfalarında bulunan KONTROL yazan sütunlar olan (Q,S,Q,Q) sütunundaki Değerler analiz ve icmal sayfadaki (h ve K) sütunundaki başlıklara aktarsın. İnşallah anlatabilmişimdir.
iyi çalışmalar.

 

[Kemter]

Merhaba;
Tablodaki kodlara bakarak ne yaptığımı hatırlamam yarım saat sürdü.
Anlıyacağınız kodlarda istediğiniz zaman araya sütun ekleme, başlık değiştirme sorun olur.
Bu nedenle kodları;
analiz sayfasında B : M sütun başlıkları ne ise ilgili veriler gelecek şekilde revize ettim.
Umarım doğru anlamışımdır.
Eki deneyin.
İyi çalışmalar.

Birde mesaj 8'deki ekte bulunan dosyaya göre tanzim edilmesini rica edebilir miyim.?