Eğer formülünde sorun

[ordulu82]

arkadaşlar ekte belirttiğim gibi Eğer formülünde sorun yaşıyorum. yardımcı olursanız çok sevinirmim.

 

[Trilenium]

Sheets("veri").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="<>"
Range("B5:G21").Select
Selection.Copy
Sheets("çıkış").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("veri").Select
Application.CutCopyMode = False
Selection.AutoFilter

 

[ordulu82]

Sheets("veri").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="<>"
Range("B5:G21").Select
Selection.Copy
Sheets("çıkış").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("veri").Select
Application.CutCopyMode = False
Selection.AutoFilter

Üstad bu kodu nasıl kullanıcaz. nereye eklememiz gerekiyor

 

[ordulu82]

arkadaşlar bu işlemi nasıl bir formülle yapabilirz.