Filtrelenmiş veriyi farklı bir sayfaya kopyalama

Verileri D sütununda ölçütlere göre filtrelemeye çalışıyorum ve filtre verilerini C sütununda farklı bir sayfaya kopyalayın. Bu kod, veri sayfamdayken bu kodu çalıştırdığımda çalışır ancak çalışmaz ve bana çalışma zamanı hatası verir '1004' Aralık sınıfının seçim yöntemi başarısız oldu, kodun ilk satırını vurguladı. Bu kodu herhangi bir çalışma sayfasında çalıştırabilmem için herhangi biri bana yardımcı olabilir mi?Filtrelenmiş veriyi farklı bir sayfaya kopyalama

Sheets("Data").Range("D1").Select 
ActiveSheet.Range("$A:$AI").AutoFilter Field:=4, Criteria1:= _ 
    "Production" 
Range(ActiveSheet.Range("C2"), ActiveSheet.Range("C2").End(xlDown)).Select 
Selection.Copy 
Sheets("Excluding List").Select 
Range("B3").Select 
Selection.PasteSpecial xlPasteValues 
Sheets("Data").Select 
Selection.AutoFilter 
Sheets("Data").Range("A1").Select 
ActiveSheet.EnableCalculation = False 
ActiveSheet.EnableCalculation = True

kaynak

2016-03-29 BLkrn

Sheets ("Veriler"). Range ("D1"). Değişiyor mu senin kod üstündeki Data.Activate ekleyin. Seç herhangi bir fark yaratmak? – Slubee

Hayır öyle değil. I ActiveWorkbook.SlicerCaches olarak her SLCR için sahip slcr.ClearManualFilter Sonraki SLCR Seçilen ActiveWorkbook.SlicerCaches ("Slicer_Excluding") .SlicerItems ("Y"). (= "K"). Seçilen Yanlış .SlicerItems ile = Doğru End Bu hataya sebep olabilir mi? Bu kodun – BLkrn

kodundan hemen önce bu satırı kaldırdım ve hala kontrol ettim ama hala iyi değil – BLkrn

Sheets ("Veriler") için seçin

kaynak

2016-03-29 18:57:54 aFast

Artık çalışıyor, çok teşekkürler. Neden buna ihtiyacın olduğunu sorabilir miyim? – BLkrn

Bilmiyorum :) sadece çalışır – aFast

Filtrelenmiş veriyi farklı bir sayfaya kopyalama

cevap

İlgili konular