-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
m.zmrzlina
senior tag
válasz
m.zmrzlina #11426 üzenetére
Illetve hogy legyünk konzekvensek és ne keveredjen a Target.... meg az Activecell....:
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 Target.Interior.ColorIndex <> 24 Then Target.Offset(10, 0).Value = Target.Interior.ColorIndex
If Target.Interior.ColorIndex = 24 Then
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
Target.Interior.ColorIndex = Target.Offset(10, 0).Value
Exit Sub
End If
Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
Target.Interior.ColorIndex = 24
End If
End Sub[ Szerkesztve ]
Új hozzászólás Aktív témák
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!