-
Fototrend
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
- Autós topik
- Tudományos Pandémia Klub
- Kerékpárosok, bringások ide!
- PlayStation 5
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Melyik tápegységet vegyem?
- Hobby rádiós topik
- Kuponkunyeráló
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- 2.1-es Bose sztereó hangrendszer a Redmi K90 Pro Maxban
- További aktív témák...
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Stalker Clear Sky Limited Collector's Edition
- Árváltozás+játék DVD: Borderlands 2 Ultimate Loot Chest Limited Edition
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- BESZÁMÍTÁS! MSI H310M i5 9400F 16GB DDR4 240GB SSD 2TB HDD RTX 2060 6GB THERMALTAKE VERSAH17 600W
- LG 32GS95UX - 32" OLED / UHD 4K / 240Hz - 480Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- ÁRCSÖKKENTÉS ASUS HD6870 videókártya
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3317
- LG OLED & OLED evo Televíziók -30%
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Bemásolom ide hátha valakinek hasznos lesz még.
