- Mindent megtudtunk az új Nokia 3210-ről
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- Bemutatkozott a Moto G32 4G
- Nothing Phone 2a - semmi nem drága
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Poco X6 Pro - ötös alá
- Véroxigénszintet is mér a Honor Band 5
- Vodafone-ra áttért Digi Mobilosok
- Google szolgáltatás (GMS) Huawei telefonokra
- Alcor e-Pad - van még remény
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Mozgásban az F1 24
gp A Forma 1 versenyek rajongói hamarosan végre belevethetik magukat az idei epizódba.
-
Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
it Az AI-t kiszolgáló adatközpontok olyan nagy energiaigénnyel bírnak, hogy egyre több atomenergiára van szükség.
-
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
-
Delila_1
Topikgazda
válasz botond187 #23201 üzenetére
Újra felteszem. Itt találod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
botond187
csendes tag
válasz Delila_1 #23202 üzenetére
Ugyanaz, csak B2-B7-ig futttatja le, pedig addig kéne, amíg van az A oszlopban cikkszám.
B6-így kéne csinálni a többinél is. Érdekesség, hogy a B5-be ugyanannak kéne lenni, mint B6-nál, mégis csak 3 eredményt hoz.
A vizsgált oszlopoknak ezeknek kéne lenni: AH-AI-AJ-AK-AL-AM. -
Delila_1
Topikgazda
válasz botond187 #23203 üzenetére
Nagyon változatosan fogalmazod meg, mire van szükséged.
Eddig 6 eredményt kértél, most annyit, amennyi érték van az A oszlopodban.Írd le pontosan, milyen adatokat vársz a B oszlopba.
Például az első 6 sor tevődjön össze a kigyűjtött 6 oszlop első adataiból, a következő 6 a kigyűjtések második adatából?Ne várj azonnali választ (tőlem), egy darabig nem leszek net közelében.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
botond187
csendes tag
válasz Delila_1 #23204 üzenetére
B oszlopba gyűjtse össze az AH-AI-AJ-AK-AL-AM oszlopból kiválogatva 6 cikkszámot, elsődlegesen 1-1-1-1-1-1 cikkszámot, ha nincs ezen 6 oszlop (AH-AI-AJ-AK-AL-AM) valamelyikében cikkszám, szedje össze a többiből ha tudja(szintén AH-AI-AJ-AK-AL-AM oszlopokból).
B1-be az AH1-AI1-AJ1-AK1-AL1-AM1-ből
B2-be az AH2-AI2-AJ2-AK2-AL2-AM2-ből
stb. szedje össze a cikkszámokat addíg, amíg van A oszlopban cikkszám.A lényeg az lenne, hogy ha van mondjuk 24 találat valahol (pl A240), szűkítse le 6-ra, de továbbra is úgy, hogy szedjen össze legalább 1-1-et a ( példánál maradva az AH240-AI240-AJ240-AK240-AL240-AM240)- oszlopokból.
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz Titkárnő #23199 üzenetére
Nem tartom jó tippnek az együvé tartozó adatok 2 sorba történő bevitelét, biztos vagyok benne, hogy slashing is csak "kínjában" javasolta.
Kicsit egyszerűsítettem a függvényen, biztosan kapsz segítséget az alkalmazásához.
Function PirosKek(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range, lCol As Long, vResult
lCol = rColor.Font.ColorIndex
For Each rCell In rRange
If rCell.Font.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
PirosKek = vResult
End FunctionAz F9-cel frissülnek az összegző értékeid.
[ 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.
-
gyu84
tag
Üdv!
Segítséget szeretnék kérni, adott egy munkaidő nyilvántartó lap, amit ki kell nyomtatni, ez egy háttértáblából szedi az adatokat, a neveket érvényesítéssel lehet kiválasztani majd FKERES-el keresi meg a névhez tartozó munkaidőket. Az volna a kérdésem, hogy volna-e olyan makró amivel, ki lehet nyomtatni az egészet? Minden névhez tartozó lapot kinyomtatna anélkül, hogy kézzel kellene kiválasztani és nyomtatni egyesével.
Előre is köszönöm!
-
Fferi50
őstag
Szia!
A makróban egy ciklussal végigmész a neveken, kitöltöd a nyilvántartó lapot, kiadod rá a printout parancsot (ha szükséges, előtte beállítod a pagesetup paramétereket).
A makróhoz segít a makórögzítő. Egy nyilvántartó lapot kinyomtatsz a makrórögzítővel és az eredmény lesz a ciklus belseje nagyjából. Egy kicsit bizonyára "szépíteni" kell majd rajta, de a mag az lehet.
A ciklus meg a neveket tartalmazó tartományon vagy változón megy végig.Üdv.
-
billyjoe
csendes tag
Sziasztok,
Lenne egy kis problémám, hátha tudtok adni valami tippet. A riport rendszer amit jelenleg használok egy kb. 250.000 sort tartalmazó táblázatra épül, amiből kb. 25 pivot segítségével hivatkoztatom be egy második táblába a szükséges adatokat. A probléma az, hogy év végére nagyjából 500.000 sorosra fog felduzzadni az alap táblázat, amit már képtelen kezelni az excel, nem frissíti be a pivotokat. Van esetleg valakinek ötlete, hogyan tudnám ezt áthidalni?
Előre is köszi!
-
-
Fferi50
őstag
válasz billyjoe #23211 üzenetére
Szia!
Mi lenne, ha pivotok helyett szűrést és összegzést (vagy feltételes összegzést) használnál?
Másik megoldás, hogy az alapadatok egy külön excel fájlban vannak, a lekérdezések egy másikban. Akkor nem kell a nagy adatállományokat megnyitni a lekérdezések futtatásához.Ha valamilyen adatszerkezetet és egy-két pivot szerkezetet mutatnál mintának, ennél biztosan többet tudnánk segíteni.
(Nem az érzékeny adatokat kell feltenni és nem kell nagy adattömegnek sem lennie.)Milyen excel verziót használsz? (Év, nyelv)
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz m.zmrzlina #23212 üzenetére
Szia!
Annyi adat, ami itt lesz, már nem biztos, hogy befér az excel által kezelt memóriába.
Egyébként is, ha már excel, annak a lehetőségeit kellene kihasználni szerintem.Üdv.
-
PindurAnna
Közösségépítő
Sziasztok!
Netről kimásolgattam egy adatbázist - ez a honlapról munkalapon van.
Majd transzponálással vízszintes rendezésbe másoltam nevenként a második munkalapon van.Hogy tudnám azt megcsinálni, hogy függőlegesen az alábbi oszlopokban a hozzátartozó adat legyen benne?
Ilyen oszlopok kellenének:
Név:
Cím:
Rövid név:
Azonosító:
Alapítás dátuma:
Minősítés:
Központi telefonszám:
Központi fax:
Központi email cím:
Honlap:
Képviselő neve:
Képviselő telefonszáma:
Képviselő email:
Kapcsolattartó neve:
Kapcsolattartó telefonszáma:
Kapcsolattartó email:Van olyan ahol két cím van és több kapcsolattartó, azt talán cím 1, cím 2 vagy nem tudom hogy kellene
Ez a Hajdú-Bihar megyei tehetségpontok listája lenne..de sehol nem találtam ilyen táblázatot neten, így egyesével kimásoltam a honlapról..
Itt van amit csináltam eddig: [link]
De ez így káoszos..jobb lenne ha rendezetten lenne..
Hálás lennék, ha valaki tudna segíteni
[ Szerkesztve ]
Galaxy S9+;Lenovo yoga 500;Gigabyte H77-DS3HPentium 840 4GB DDR3-1066, 4820GB+10000GB HDD;27"Lg W2753;TP-LINK WDL4300 router;SAMSUNG ML-1520,Epson Stylus OFFICE BX300F,Samsung Note 10.1, S7 edge
-
lappy
őstag
Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2).Value
b = b + 1
For a = 2 To b
Sheets("névsor").Select
Range(Cells(a, 2), Cells(a, 2)).Select
Selection.Copy
Sheets("Sima").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Select
Range("C3").Select
Selection.ClearContents
Range("A2").Select
End SubBámulatos hol tart már a tudomány!
-
lappy
őstag
válasz PindurAnna #23215 üzenetére
Inkább a forrást kellene felrakni vagy azt a fáljt amibe már lementetted, de a legjobb ha mindkettő meg van könnyebb vmit kitalálni rá.
Bámulatos hol tart már a tudomány!
-
pigster
senior tag
Van valamilyen módszer arra, hogy olyan sorozatot hozzak létre, amiben az egyes elemek ismétlődnek?
pl:
2014.04.01.
2014.04.01.
2014.04.01.
2014.04.02.
2014.04.02.
2014.04.02.
2014.04.03.
2014.04.03.
2014.04.03.
...
2014.04.30.
2014.04.30.
2014.04.30.Fenti egy dátumsorozat lenne, és minden nap háromszor ismétlődik.
.. vagy ez csak kóddal oldható meg?FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
billyjoe
csendes tag
válasz Fferi50 #23213 üzenetére
Szia!
Köszi a választ!
Kipróbáltam hogy a pivotokat külön file-ba raktam, az alapadatokat pedig beduplikáltam, így lefutott a frissítés. A másik gond, hogy az alapadatoknál van kb 10 oszlop ahol képletekkel számolok, annak az újrahúzása nem kis időt vett igénybe, de végül megtudta csinálni. Ez egy kész riporting rendszer, ugye rengeteg adattal, a jelenlegi tudásommal nem tudnám megcsinálni pivotok nélkül sajnos.Szívesen mutatnék adatok nélkül egy mintát, de sajnos nincs rá lehetőségem. Tulajdonképpen napi sales adatok vannak benne, a pivotok segítségével kerülnek be az elemző táblázatba a szükséges adatok, ott is van kb. 15 sheet táblázatokkal, diagramokkal.
De a lényeg, hogy úgy tűnik működni fog, úgyhogy még egyszer köszönöm a segítséget.
Üdv!
-
-
maestro87
őstag
Az xls és xlsx fájlokkal csinálja csak ezt - nem nyitja meg őket - és csak az újonnan kreáltakkal és csak azokkal amelyeket nem én hoztam létre, a régebbieket gond nélkül megnyitja. Például a letöltött banki 2014-es számlatörténetemet nem, de a 2013-asat megnyitja.
Ami hibaüzenetet kiír az meg hülyeség, mert van elég helyem. -
Des1gnR
őstag
Sziasztok!
Épp egy makrón dolgozok, de elakadtam.
2 különálló munkalapról van szó, melyek termékneveket, árakat és cikkszámot tartalmaznak.
A cikkszám mindkét esetben az A oszlopban található.
A cél az lenne, hogy megtaláljam az új listában az új termékeket (szóval ami nincs benne az én listámba) és azt frissítsem az új termék bekerüljön az én listámba.Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
veterán
válasz Des1gnR #23228 üzenetére
egy for ciklussal végigszambázol az első munkalap cikkszámain, a match fv-t használva. ha megtalálja a második munkalapon a kijelölt range-ben a cikkszámot, akkor nem történik semmi, ha nem, akkor pedig az első üres sorba beilleszti az adatait+megnöveli a range méretét is, amiben keresel. én így csinálnám
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Des1gnR
őstag
válasz bandus #23230 üzenetére
Köszi, közben sikerült megoldanom. Nem hagytam magam
'Keresés:
For i = 2 To lastRow
On Error Resume Next
Selection.Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Err.Number = 91 Then
Sheets("pm_nk_arlista").Cells(lastRow + 1, 1).Value = Sheets("pm_nk_arlista_uj").Cells(i, 1).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 2).Value = Sheets("pm_nk_arlista_uj").Cells(i, 2).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 3).Value = Sheets("pm_nk_arlista_uj").Cells(i, 3).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 4).Value = Sheets("pm_nk_arlista_uj").Cells(i, 4).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 5).Value = Sheets("pm_nk_arlista_uj").Cells(i, 5).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 9).Value = Sheets("pm_nk_arlista").Cells(2, 9).Value
Range("K11").Select
End
End If
Next iMost ezzel csak annyi a gondom, hogy az új értéket megtalálja és beilleszti a régi listába, de az első találatnál leáll. Szóval többször is le kell futtatni.
[ Szerkesztve ]
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
m.zmrzlina
senior tag
válasz Des1gnR #23231 üzenetére
Szerintem az If Err.Number = 91 Then sornál kellene keresgélni.
Tedd be a sor elé ezt: Debug.Print Err.Number és léptesd a makrót F8-cal és figyeld mit ír az Immediate ablakban a második körben.
Illetve még egy kérdés. Miért kell az új tétel beírása után a K11-be lépni?
[ Szerkesztve ]
-
maestro87
őstag
Az anyjuk pi****át. Így már működik! Ez is csak a hülye win8 óta van, a win7 nem rinyált ennyit mint ez. Ott ha rendszergazdaként léptem be akkor rendszergazda voltam és engedélyezett mindent, most meg rendszergazdai jogoknál is mindenhez engedélyt kér...totál értelmetlen. De érdekes, mert ha meg netről szedett doc-ot akarok megnyitni, akkor ott meg általában az ablakban egy sárga információs szalagban kérdezi, hogy engedélyezem-e a szerkesztést vagy sem, és nem kevés memóriára hivatkozik...
Köszi szépen a segítséget!
Csak elég sz*r így, hogy egyenként kell majd a tiltásokat feloldani... -
Des1gnR
őstag
válasz m.zmrzlina #23233 üzenetére
Megnézem, köszi.
Arra gondoltam először, hogy ha nem lesz megoldás, akkor a 2 munkalap sorainak számát kivonom egymásból és akkor látom, hogy hányszor kell még lefuttatni. Ezt írom a K11-be és azért léptettem oda.
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
m.zmrzlina
senior tag
válasz Des1gnR #23235 üzenetére
Na jó de azzal, hogy kijelölöd azzal még semmit nem oldottál meg. Ennek a cellának az értékét át kellene adni a lastRow változónak. Pl: lastRow = Range("K11").Value.
Én mondjuk nem a Selection.Find-dal csinálnám ezt, hanem az Application.Worksheetfunction.Countif-fel. Magyarul a Darabteli() fv makrós megfelelőjével. Végigmennék az új lista cikkszámain (aminek részhalmaza a régi cikkszám lista - gondolom) és az új listának azt az elemét amin a CountIf nullát ad vissza azt hozzáadnám a régi listához
[ Szerkesztve ]
-
Fferi50
őstag
válasz Des1gnR #23231 üzenetére
Szia!
A bajt az ide
" Range("K11").Select
End
endif"
beszúrt end parancs okozza, mert ez véget vet a program futásának azonnali hatállyal.
Ezt kellene kivenned és akkor nem áll le az első találatnál.Egyébként pedig:
Nem kell a selection, és nem kell activálni sem a megtalált értéket.
Próbáld így:For i = 2 To sheets("pm_nk_arlista_uj").usedrange.rows.count
set ujszam= Sheets("pm_nk_arlista_uj").UsedRange.columns(1).Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, LookIn:=xlvalues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
if not ujszam is nothing then
Sheets("pm_nk_arlista").Cells(lastRow + 1, 1).Value = Sheets("pm_nk_arlista_uj").Cells(i, 1).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 2).Value = Sheets("pm_nk_arlista_uj").Cells(i, 2).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 3).Value = Sheets("pm_nk_arlista_uj").Cells(i, 3).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 4).Value = Sheets("pm_nk_arlista_uj").Cells(i, 4).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 5).Value = Sheets("pm_nk_arlista_uj").Cells(i, 5).Value
Sheets("pm_nk_arlista").Cells(lastRow + 1, 9).Value = Sheets("pm_nk_arlista").Cells(2, 9).Value
lastrow=lastrow+1
End If
Next i
Üdv.[ Szerkesztve ]
-
Sasos
senior tag
-
slashing
senior tag
Hátha jól jön másvalakinek is....
Szükségem volt egy olyan feltételes formázásra ami cella érték alapján kiemel bizonyos sorokat. Mivel volt vagy 30 féle cellatulajdonság így egy elég hosszú vagy függvény lett volna(vagy 30x cellaérték ="valami") a feltételes formázása ezért ki kellett valamit találni erre. Így lett a feltételes formázás képlete a következő:
=HOL.VAN($B1;lista;0)
a listát meg meg lehet csinálni eltolással vagy offsettel dinamikusan bővülőre.
-
Des1gnR
őstag
válasz Fferi50 #23237 üzenetére
Ha kiveszem az end-et akkor semmit nem ad hozzá az új listából.
Ha pedig a Te ciklusod használom, akkor hozzáadja az egész új listát.m.zmrzlina: Nem kizárt, hogy a darabteli lesz a vége
Dell G3 3779 || Samsung S23+ || Samsung Watch 5 Pro || Oculus Quest 2 || Creality Ender 3 V2
-
Fferi50
őstag
válasz Des1gnR #23242 üzenetére
Szia!
Most látom, hogy egy kicsit "fordítva ültem a lóra".
Ezt a sort:
if not ujszam is nothing thencseréld ki erre lsz:
if ujszam is nothing thenMivel ez jelenti azt, hogy nem találta meg az új cikkszámot a régi listában.
Elnézést, hogy elnéztem, nem volt szándékos.
De az end parancs az egyértelmű futás megszakítást jelent, ezért lépett ki az első találat után.Üdv.
-
-
m.zmrzlina
senior tag
válasz Des1gnR #23244 üzenetére
Csak az elv:
Sub lista_frisit()
Range("B1").Select
Do While ActiveCell.Value <> ""
If Application.WorksheetFunction.CountIf(Range("A:A"), ActiveCell) = 0 Then
Range("A" & (Range("A" & Rows.Count).End(xlUp).Row) + 1) = ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Loop
End SubNálam A1 ben kezdődik a szűkebb B1-ben a bővebb lista.
Természetesen a saját munkalapodra kell faragnod. Ha teszel be képet róla tudjuk pontosítani.[ Szerkesztve ]
-
Fferi50
őstag
válasz Des1gnR #23244 üzenetére
Szia!
Tényleg nagyon figyelmetlen vagyok, hiszen rossz helyen kerestetem:
set ujszam= Sheets("pm_nk_arlista_uj").UsedRange.columns(1).Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, LookIn:=xlvalues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
helyett:
set ujszam= Sheets("pm_nk_arlista").UsedRange.columns(1).Find(What:=Sheets("pm_nk_arlista_uj").Cells(i, 1).Value, LookIn:=xlvalues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)Remélem, több elnézésem már nem lesz benne.....
Üdv.
-
-
biker
nagyúr
Lenne két kérdésem:
- adott egy o2003 alatt irt excel tábla, benne egy lapon rengeteg hivatkozás a többi lapra. Akkor engedélyezett volt a csak munkalapra linkelés. Most 2010 alatt az összes link hibás, mert a munkalap!A1 re jó csak. Van ötlet a tömeges link átírásra? Vagy a 60-70 linket írjam át kézzel?
- tervezem beszerezni az o365 verziót, egyetemit, legalább meg lenne macre is, de macre még az o2011 van benne, ami tudtommal angol. Régen volt gond a képletekkel, a magyar ÁTLAG vagy SZUM vs AVG vagy SUM
Ez még gond?Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
Fferi50
őstag
Szia!
Mit értesz azalatt, hogy csak munkalapra linkelés? Akkor honnan tudtad, hogy melyik cellára vonatkozik? Viszont sajnos azt gondolom, csak kézzel - vagy makróval lehet átírni a hivatkozásokat, de ha az Adatok menüpontban a hivatkozásokra ránézel, akkor ott egyenként végig lehet menni rajta úgy emlékszem.
A makró nyelve most is "international", azaz angol. Tehát, ha makróból írsz képletet egy cellába, akkor a függvények angol nevét kell írnod. Van ugyan egy könnyítés a formulalocal property, amelyikkel a magyar neveket használhatod, DE akkor a makród nem lesz hordozható, mivel más nyelven nem érti majd meg a képletet.
Üdv.
Új hozzászólás Aktív témák
- Mindent megtudtunk az új Nokia 3210-ről
- Kerékpárosok, bringások ide!
- Milyen billentyűzetet vegyek?
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- nVidia tulajok OFF topikja
- Vezetékes FÜLhallgatók
- Léghűtés topik
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- Otthoni hálózat és internet megosztás
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen