Hirdetés
- MWC 2025: A kicsi és a kamerás - megjött a Xiaomi 15 és az Ultra
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Apple iPhone 16 Pro - rutinvizsga
- Bivalyerős lett a Poco F6 és F6 Pro
- Stabil pályára állt az Android 16
- Poco F6 5G - Turbó Rudi
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- iPhone topik
- OneSport OT07 - szevasztok, hollandok!
- Yettel topik
-
Mobilarena
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
veterán
válasz
JagdPanther #40957 üzenetére
Nem lassít majd a sok sor, mert mindig a 6. sorba viszed be az új adatokat.
Azért egy kicsit egyszerűsítettem a makrókon.Sub Ma()
Sheets("Bevitel").Select
Rows(6).EntireRow.Insert Shift:=xlDown
Range("B6") = Date
Range("E6").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Adat!$F$2:$F$8"
Range("F6").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Adat!$L$2:$L$3"
Range("C7:I7").Copy
Range("C6:I6").PasteSpecial xlPasteFormats
Range("J7").Copy
Range("J6").PasteSpecial Paste:=xlPasteAll
Range("C6").Select
End SubSub Megse()
Rows(6).Delete Shift:=xlUp
End SubSub Hibakiadva()
Cells(6, "H") = Date
End SubSub Hibaelvegezve()
Cells(6, "I") = Date
End Sub
Új hozzászólás Aktív témák
- VR topik (Oculus Rift, stb.)
- Elite: Dangerous
- Diablo IV
- Hosszabb előzetest kapott a Silent Hill f
- MWC 2025: A kicsi és a kamerás - megjött a Xiaomi 15 és az Ultra
- Interactive Brokers társalgó
- alza vélemények - tapasztalatok
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Viccrovat
- Magga: PLEX: multimédia az egész lakásban
- További aktív témák...
- Samsung Galaxy A70 128GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo ThinkStation P330 SFF / ThinkCentre M720s SFF -Számla, garancia, WIN11
- SzoftverPremium.hu
- Samsung Galaxy S20 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest