Hirdetés
- Google Pixel topik
- OneSport OT07 - szevasztok, hollandok!
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Stabil pályára állt az Android 16
- Apple iPhone 16 Pro - rutinvizsga
- Redmi Note 11 és 11S - biztos alapra jobb építeni
- Szívós, szép és kitartó az új OnePlus óra
- Kapcsolja ki, kapcsolja be!
- Poco X6 Pro - ötös alá
- Xiaomi 14T Pro - teljes a család?
-
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
- Kerékpárosok, bringások ide!
- EA Sports WRC '23
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Napelem
- Google Pixel topik
- AMD Navi Radeon™ RX 9xxx sorozat
- OneSport OT07 - szevasztok, hollandok!
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- LED világítás a lakásban
- Szemüveges topik
- További aktív témák...
- Csere-Beszámítás! MSI Thin Laptop játékra! I7 11800H / RTX 3050Ti / 32GB DDR4 / 512GB SSD
- LG 32GR93U-B - 32" IPS - UHD 4K - 144Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDR 400
- LG 48C3 - 48" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen6 CPU
- SzoftverPremium.hu
- Samsung Galaxy A04s 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest