tekstil üretim performans değerlendirme

[alix19]

merhaba dosya boyutu büyük olduğundan dolayı https://s4.dosya.tc/server8/gegch6/2._B ... .xlsm.html bu dosya depolama sitesinde mevcut sizlerden ricam bu dosya içerisinde operatör operasyon sayfasında bulunan (formülle getirilmiş) verileri makro ile sayfa 4 de bulunan gri yere veriyi boş hücreleri almadan sadece değerleri aktarmak makro ile yapmaya çalıştım lakin makro boyutu uzun olduğu için hata verdi bunu nasıl yapabileceğim konusunda bilgisi tecrübesi olan arkadaşlardan yardım etmeleri istiyorum şimdiden teşekkür ederim

 

[Muzaffer Ali]

Merhaba.

İndirme linki hata veriyor.

 

[alix19]

2._BANT_KASIM_AY_RAPORU.xlsm dosyasını indir - download

2._BANT_KASIM_AY_RAPORU.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[alix19]

https://s4.dosya.tc/server8/gegch6/2._BANT_KASIM_AY_RAPORU.xlsm.html şuanda açaması gerek

 

[alix19]

2._BANT_KASIM_AY_RAPORU.xlsm dosyasını indir - download

2._BANT_KASIM_AY_RAPORU.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[alix19]

ActiveSheet.Range("$A$1:$FF$34686").AutoFilter Field:=2, Criteria1:=Array( _
"1900", "2000", "2030", "2200", "2400", "2500"), Operator:=xlFilterValues
Range("A2:B3758").Select
Selection.Copy
Sheets("Sayfa4").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("OPERATÖR-OPERASYON LİSTESİ").Select
ActiveSheet.Range("$A$1:$FF$34686").AutoFilter Field:=2
ActiveSheet.Range("$A$1:$FF$34686").AutoFilter Field:=4, Criteria1:=Array( _
"10", "2280", "2400", "2410", "2430", "2450", "2500", "400"), Operator:= _
xlFilterValues
Range("C63762").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa4").Select
Range("C2").Select
ActiveSheet.Paste
Range("H10").Select
End Sub

KOPYALAMAK İÇİN BU ŞEKİLDE MAKRO OLUŞTURUYORUM (FİLTRELEME YAPARAK ) FAKAT DEĞERLER DEĞİŞKEN OLDUĞU İÇİN AYSONU RAPORU TEKRAR OLUŞTURDUĞUMDA SADECE O DEĞERLER VARSA ALIYOR BENİM YAPMAK İSTEDİĞİM O AN HANGİ DEĞER VARSA O DEĞERLERİ OPERATÖR OPERASYON LİSTESİNDEN ALIP İSTENİLEN YERE YAPIŞTIRMASI