-
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
-
lomajpure
csendes tag
válasz m.zmrzlina #11426 üzenetére
Pfűűű.. azta!! stb.. örök hála. Amúgy hogy értsd miben segítettél: ez egy munkanap naptár bruttó+nettóbérszámoló lesz. Emberke odakattintgat amikor dolgozott, és kidobja az elvileg pontos bruttóbérét majd, aztán már csak arra kell rájöjjek hogyan szedjem ki a nettober.com ról a nettóbér számolót
köszönöm!!Kuss! P#cs@ba! Pofádat befogod! A te dolgod a szülés! ~ Eric Cartman
-
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
- Politika
- Szimpatikusnak tűnik a T Phone új generációja
- OLED TV topic
- Otthoni hálózat és internet megosztás
- eMAG vélemények - tapasztalatok
- Luck Dragon: Asszociációs játék. :)
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Milyen TV-t vegyek?
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Asztalos klub
- További aktív témák...
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Steam kulcsok - UTALÁS/REVOLUT
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24