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

• #36959 p5quser tag Delila_1 #36956

  Új Válasz 2018-01-13 09:25:06 #36959

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  p5quser

  tag

  válasz Delila_1 #36956 üzenetére

  Szia!
  Először is köszönöm.
  Nem igazán tudom beszúrni, vagy nem ilyen formában kellene utasítani, vagy passz...
  Az első munkalapon lévő gombhoz van rendelve ez a makró. Lefut, de csak azon a munkalapon, amelyiken futtatom a "debug" ablakból. Valamint az első munkalapon elszáll hibával, mert nem úgy néz ki mint a többi.

  Sub CommandButton2_Click()
'Kijelölés
ActiveSheet.Range("$A$1:$N$330").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.ShowAllData

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

ActiveSheet.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"

End Sub

  Ennek a makrónak kéne lefutnia az összes munkalapon (kivéve az elsőt) a munkafüzetben, ha klikkelnek a gombra.

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