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

• #33351 Lasersailing senior tag

  Új Válasz 2016-12-02 12:29:53 #33351

  Ú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

  

  Lasersailing

  senior tag

  Sziasztok,

  Makróban kérnék egy kis segítséget:
  Makró segítségével kijelőltem a nyolc legnagyobb cellát egy tartományon belül (conditional formattinggal). Ezt követően szeretném azokat a cellákat átmásolni egy másik táblázatba, amelyek a 8 legnagyobb cella feltétel miatt zöldre vannak szinezve. Hogyan lehet ezt megtenni?

  Az alábbi sorok választják ki 8 legnagyobb cellát:

  With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 8
.Percent = False
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

  "Step into - F8" alapján az alábbi sor emeli ki ténylegesen:

  .ThemeColor = xlThemeColorAccent3

  De nem tudom ezt if feltétellel kiszedni (az alábbi nem segít):

  If ActiveSheet.Cells(sm, 44).FormatConditions(1).Interior.ThemeColor = xlThemeColorAccent3 Then

  Meg ez sem:
  If ActiveSheet.Cells(sm, 44).FormatConditions(1).Interior.TintAndShade = 0.399945066682943 Then

  Ez utóbbi logikusabbank tűnt volna, ott soha sem lép be az if-be, az elsőnél meg mindig...

  Van valakinek esetleg ötlete?

  köszi előre is!

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