Hirdetés
- Androidos tablet topic
- Kormányok / autós szimulátorok topikja
- Milyen TV-t vegyek?
- Milyen videókártyát?
- Vezetékes FEJhallgatók
- Soundbar, soundplate, hangprojektor
- Pánik a memóriapiacon
- Ezzel jobban keresel, mint az arannyal
- Vezeték nélküli fejhallgatók
- Őrületes specifikációkkal rendelkezik a Tachyum csodaprocesszora
-
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
-
Fferi50
Topikgazda
válasz
Snoop-y
#33719
üzenetére
Szia!
Az alábbi tömbképlet remélhetőleg megoldja a problémádat.
A képletet a B2 cellába kell beírni, feltételezi, hogy az adatok a 2 sortól kezdődnek a Sheet1 lapon:=IFERROR(INDEX(Sheet1!$F$2:$F$5;MATCH(1;((Sheet1!$C$2:$C$5 & Sheet1!$D$2:$D$5<=$A2&B$1)*(Sheet1!$C$2:$C$5 &Sheet1!$E$2:$E$5>=$A2&B$1));0));"")A tartományok végét, ami nálam most az 5. sor, a saját listád végéhez igazítsd, fontos, hogy mindegyik vége egyforma legyen.
A tömbképletet Shift+Ctrl+ Enter billentyű kombóval lehet bevinni, az Excel kapcsos zárójelbe teszi, a szerkesztőlécen igy látod.
Üdv.
-
Delila_1
veterán
válasz
Snoop-y
#28671
üzenetére
A D1 cellába beírja az összeget, szűrt állományban is.
Sub valami()
Dim ter As Range, CV As Range, osszeg
Set ter = Columns(1).SpecialCells(xlCellTypeVisible)
For Each CV In ter
If CV.Row > 1 And Cells(CV.Row, "B") > "" Then osszeg = osszeg + CV
Next
Range("D1") = osszeg
End Sub -
Snoop-y
veterán
válasz
Snoop-y
#28666
üzenetére
Erre esetleg valaki?
Osszeszedem akkor hogyan is nezne ki:
A oszlop szamait kellene osszegezni ugy hogy csak azokkal szamolunk ami mellett a B oszlop cellaja nem ures viszont ha filterezek akkor is a helyes osszeget mutassak
( A SUMIF/SZUMHA fuggveny mindig a teljeset (termeszetesen a B oszlop kriteriumot figyelembe veve ) mutatja akkor is ha filterezek ) -
be.cool
csendes tag
-
-
#28287
m.zmrzlina
senior tag
Snoop-y
#28286
m.zmrzlina
senior tag
válasz
Snoop-y
#28286
üzenetére
Én kivárnám amíg megtudunk több részletet, minek lövöldözzünk vaktában.
Köztünk Delila az aki úgy szokott komplett megoldásokat adni, hogy a hiányzó információkat legenerálja
(És még csak nem is haragszik, ha újra és újra át kell írnia a megoldást a csöpögtetett információk alapján)A CONCATENATE-tal szerintem az lesz a gond, hogy ha a másik munkalapról átvett adatokkal mondjuk számolni akarunk a Munka 1-en akkor az nehézségekbe fog ütközni. De persze ezt is csak feltételezem
-
#28285
m.zmrzlina
senior tag
Snoop-y
#28284
m.zmrzlina
senior tag
válasz
Snoop-y
#28284
üzenetére
Teljesen jól látod én csak egy elméleti mintát adtam. Egyenlőre azt sem tudjuk hogy a Munka1 munkalapon /nála biztosan nem ez a neve/ hol kéne megjelennie a másik munkalap cellaértékeinek.
Egyébként az INDEX-MATCH párost rengeteg szakmai fórumon ajánlják a VLOOKUP kiváltására mert sokkal flexibilisebb.
-
Snoop-y
veterán
válasz
Snoop-y
#28275
üzenetére
Talaltam egy olyan makrot amivel tudok sort torolni viszont nem tudom hogyan hivatkozzak az ures cellara
Ha a B oszlopban teszt van akkor szepen kitorli a sort. Nekem az kene hogy az ures sort talalja meg es torolje ki. ( viszont ne kezdje el torolgetni a tobbi ures sort mert akkor vegtelen ciklusba fog kerulni
Probaltam csak igy "" illetve hasznalni az IsEmpty-t de nem akar mukodni. Hogyan lehet megtalalni az elso ures ( aminek a B oszlopa mondjuk ures mint az alabbiban ) sort es kitorolni?
Sub Rowdel()
Dim i As Integer
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(i, 2) = "teszt" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub -
Fferi50
Topikgazda
válasz
Snoop-y
#23732
üzenetére
Szia!
Ha nem írod, hogy milyen nyelvű és verziójú excel verziót használsz, akkor bizony ilyen előfordulhat. Mivel a fórumon általában magyar nyelvű excellel találkozunk, ezért a magyar nyelvű függvényeket szoktuk megadni (kivéve makró).
De tudjuk ám az angol nevüket is....Üdv.
-
alfa20
senior tag
válasz
Snoop-y
#21514
üzenetére
nem a legelegánsabb megoldás, de majd jön Delila_1 és majd megoldja profin
Sub keres()
Dim keres As Variant
keres = InputBox("Keresendő szöveg, szám:", "Keresés")
Cells.Find(What:=keres, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
MsgBox ActiveCell.Address
End Subés meg is jött
( A SUMIF/SZUMHA fuggveny mindig a teljeset (termeszetesen a B oszlop kriteriumot figyelembe veve ) mutatja akkor is ha filterezek )
Új hozzászólás Aktív témák
Fferi50- Disney+
- Androidos tablet topic
- Építő/felújító topik
- Kormányok / autós szimulátorok topikja
- Milyen TV-t vegyek?
- Milyen videókártyát?
- World of Warships
- A fociról könnyedén, egy baráti társaságban
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Nintendo Switch 2
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó Steam kulcsok kedvező áron!
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Fallout 4 Pip-Boy Edition
- iKing - Apple iPhone 15 Pro Natural Titanium ProMotion 120 Hz, A17 Pro, USB-C 128 GB
- 14" Dell Latitude laptopok: 5400, 5480, 5490, 7480, E6410, E6440, E5450 / SZÁMLA + GARANCIA
- Bomba ár! HP Pro X360 11 G1 - Intel N4200 I 4GB I 128GB SSD I 11,6" HD Touch I Cam I W11 I Gari
- Lenovo ThinkPad T14 Gen1 Intel i5-10310U Refurbished - Garancia - Akció!
- Apple iPhone 13 /128GB /Kártyafüggetlen / 12 Hó Garancia / akku: 85%
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest