Witam!
Co do punktu drugiego, może tak:
Sub filter() 'http://www.ozgrid.com/forum/showthread.php?t=39623
Dim SheetCount As Long
For SheetCount = 1 To Worksheets.Count
Dim Sh As Worksheet
Worksheets(SheetCount).Activate
With ActiveSheet
ActiveWorkbook.Worksheets("K_A").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("K_A").Sort.SortFields.Add Key:=Range( _
"G3:G200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("K_A").Sort
.SetRange Range("A3:G200")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Next SheetCount
End Sub
Nie mam w tej chwili dostępu do excela, więc nie mogę tego wypróbować czy działa, ale powinno...
Kod operuje na aktywnych (zaznaczonych) arkuszach.
W razie potrzeby, w poniższej linijce zmień na coś takiego:
1 To 8 Worksheets.Count
Cytat:
makro działało automatycznie po zmianie wartości w kolumnie G ( wartość liczbowa z funkcji MAX (Exx:Fxx) )
jak dla mnie abstrakcja, ale może ktoś inny pomoże
Z pozdrowieniami |
wstecz 1 dalej
otwarty rozpoczął: pawik
postów: 2
