Új hozzászólás Aktív témák

  • Pakliman

    tag

    válasz p5quser #36959 üzenetére

    Szia!
    Nem próbáltam ki, mert dokinál vagyok, de mennie kellene:

    Sub CommandButton2_Click()
    'Kijelölés
    Dim ws as worksheet
    Dim act as worksheet

    Set act=activesheet


    For each ws in worksheets
    If not ws is act then
    Ws.activate
    Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
    Operator:=xlAnd
    Ws.AutoFilter.Range.Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Ws.ShowAllData

    Ws.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:="<-1", _
    Operator:=xlAnd
    Ws.AutoFilter.Range.Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
    End With
    Ws.ShowAllData

    Ws.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
    Operator:=xlOr, Criteria2:="<-1"
    Endif
    Next ws
    End Sub

    (Baromi nehéz telefonon írni :DD )

Új hozzászólás Aktív témák