Personel takip Çizelgesi,

[kucukdunyam]

Merhabalar, Ekli dosyada yer alan, veri sayfasındaki bilgileri kriterlerine göre diğer sayfalara işlemesini istiyorum, yardımcı olursanız çok sevinirim.

http://dosya.la/download/a130b5be1c6c9f21a1cada6c0ccc1103.html

 

[rabbace]

Usta ekli dosya yok

 

[kucukdunyam]

Dosya linkini ekledim,

 

[alicimri]

Sayın kucukdunyam
Veri Sayfasında boş C sütununu silin. Kodlar aşağıda.
Örnek Dosya Link
http://s5.dosya.tc/server/sqz8oq/Deneme.zip.html

Sub Aktar()
Application.ScreenUpdating = False
For X = 1 To Sheets.Count
If Sheets(X).Name <> "Veri" Then
Sheets(X).Columns("a:ci").EntireColumn.Hidden = False
Sheets(X).Columns("C:CH").ClearContents
End If
Next
bas = Application.Min(Sheets("Veri").Columns(3))
son = Application.Max(Sheets("Veri").Columns(3))
Baslik = 3
For e = bas To son
If Application.CountIf(Sheets("Veri").Columns(3), e) > 0 Then
Sheets("Mem").Cells(1, Baslik).Value = e
Sheets("Mf").Cells(1, Baslik).Value = e
Sheets("Yrd").Cells(1, Baslik).Value = e
Baslik = Baslik + 4
End If
Next
For q = 1 To Sheets.Count
If Sheets(q).Name <> "Veri" Then
For i = 2 To Sheets(Sheets(q).Name).Range("B65536").End(3).Row
Baslik = 3
For e = bas To son
Sheets("Veri").Range("B1").AutoFilter
Sheets("Veri").Range("B1").AutoFilter Field:=1, Criteria1:=Sheets(Sheets(q).Name).Range("B" & i)
Sheets("Veri").Range("c1").AutoFilter Field:=2, Criteria1:=CDate(e)
If Application.Subtotal(105, Sheets("Veri").Columns(4)) <> 0 Then
Sheets(Sheets(q).Name).Cells(i, Baslik).Value = Application.Subtotal(105, Sheets("Veri").Columns(4))
Sheets(Sheets(q).Name).Cells(i, Baslik + 1).Value = Application.Subtotal(104, Sheets("Veri").Columns(4))
End If
Baslik = Baslik + 4
Next
Next
End If
Next
Sheets("Veri").Range("B1").AutoFilter
For X = 1 To Sheets.Count
If Sheets(X).Name <> "Veri" Then
For f = Sheets(X).Columns("C").Column To Sheets(X).Columns("CH").Column
If Application.Subtotal(103, Sheets(X).Columns(f)) = 0 Then
Sheets(X).Columns(f).EntireColumn.Hidden = True
End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub

 

[alicimri]

Kusura bakmayın kodlarda bir yanlışlık vardı, Arada gelmediği gün varsa o günü atlamıyordu. #4 mesajdaki kodları ve linkteki dosyayı değiştirdim.

 

[kucukdunyam]

Ali Cimri Bey, Çok teşekkür ederim, Çok işime yaradı.

 

[kucukdunyam]

Ali Bey; bir de bu Mem, Mf, Yrd sayfalarına getirdiğimiz verilerin, boş sütunlarını gizleyebilir miyiz? dört sütunlu olarak dizayn ettim, ama dördü her zaman dolu olmuyor, boş olan hiçbir veri olmayan satırları gizlettirsek?

 

[alicimri]

#4 Mesajdaki kodlara isteğinizi ekledim.
Not:
1 C CH arası sütunlarının boyutu 5 yapın tarih görünmüyor.
2 Veri sayfasında olmayan tarihleri de saklıyor