Hirdetés
- Tudjuk, de nem tesszük: a magyarok többsége nem törődik adatai védelmével
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- Irodát kért, de gyárat kapott Elon Musk a Samsungtól
- Nyílt forráskódú lett a legegyszerűbben használható AI tartalomgeneráló
- Hazavághatja a MicroSD memóriakártyák piacát a Biwin-féle Mini SSD
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- Apple MacBook
- OLED TV topic
- Azonnali alaplapos kérdések órája
- Amlogic S905, S912 processzoros készülékek
- MILC felhasználók szakmai topikja
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Samsung LCD és LED TV-k
- Tudjuk, de nem tesszük: a magyarok többsége nem törődik adatai védelmével
- Androidos tablet topic
-
PROHARDVER!
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
-
zsolti_20
senior tag
válasz
Sprite75
#44897
üzenetére
Sikerült közben VBA-val megoldanom.
Bemásolom ide hátha valakinek hasznos lesz még.Sub kecske()Dim i As IntegerDim x As LongDim counter As Integercounter = 10For i = 9 To 20x = Range("E" & i & ":J" & i).SpecialCells(xlCellTypeBlanks).CountCells(i, 1).Value = xIf x < 6 ThenRange("D" & i & ":J" & i).CopyRange("AA" & counter).PasteSpecial Paste:=xlPasteValuescounter = counter + 1End IfNext iEnd Sub
Új hozzászólás Aktív témák
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- World of Tanks - MMO
- ASUS routerek
- Temu
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- AliExpress tapasztalatok
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Gyúrósok ide!
- Építő/felújító topik
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- További aktív témák...
- Xiaomi 15 256GB,Újszerű,Dobozával,12 hónap garanciával
- Asus laptop E1504F Ryzen 3
- Poseidon D60 Dolby Atmos hangprojektor távirányító nélkül / 12 hó jótállás
- GYÖNYÖRŰ iPhone XR 128GB Red-1 ÉV GARANCIA - Kártyafüggetlen, MS3984, 100% Akkumulátor
- Újszerű HP 250 G10 - 15.6"FHD IPS - i5-1334U - 8GB - 512GB - Win11 - 1,5 év garancia - MAGYAR
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Bemásolom ide hátha valakinek hasznos lesz még.

