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

• #11413 m.zmrzlina senior tag lomajpure #11409

  Új Válasz 2011-09-21 08:27:04 #11413

  Ú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 #11409 üzenetére

  Rendeld a munkalaphoz a következő kódot:

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

  Munkalaphoz rendelni így kell.

  Figyelj rá, hogy ez a kód nem vizsgálja a cella tartalmát amire kattintottál. Tehát ha nem D-re kattintasz a DE sorban akkor is hozzáad az összeghez nyolcat.

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