Puantaj kayıtlarının sayfalara aktarılması

[kelkitli]

Değerli Dostlar Selamlar,
Ekli dosyada bir mesaili puantaj hazırlamaya çalışıyorum. Puantaj isimli sayfadan diğer sayfalara veri aktarmam gerekiyor. Şu şekilde:
Puantaj isimli sayfadan 81-208 Sicil Nolu kişinin( bu satırdaki sicil no'lar 60. kişiye kadar döngü) 01.01.2008 tarihindeki (ayın sonuna kadar döngü)çalışma değeri (kesişim noktasındaki sarı hücre) eğer üst satırda ise çalışma sayfasındaki aynı kişiye ait aynı tarihli yere (kesişen sarı renkli hücreye)
alt satırda ise mesai isimli sayfada kişiye ait yere aktarılması gerekiyor.

 

[kelkitli]

Değerli Dostlar sanırım konuyu biraz girift, biraz karmaşık hale getirdim. Puantaj sayfasından çalışma sayfasına aktarılacak veri kişiye ait aynı tarihli veri çalışma isimli sayfada da kişiye ait aynı tarihte kayıtlı olacak.

 

[kelkitli]

Değerli Dostlar Selamlar,
Konuyu açiklığa kavuşturmak istiyorum.
Puantaj isimli sayfada E1 hücresiyle, C2 hücresinin kesşimi bulunup (yani E2 hücresi) satır olarak 45 hücre kopyalanacak,
Çalışma isimli sayfada E1 deki tarihle C2 deki Sicil No nun kesişim noktası bulunup 45 hücre Sütuna yapıştırılacak. Bu işlem tüm kişiler için döngü olacak.
Ben bu kesişimle ilgili bir örnek dosya ekliyorum. Bu koddan yola çıkarak 1. mesajdaki dosya daha rahat uygulanabilir diye düşündüm. Kodları şöyle:

Sub aKTAR()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")

On Error GoTo hata_gun
sut = s2.Rows("1:1").Find(What:=s1.[b2], LookAt:=xlWhole).Column

On Error GoTo hata_sira
sat = s2.Columns("A:A").Find(What:=s1.[b3], LookAt:=xlWhole).Row

s2.Cells(sat, sut) = s1.[b4]
MsgBox "Aktarım Tamamlandı..."
Exit Sub
hata_sira:
MsgBox s1.[b3] & " Yaka No Bulunamadı..."

Exit Sub
hata_gun:
MsgBox s1.[b2] & " Tarihi Bulunamadı..."

End Sub

 

[Skorpiyon]

Sayın kelkitli,

Puantaj sayfasındaki bilgileri Çalışma sayfasına mı aktarmak istiyorsunuz.

 

[kelkitli]

Selamlar Sayın Sertkaya,
Doğrudur, Puantaj sayfasındaki bilgileri Çalışma sayfasına aktarmaya çalışıyorum.

 

[Skorpiyon]

Sayın kelkitli,

Puantaj sayfanızda birleştirilmiş hücreler kullanmanızdan dolayı (çok uğraşmama rağmen) bir türlü istediğiniz kodu yazamadım.

Sayfada sicil nolar için 2 satır (birleştirilmiş) kullanmışsınız. Bu da sürekli hataya neden oluyor.

Dosyanız üzerinde küçük bir değişiklik ile (birleştirilmiş hücreleri kaldırarak) aşağıdaki gibi bir örnek gönderiyorum. Elimden gelen ancak bu. Bilmiyorum işinizi görür mü ?

 

[kelkitli]

Sayın Sertkaya cevabınızdan dolayı çok teşekkür ederim. Puantaj sayfasındaki bir kişiye ait 2 satır oluşu şundan dolayı: İlk satır günlük çalışmalarım olduğu kısım, çalışma sayfasına aktarılacak. İkinci satır ise fazla çalışmaların olduğu kısım, mesai satırına aktarılacak. Birleştirilmiş hücreler bozulark sonuca gidilmesi kaçınılmazmıdır. Yada dizaynı bozmadanda yapılabilirmi. Eğer illa son şekil bu olacaksa da canımız sağolsun. Ama yapabilinirse daha hoş olur. Sağol Varol.

 

[kelkitli]

Sayın Sertkaya,
Böyle tamamdır. Sağolun, Varolun. Kalanını ben yapabileceğimi sanıyorum.

 

[kelkitli]

Değerli Dostlar Selamlar,
Sayın Sertkaya, bir problem var. Puantaj isimli sayfadaki tarihleri farklı bir ay olarak düzenleyince (mesela 3. ay) aktarmada hata oluşuyor. Mümkünse siz veya ustalarımız ilgilenebilirmisiniz.

 

[Skorpiyon]

Dosyanızı hata oluşan şekliyle ekler misiniz. Üzerinde bakalım.

 

[kelkitli]

Selamlar.
Dosya ektedir Sayın Sertkaya.

 

[Skorpiyon]

Sayın kelkitli,

Hiçbir makroda bu kadar zorlandığımı hatırlamıyorum.

Zira senelik izin bitti, yarın sabah iş güç var. Pazartesi sendromu gibi, izin dönüş sendromu yaşarken kodlar ile uğraşmak beni gerçekten çok yordu.

Dilerim bu sefer olmuştur. Zira tekrar uğraşabileceğim zaman en erken 1 hafta olur sanırım

 

[kelkitli]

Sayın Sertkaya Selamlar,
Teşekkür ederim, işlem tamam, bilginize emeğinize sağlık.