Her bir şey Bugün Cevapla
Ara
Kategoriler
duyuru (1)
soru (49)
müzik (0)
film/dizi (0)
teknik (6)
medikal (0)
sözlük (0)
yabancı dil (0)
yer/yön (1)
alınık/satılık (1)
gönül işleri (2)
hayvan (0)
kayıp (0)
kan aranıyor (0)
ev/kalacak yer (0)
Son Cevaplananlar
[]

makro sevenler-bütün sheetlerde çalışan makro

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 tire ile 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

 
support.microsoft.com

işe yarar umarım

ya da bu
support.microsoft.com
  • kisa  (13.11.14 08:23:36 ~ 08:24:10) 
şöyle olabilir belki:

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

ThisWorkbook.Sheets(I).Select

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

Next I

End Sub
  • lemmiwinks  (13.11.14 08:38:38) 
1
istatistikler
yardım / hakkında
buraya yazılanların hakları Sir Anthony Hopkins'e aittir.
yazan eden compumaster, ilgilenen eden fader
modere edenler angelus, Artibir, aychovsky, baba jo, basond, compumaster, deckard, duyulmasi gerektigi kadar, fader, fraise, groove salad, kahvegibi, kaymaktutmayansicaksut, kibritsuyu, monstro, pandispanya, robin, ron dennis
bu sitede yazılanların hiçbiri doğru değildir. site içeriği küçükler için sakıncalı olabilir. yazılardan yazarları sorumludur. kaynak göstermeden alıntılanamaz. devlet tarafından atanmış bir kurumun internet üzerinde kimin hangi bilgiye ulaşıp ulaşamayacağına karar vermesi insan haklarına aykırıdır. web siteleri kullanıcıların istekleri doğrultusunda bağlandıkları yerlerdir. kullanıcılar isterlerse bir web sitesine bağlanmayabilirler. bu güçleri ve imkanları mevcuttur. bir kullanıcı bir siteye bağlanmak istiyorsa bu onun tercihi ve hakkıdır. bağlanmak istemiyorsa bu yine onun tercihi ve hakkıdır. halkın kendisine hizmet etmesi için görevlendirdiği kurumlar hadlerini aşıp halka neye ulaşıp ulaşmayacağını bilmeyen cahil cühela muamelesi edemezler. ebeveynlerin çocuklarını sakıncalı içeriklerden koruması için çok sayıda bedava ve ücretli yazılım mevcuttur. bu yazılımlar bir web tarayıcısını kullanmaktan daha karmaşık teknik bilgi gerektirmemektedir. devletin milletini küçük düşürmesi ve ebleh yerine koyması yasaktır. Skimlinks ile linkler üzerinden yönlendirme payı alınmaktadır.