-
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
-
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- World of Tanks - MMO
- Autós topik
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- Világ Ninjái és Kódfejtői, egyesüljetek!
- Kormányok / autós szimulátorok topikja
- Elemlámpa, zseblámpa
- Telekom mobilszolgáltatások
- BestBuy ruhás topik
- Épített vízhűtés (nem kompakt) topic
- Polgári repülőgép-szimulátorok
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- iPhone 15 128GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3944, 100% AKKSI
- BESZÁMÍTÁS! Asrock B450M R5 5500 8GB DDR4 256GB SSD GTX 1050 Ti 4GB Zalman T3 Plus DeepCool 400W
- BESZÁMÍTÁS! Asus H110M i5 7500 8GB DDR4 250GB SSD GTX 1050Ti 4GB ZALMAN T3 Plus Deepcool 400W
- Hp Zbook 15 G5 15,6" FHD/ i7-8850H, 32GB, 512GB SSD, Quadro P2000- HUN / számla-garancia
- Eladó Samsung Galaxy A16 5G 4/128GB fehér / 12 hó jótállás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest