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

• #11421 m.zmrzlina senior tag lomajpure #11419

  Új Válasz 2011-09-21 09:21:00 #11421

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11419 üzenetére

  Bocs ez nem az eredet színt adja vissza hanem a "Nincs kitöltést". Az eredeti szín már nem lesz ennyire egyszerű.

  Valahol mindenképpen tárolni kell az eredeti szín kódját. Az jó lesz ha ezen a munkalapon elrejtjük valahová vagy tegyük másik munkalapra?

• #11420 m.zmrzlina senior tag lomajpure #11419

  Új Válasz 2011-09-21 09:17:15 #11420

  Ú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

  

  m.zmrzlina

  senior tag

  válasz lomajpure #11419 üzenetére

  Próbáld ezt:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
  If ActiveCell.Interior.ColorIndex = 24 Then
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
  Target.Interior.ColorIndex = xlNone
  Exit Sub
  End If
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
  Target.Interior.ColorIndex = 24
  End If
  End Sub

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