Bu Süz Nasıl Çalışacak

[meduman]

Sub tahdüzenle()
Range("F8").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(INDEX(LİST!R2C3:R32C12,MATCH(TAH1!RC2,LİST!R2C3:R[24]C3,),MATCH(TAH1!R7C,LİST!R2C3:R2C11,))),"""",INDEX(LİST!R2C3:R32C12,MATCH(TAH1!RC2,LİST!R2C3:R[24]C3,),MATCH(TAH1!R7C,LİST!R2C3:R2C11,)))"
Range("F8:AJ8").Select
Selection.AutoFill Destination:=Range("F8:AJ37"), Type:=xlFillDefault
Range("F8:AJ37").Select
Range("A4:B7").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<>"
End Sub

Yukarıdaki kodlarla bir sayfada formülü kopyalayıp boş hücreleri filtreliyorum. Sayfa korumasız iken bir problem yok. Ancak sayfaya koruma koyduğum zaman 1004 nolu hatayı veriyor. Yardımlarınız için şimdiden teşekkürler

 

[Recep İpek]

A&#351;a&#287;&#305;daki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=26303

 

[meduman]

Sayın ripek uyarlamaya çalıştım ama sanırım beceremedim. Olmuyor

 

[Recep İpek]

Sub tahdüzenle()
[color=red]ActiveSheet.Unprotect "123"[/color]
Range("F8").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(INDEX(LİST!R2C3:R32C12,MATCH(TAH1!RC2 ,LİST!R2C3:R[24]C3,),MATCH(TAH1!R7C,LİST!R2C3:R2C11,))),"""",INDEX (LİST!R2C3:R32C12,MATCH(TAH1!RC2,LİST!R2C3:R[24]C3,),MATCH(TAH1!R7C,LİST!R2C3:R2C11,)))"
Range("F8:AJ8").Select
Selection.AutoFill Destination:=Range("F8:AJ37"), Type:=xlFillDefault
Range("F8:AJ37").Select
Range("A4:B7").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<>"
[color=red]ActiveSheet.Protect "123"[/color]
End Sub

olarak deneyin.

 

[meduman]

Sayın ripek yine olmadı. İlginize çok teşekkürler. Sanırım formül kopyalama ve süzme işini ayrı ayrı yaptırsam daha iyi olacak.