-
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
-
KovacsUr
addikt
-
-
KovacsUr
addikt
Kipróbáltam, visszamásoltam.
Magyar Office97 és angol Office XP alatt működik, úgyhogy remélhetőleg a köztük lévő összes többin is
Ha mégsem, akkor tényleg nincs több ötletem
-
KovacsUr
addikt
No, próbálom újra...
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> "" And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = "yyyy/mm/dd"
Target.Activate
End If
End Sub
Most & q u o t ;-ot írtam '' helyett, hátha így nem javítja ki... -
KovacsUr
addikt
Azért szólhatnál, hogy most ez megfelel-e vagy nem :/
-
KovacsUr
addikt
-
KovacsUr
addikt
Jobb klikk a worksheet fülön, Kód megjelenítése
aztán ezt beilleszt
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
End If
End Sub
Új hozzászólás Aktív témák
- 192 - Lenovo Legion 5 (15IRX10) - Intel Core i7-14700HX, RTX 5060 (ELKELT)
- Dobozos ASUS TUF Ryzen 7 7735HS 16 GB DDR5 1TB SSD RTX 4060 (8 GB) Garancia 26.09.12.
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
- Samsung 860 Pro 256GB V-NAND SSD
- HP 14 Elitebook 640 G10 FHD IPS i5-1345U vPro 10mag 16GB 512GB SSD Intel Iris XE Win11 Pro Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Mondom, hogy én is próbálkoztam...





Fferi50
