kod, excel 2007 de farklı çalışıyor

[arh+]

selamlar

Private Sub ComboBox1_Click()

Range("A1:z1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Text
Range(Selection, Selection.End(xlDown)).Copy

ActiveSheet.AutoFilterMode = False

Sheets("Sayfa2").Range("a1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Application.CutCopyMode = False

Sheets("Sayfa2").Select

_____________________________-

yukarıdaki kod ile yapmak istediğim sayfa 1 deki verileri combobox1 deki kritere göre süzüp, süzüleni kopyalayıp ve sadece süzüleni sayfa 2 ye yapıştırmak

kod, excel 2002 de istenileni yapıyor
fakat 2007 de sayfa 2 ye sadece süzüleni değil bütün verileri kopyalayıp yapıştırıyor

bu konuda nasıl bir düzenleme yapmak gerekir, yardımlarınızı rica ederim
saygılar

 

[Skorpiyon]

Sayın arh+,

Ben denemedim ama siz aşağıdaki şekilde dener misiniz. Activesheet.autofiltermode = false satırını bir alta çekin.

Private Sub ComboBox1_Click()
Range("A1:z1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Text
Range(Selection, Selection.End(xlDown)).Copy

Sheets("Sayfa2").Range("a1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.AutoFilterMode = False
Application.CutCopyMode = False
Sheets("Sayfa2").Select

 

[arh+]

sayın Şaban Sertkaya

ilginize teşekkürler

daha önce tavsiye ettiğiniz düzenlemeyi yapmıştım ve tekrar yaptım
sorunu düzeltmiyor

excel 2002 makro ile yada manuel sadece süzüleni kopyalayıp yapıştırıyor
excel 2007 ise süzüleni değil süzülmüş olsada tüm listeyi kopyalayıp yapıştırıyor

bu konuda fikri olanlardan tavsiye bekliyorum

saygılar