- Aliexpress tapasztalatok
- Csinált valamit a Nokia: megváltoznak a telefonhívások
- Vírusirtó topic
- A call centerekbe viszi az AI-t a Microsoft
- Microsoft Edge (a Windows Internet Explorer utódja)
- Mikrotik routerek
- Videó stream letöltése
- Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
- Milyen routert?
- DIGI kábel TV
-
IT café
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
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Steam kulcsok - UTALÁS/REVOLUT
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen