-
GAMEPOD.hu
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
-
Delila_1
Topikgazda
Rendeld a lapodhoz a makrót, lásd az Összefoglalóban ennek a leírását.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target > "" Then Cells(Target.Row, 2) = Date
If Target.Column = 1 And Target = "" Then Cells(Target.Row, 2) = ""
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
If Application.WorksheetFunction.CountA(Range(Target.Address)) = Target.Count Then
Range(Target.Address).Offset(, 1) = Date
Else
Range(Target.Address).Offset(, 1) = ""
End If
Application.EnableEvents = True
End If
End Sub
Ha nem az első oszlopba írsz adatot, akkor az
If Target.Column = 1 Then
sorban kell az 1-et átírnod az oszlop számára. Ha pedig a dátumot nem a következő oszlopba íratnád, akkor aRange(Target.Address).Offset(, 1) = ""
sorban kell az 1-et annyira átírni, ahány oszloppal jobbra szeretnéd megkapni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
-
Fferi50
őstag
Szia!
Elvileg az Excel automatikus mentése ha be van kapcsolva, akkor az automatikus helyreállítási mappában érdemes keresgélni. (Megtalálod a beállítások - mentés fülön.)
Tanulság: megosztás előtt csinálni kell egy mentést elszeparálva a közös fájltól - másik néven, másik helyen. A megosztás megszüntetése előtt ugyanígy a közös fájllal.
Ha újra kellene játszani a történetet.Üdv.
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Megérkezett a Razer DeathAdder V3 Hyperspeed verziója
- Milyen légkondit a lakásba?
- Szünetmentes tápegységek (UPS)
- PlayStation 5
- 24 Hours of Le Mans
- Bittorrent topik
- BYD Atto 3 menetpróba
- Ukrajnai háború
- Alacsony profilú RX 6400 az ASRocktól
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Microsoft Windows, Office Licencek. LEGKEDVEZŐBB ÁRON!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok