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.
Gyorskeresés
Legfrissebb anyagok
- Retro Retro Kocka Kuckó 2024
- Bemutató Spyra: nagynyomású, akkus, automata vízipuska
- Bemutató Route 66 Chicagotól Los Angelesig 2. rész
- Helyszíni riport Alfa Giulia Q-val a Balaton Park Circiut-en
- Bemutató A használt VGA piac kincsei - Július I
Általános témák
LOGOUT.hu témák
- [Re:] [hcl:] Heinner Sandstone HSVC-H18.5 porszívó mentés
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
- [Re:] [Krisztianby:] Az ügyintézésnek mindig ilyennek kell lennie?
- [Re:] ZUK Z2 - Kicsi a bors, de erős!
- [Re:] Fogyásom története
- [Re:] [bb0t:] Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- [Re:] [gban:] Ingyen kellene, de tegnapra
- [Re:] [antikomcsi:] Való Világ: A piszkos 12 - VV12 - Való Világ 12
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
- [Re:] [btz:] Internet fejlesztés országosan!
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
LOGOUT.hu
Hozzászólások
Nowitzki
csendes tag
Sziasztok,
Egy kis segítséget szeretnék kérni.
Van egy munkafüzet jó pár ezer sorral. Az adatok alapesetben hetes csoportokban vannak (101-107), de néha olyan adatokat is regisztrál a gép aminek nincs meg mind a hét sora. Ezeket a sorokat szeretném automatikusan törölni egy makróval. Írtam is rá egyet de nem úgy működik ahogy szeretném. Tudnátok segíteni nekem ebben?
Sub DeletingUnnecessaryRows()
For i = 2 To ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Row
If Cells(i + 1, 1) - Cells(i, 1) <> 1 And Cells(i + 1, 1) - Cells(i, 1) <> -6 Then
Rows(i).EntireRow.Delete
End If
Next
End
Előre is nagyon szépen köszönöm!
[ Szerkesztve ]
Mai Hardverapró hirdetések
prémium kategóriában
- Prémium félkonfig féláron -- Core i9 3.6(5.2)GHz x 10mag 20szál -- B.E.S.Z.Á.M.Í.T.Á.S
- Samsung Galaxy A41 64GB, Kártyafüggetlen, 1 Év Garanciával
- Lenovo Tab M11 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi Redmi 13 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- PLAYSEAT Challenge + CSL DD Ready2Race Fanatec Bundle