-
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
-
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 Integer
Dim x As Long
Dim counter As Integer
counter = 10
For i = 9 To 20
x = Range("E" & i & ":J" & i).SpecialCells(xlCellTypeBlanks).Count
Cells(i, 1).Value = x
If x < 6 Then
Range("D" & i & ":J" & i).Copy
Range("AA" & counter).PasteSpecial Paste:=xlPasteValues
counter = counter + 1
End If
Next i
End Sub
Új hozzászólás Aktív témák
- Intel Dual Core 2000 felhasználók barátságos offolós topikja
- Milyen billentyűzetet vegyek?
- Milyen légkondit a lakásba?
- Apple Watch
- RETRO beárazás (mobil, PC, konzol)
- A Temu diktál Magyarországon, a hazai e-kereskedők fulladoznak
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- További aktív témák...
- Keresem az alábbi PC játékokat! (Teljes lista a leírásban!)
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Antivírus szoftverek, VPN
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- iPhone 16 Pro Max 256GB Black Titanium 96%, 2025.12.02 Apple gari
- Xiaomi Redmi 12C 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Fujitsu LifeBook U727 - i3-7GEN I 16GB I 256SSD I 12,5" FHD I Cam I W11 I Garancia!
- SanDisk Extreme Portable 8TB (SDSSDE61-8T00-G25)
- GYÖNYÖRŰ iPhone 14 Pro 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3352
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest