-
IT café
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
-
SL11
csendes tag
válasz Delila_1 #32750 üzenetére
Köszönöm!
Lehet, hogy nem egyértelmű a megfogalmazásom 1111x bocsi
A második megoldás áll közelebb a végső megoldáshoz
Azonban nem a teljes oszlop összegét szeretném összeadatni, hanem csak azokét a sorokét, melyben "x" szerepel, bármely cellában.
Remélem jól fogalmazok
-
Delila_1
Topikgazda
-
Fferi50
őstag
Szia!
Próbáld az alábbi tömbképletet:
=SZUM((HAHIBA(SZÖVEG.KERES("x";$K$1:$K$23 & $L$1:$L$23 & $M$1:$M$23 & $N$1:$N$23);0)*1*($E$1:$E$23)))
Az oszlopok elejét és végét a saját kitöltöttségednek megfelelően állítsd be lsz.
A tömbképletet Shift + Ctrl + Enter billentyűkombinációval viheted be, az Excel kapcsos zárójelbe teszi.Üdv.
-
SL11
csendes tag
válasz Delila_1 #32752 üzenetére
Sajnos nem
amennyiben egy adott sorban a K tartományban "x" szerepel, akkor annak az E oszlop sorának az összege(i)t adja össze.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
100Ft x x x x
110Ft x
120Ft x x
130Ft x
140Ft x1. ütem összesen:
2-4. ütem összesen:
5-10. ütem összesen:Szóval valami ilyesmi a táblázat.
-
-
Fferi50
őstag
-
Fferi50
őstag
Szia!
Jó-jó, de akkor sem lenne haszontalan látni azt a képletet az I45 cellában ill. a szerkesztőlécen. Mégis csak én tudom (vagy Delila, vagy más), hogy mit miért kell úgy csinálni a képletben.
Azt például látom a képen, hogy az általad korábban írtaktól eltérő oszlopokban vannak az x jelek (pl. a K oszlopban egy db sincs).
Ezért legalább azt meg lehetne nézni, hogy jól írtad-e át a Te állapotodnak megfelelően.Üdv.
[ Szerkesztve ]
-
-
tzimash
őstag
Hali,
Mi legyen az End If előtt, ha azt szeretném, hogy a D oszlop azon üres celláiban, ahol az E oszlop értéke 1006, ott a D oszlopban az legyen, hogy "Rework"?
For sor = usor To 2 Step -1
If InStr(Cells(sor, "D"), "") > 0 And Cells(sor, "E").Value = "1006" Then
End If -
Declare
őstag
válasz bsasa1 #32670 üzenetére
Szia!
Kiprobaltam, amit csinaltal es jonak tünik
Viszont egy baj van es ezt nem ertem, igazabol, miert
Range("F" & sor).FormulaR1C1 = "=Sumif(R2C[1]:R[-1]C[1],""S. Titel"",R2C:R[-1]C)"
ennek ugye a kepletet kellene a cellaba irnia, nem pedig az erteket...de ennek ellenere az ertek kerül csak be a cellaba es nem a Summif keplet ez miert van? Nekem mindenkepp a keplet kellene.
-
Declare
őstag
-
Delila_1
Topikgazda
Privátban 2 napja elküldtem a fájlt is, a jó képletekkel. Meg is köszönted, Mi a baj?
Szerk.:
Az eredeti képen, amit priviben küldtél, nem a hetedik, hanem a 39. sorban kezdődtek az adataid. Az általam küldött fájlban töröld ki felülről a felesleges sorokat, a képletek rugalmasan hozzá alakulnak az új elrendezéshez.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
SL11
csendes tag
válasz Delila_1 #32778 üzenetére
Szia!
Semmi baj nincs.
Csak a korábbi kérésre küldtem el az anyagot.Szóval értem ám, hogy mit kell módosítani
CSak lehet h. az én excelem a buta vagy énSajnos a végső táblázatban vannak összevont cellák is és a tömb képletek nem lettek nyerők.
Csináltam egy "szumhatöbb" verziót, de ott meg mindegyik cellában kell lennie "x"-nek, hogy működjön.
-
blountex
senior tag
Üdv!
Excelnél a dátumot lehet valahogy modósítani?
Mert ha az időt visszaállítom 2 nappal és elmentem akkor ha rákattintok jobb egérgombbal a tulajdonságok menüpontnált látszik hogy 2 nappal előbb modósítottam, de ha az Excelben nézem meg a fájl -> információnál ott a mai aktuális dátomut írja ki.
Valahogy ki lehet cselezni? -
morgusz
csendes tag
Sziasztok!
Most az alábbi makróval küldök emailt Excel táblázatból, egyenként kézzel indítva, válogatva a sorok közül! ("L" oszlop aktuális celláján állva indul a makró)
Raktam be függvényeket az "M és "S" oszlopokba amik segítenek a válogatásban, de ezek segítségével már szerintem automatikusan is lehetne küldeni.
Segítséget szeretnék kérni a makró módosításához úgy, hogy ha adott sor "S" oszlopában a "küldhető" szöveg és az "M" oszlopban "1" szerepel, akkor készítse el küldésre az emailt.
Addig kellene vizsgálni a táblát amíg "I" oszlop adatot tartalmaz, vagy a 100. sorig (100 a vége de addig még sosem volt kitöltve )Előre is köszi!
Dim Outlookprogi As Object
Dim Email As Object
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)On Error Resume Next
With Email
.to = "F"
.CC = "P"
.Subject = ActiveCell.Offset(0, 11).Value
.Body = ActiveCell.Offset(0, -11).Value
.Display
End With
Set Email = Nothing
Set Outlookprogi = NothingEnd Sub
-
TrollBalint
addikt
válasz Fferi50 #32717 üzenetére
Köszi szépen,
sajna lebetegedtem a múlt héten, csak most tudtam kipróbálni, de sajnos nem az igazi.
Ha tömbképletként viszem be, akkor minden dátumra 1900.01.00 -t ír, de ezt annak tudom be, hogy table-nek van formázva a táblázatom. Ha simán enterrel viszem be a képletet, akkor jó, de csak az első két esetben, utána már ###### -ket ír (hiába húzom ki a oszlopot, nem az a baj, hogy nem fér ki)
Mind a két táblázat (amiben keresek, és ahova kilistáztatom) table formátumú, ha ez esetleg számít.https://www.pathofexile.com/account/view-profile/Haarkon/characters
-
mindanee
tag
Sziasztok!
Azt tudjátok, hogy excelben hogyan lehet a "Csere" funkcióban sortörést megadni?
Egy adott karaktert szeretnék egy cellán belül sortörésre [ALT+ENTER] cserélni. Illetve sok cellában szeretném ugyanezt megtenni, egy cellán belül is többször szerepel ez a karakter [|].
Vagy ha tudtok erre valami egyszerű függvényt, akkor az is tökéletes lehet.
Köszi előre is!
Dani -
Dr V
őstag
Sziasztok!
Power query lekérdezést asználok, ami jól műköik, amíg le nem védem a munkalapot. Hiáda állítom be, h védelem ellenére is tudja használni a lapot frissítés során, az azon lévő adatokat nem tudja frissíteni, lapvédelem hibával kidob.
Erre nincs valakinek ötlete? -
Fferi50
őstag
válasz TrollBalint #32788 üzenetére
Szia!
Szerintem "csupáncsak" annyi a baj, hogy a táblázatodban vannak üres sorok és ezek is bele vannak foglalva a képletbe - emiatt a MIN függvény természetesen 0 lesz, ami dátumformátumban 1900.01.00.
Ezért a képleteket elsőre úgy kell megadni, hogy csak a tele sorokat tartalmazza. Mivel a table forma maga automatikusan bővül, ha beviszel egy új sort az első táblába, a képlet figyelembe fogja venni "magától". Ha új nevet viszel be, azt át kell írnod a második táblába a következő sorba, a képlet itt is automatikusan működik.
Természetesen amíg a kezdő dátumhoz nem írsz semmit, addig a második tábla első oszlop adataiban 0 érték fog megjelenni.
Csak a tömbképlet működik helyesen!!!
(A sok # azért lett, mert negatív időt nem tud megjeleníteni az Excel.)Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz morgusz #32787 üzenetére
Szia!
Lehetne pl. így
Dim Outlookprogi As Object
Dim Email As Object
Dim xx As Integer
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)
On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
With Email
.to = "F"
.CC = "P"
.Subject = Cells(xx, "W").Value 'ActiveCell.Offset(0, 11).Value L+11 oszlop
.Body = Cells(xx, "A").Value ' ActiveCell.Offset(0, -11).Value L-11 oszlop
.Display
End With
End If
Next
Set Email = Nothing
Set Outlookprogi = NothingAz On Error Resume Next sorral nem tudom, mit szerettél volna elérni, így önmagában nem sokat ér, csak annyit, hogy hiba esetén nem áll meg a program és nem tudod meg, hogy hiba volt - pl. nem tudta létrehozni az email objektumot, de rendületlenül készítgeti a semmit...
Üdv.
[ Szerkesztve ]
-
dav22
csendes tag
Sziasztok!
Nekem van két külön táblám, amiben soronként van 200 ember és mellettük 15 oszlopban adatok hozzájuk. Az egyik táblában a júliusi adatok, a másik táblában az augusztusi adatok vannak. Arra lenne szükségem, hogy ez a két tábla egy táblában egyesüljön, méghozzá úgy, hogy az azonos nevű emberekhez tartozó sorok egymás alatt legyenek. Szóval 'Minta Péter' sora mind a két táblában az első sorban van a fejléc alatt, és én a közös táblában azt szeretném, hogy az első sorban legyenek a júliusi adatai, míg a második sorban az augusztusi adatai. Majd a a harmadik-negyedik sorban következne a következő ember. Erre jelenleg csak a ctrl+c és ctrl+v csodálatos betűkombinációkat ismerem, viszont ezekkel elég hosszadalmas a művelet.
Valaki esetleg tud valami megoldást? Nagyon sokat segítene.
-
Delila_1
Topikgazda
Azt nem írtad, hogy a két tábla azonos-, vagy külön lapon van-e, és hol helyezkednek el a lap(ok)-on.
Azt az esetet vettem, mikor a Munka1 és Munka2 lapokon vannak, mindkét esetben Az A1:Px tartományban, címsorral.
A makrót modulba kell másolnod. A Munka1 és Munka2 neveket írd át a saját lapjaid nevére.
Sub Osszevonas()
Dim sor As Long, usor As Long, honnan
Sheets("Munka1").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
Rows(sor).EntireRow.Insert
honnan = Application.Match(Cells(sor + 1, 1), Sheets("Munka2").Columns(1), 0)
Sheets("Munka2").Rows(honnan).Copy Sheets("Munka1").Range("A" & sor)
Next
End SubSzerk.: nem írtam bele hibakeresést, feltételezve, hogy a nevek azonosak a két lapon.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
d@minator
addikt
Sziasztok! Van egy több lapfüles táblázat amit az androidos MSExcel nem nyit meg ürlapvezérlőkre hivatkozva. Mi a megoldás? Egyáltalán hogyan tudnám megkeresni ezeket a vezérlőket a táblázatban? Szemmel látható pl. Választógomb, jelölőnégyzet stb. Biztosan nincs benne.
Iphone MS Excel támogatja ott megnyílik. -
dav22
csendes tag
Köszönöm a gyors válaszokat!
Délután kipróbálom mindkét lehetőséget. Újabb excelem van, de a név szerinti rendezés nem jutott eszembe, pedig nagyon kézenfekvő.
Új hozzászólás Aktív témák
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24