Sadece verileri süzmek istiyorum.

[kmlpyrz]

Aşağıdaki kodda, süzülen hücreler, biçimleri ile birlikte yapıştırılıyor. Ben sadece değer olarak yapıştırılmasını istiyorum. Bu kodda nasıl düzeltme yapmalıyım. Teşekkürederim.

Range("C3:C20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J2"), Unique:=True

 

[Korhan Ayhan]

Selamlar,

Sanırım gelişmiş filitre seçeneğinde böyle bir özellik yok. Kodu aşağıdaki şekilde değiştirip kullanabilirsiniz.

Sub SÜZ_DEĞERLERİ_YAPIŞTIR()
    Range("C3:C20").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("C3", [C3].End(xlDown)).Copy
    Range("J2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    Range("C3").Select
End Sub

 

[kmlpyrz]

Sayın hocam öncellikle ilginizden dolayı teşekkürederim. Yukarıdaki kodu

Private Sub Worksheet_activate()
Range("AA56:AA127").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("AA56", [AA56].End(xlDown)).Copy
Range("FT55").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'ActiveSheet.ShowAllData
Range("GG1").Select
End Sub

şeklinde düzenleyip, sayfama ekledim. Ancak, "Worksheet sınıfının ShowAllData yöntemi başarısız" diye bir uyarı verdi. Bende ActiveSheet.ShowAllData satırını inaktif ettim. Böylece uyarıyı engelledim. Bu seferde süzme işlemini hatalı yaptı. (Aynı değerleri altalta yazdı).
Not: Süzme işlemini yaptığım aralıkta boş hücrelerde var.