üretim dosyası için yardım

[STILGAR]

arkadaşlar lütfen yardım edin:yardim:

 

[Recep İpek]

Gerçi siz yapmışsınız ama günlük rapor sayfasına verilerinizi tarihe göre aktarmak için aşağıdaki kodları kullanabilirsiniz.

Sub Aktar()
On Error Resume Next
Application.ScreenUpdating = False
Set S1 = Sheets("ÜretimVeri")
Set S2 = Sheets("günlük rapor")

Set alan1 = S1.Range("B5:AB2500")
Set alan2 = S2.Range("B2:B3")
Set alan3 = S2.Range("B4:AB2500")

alan3.ClearContents
  
alan1.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=alan2, CopyToRange:=alan3, Unique:=False
Application.ScreenUpdating = True
End Sub

 

[STILGAR]

sayın ripek,:hey:
verdiğiniz kodlar için teşekkür ederim, emeğinize sağlık.
ama benim sorunum son sayfa ile yani rapor çıktısı hakkında, günlük raporu filtreleyip kopyala yapıştır kullanarak değerleri atayabilirim.
ilk 3 sayfa ile sorunum yok gayet düzgün çalışıyor ama son sayfa (rapor çıktısında verileri alacağı alan günlük rapor verilerin aktarılacağı yer rapor çıktısı (makina,op.,ölçüler ...vs. tüm değerleri otomatik olarak kendi yerlerine aktarmayı düşündüm :???: ama yapamadım.

bu konuda yardımcı olabilecek biri varmı? :yardim:

 

[STILGAR]

arkadaşlar yokmu yardım edebilecek

işin içinden çıkamayan tek ben değilim galiba :mrgreen: