Loop Makrosu

[rommelthefox]

Merhaba arkadaşlar,

bir workbookta sheet1,sheet1(2),sheet1(3)olarak giden sheetlerim var.

aşağıdaki makronun bütün sheetlerde çalışmasını istiyorum ama bold ve altını çizerek belirttiğim kısımlarda hata veriyor. (diğer kısımlara henüz bakamadım zaten )

Sub ALSAT()



Dim WS_Count As Integer
Dim I As Integer

Dim N As Long

N = ActiveSheet.Rows.Count

WS_Count = ActiveWorkbook.Worksheets.Count

For I = 1 To WS_Count


With Sheets("1" & I)



Range("E1").Select
ActiveSheet.Range("A:E").AutoFilter Field:=5, Criteria1:="GRM"

Range("C1").Select
ActiveSheet.AutoFilter.Sort.SortFields.Clear

ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _
("C1:C&N"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal


Range("F2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-5]=""A"",""AL"",""SAT"")"
Range("F2").Select
Selection.Copy
Range("F&N").Select
ActiveSheet.Paste
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Selection.FillDown

End With

Next I

End Sub

 

[Zeki Gürsoy]

Kaynak ve hedef sayfalar pek anlaşılmıyor. Örnek bir dosya üzerinde açıklarsanız daha anlaşılır olacak.

 

[rommelthefox]

http://dosya.co/hd8f5gm3az92/loop_makrosu.xlsm.html

dosya linktedir.

Teşekkürler