-
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
-
MCMLXXXII
tag
válasz
temporello
#41023
üzenetére
küldtem emailt
-
MCMLXXXII
tag
válasz
temporello
#41023
üzenetére
köszi
ez így is sok nekem a dátumok általatok írt makróval kerül alá automatán -
MCMLXXXII
tag
válasz
Fferi50
#38679
üzenetére
If Target.Column > 4 And Target.Row Mod 2 = 0 Then
Application.EnableEvents = False
If Target = "" Then
Target.Offset(1) = ""
Else
If IsNumeric(Target) And Target.Count = 1 Then
Target.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
Target.Offset(1).Locked = True
Columns(Target.Column).EntireColumn.AutoFit
End If
End If
Application.EnableEvents = True
End If -
MCMLXXXII
tag
sziasztok
segítettek egy elég komoly VBA ban de észre vettemegy hibát vagy nem tudom mit
tehát a jelenség
ha öbb cellát jelölök ki és tartalom törlést választom akkor össze omlik a VBAlények felső cellába írok darab számot alá automatikusan be kerül a dátum és ha több tételt törlök össze omlik
szerintetek mi lehet a baj? -
MCMLXXXII
tag
sziasztok abban szeretném a segítségeteket kérni hogy csináltam egy anyagleltár táblázatot és szeretném hozzá rendelni az adott időt egy cellához de sehogy nem akar össze jönni amit itt leírtatok tökéletesen működik csak nekem nem jó, nekem vízszintesen kellene
ezt használnám csak vízszintesen és alá kerülne a dátum
http://excel-bazis.hu/forumok/topic/most-fuggveny-hasznalata ból másolva
If Target.Column = 7 Then
Application.EnableEvents = False
If Target <> "" Then
Target.Offset(0, -4) = Format(Date + Time, "yyyy.mm.dd. h:mm")
Else
Target.Offset(0, -4).ClearContents
End If
Application.EnableEvents = True
End If
Új hozzászólás Aktív témák
- Hardcore café
- iPhone topik
- Milyen belső merevlemezt vegyek?
- Luck Dragon: Asszociációs játék. :)
- Kevés helyet hagyott a tápkonnektor körül a világ legdrágább csúcs-VGA-ja?
- Google Pixel topik
- gban: Ingyen kellene, de tegnapra
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Battlefield 6
- Horgász topik
- További aktív témák...
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3121
- Lenovo Thinkpad X13 Gen2 WUXGA IPS Ryzen5 Pro 5650U 16GB 512GB SSD Radeon RX Vega7 W11 Pro Garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5060 Ti 16GB GAMER PC termékbeszámítással
- Kötelező darab a karifa alá! Asus Tuf Lap!
- Eredeti Microsoft Windows 10 / 11 Pro OEM licenc Akciós áron! 64/32 bit Azonnali kézbesítéssel
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi