- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sziku69: Fűzzük össze a szavakat :)
- Parci: Milyen mosógépet vegyek?
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Samsung 980 PRO 1TB M.2 (MZ-V8P1T0BW) vs Samsung 990 PRO 2TB M.2 (MZ-V9P2T0BW)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- sh4d0w: Vigyázz a háttértáradra...
-
LOGOUT
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
-
#23300
gbela
senior tag
m.zmrzlina
#23299
gbela
senior tag
válasz
m.zmrzlina
#23299
üzenetére
2013-ban nincs ilyen beállítás, de sikerült közben megoldanom a gondom (bár a paraméterezett Excel shortcut tálcára juttatása is szép történet), szóval minden oks.
-
#23297
gbela
senior tag
m.zmrzlina
#23295
gbela
senior tag
válasz
m.zmrzlina
#23295
üzenetére
Igen, én is erre gondoltam elsőre (régiben ugye konkrétan abba az ablakba nyitotta meg alapból a fájlokat, és külön indítva excelt és azon menüből megnyitva a fájlt lehetett a két ablakot csak egymás mellé tenni, tehát ahogy írod is, két példány futott).
Viszont ha ugyanezzel a módszerrel nyitom meg most akkor is (mintha) ugyanabban a példányban nyitja meg. Tehát a probléma gyökere ha jól veszem ki, hogy nem sikerül két példányt futtatnom magából az Excelből.
Erre ötlet?
-
slashing
senior tag
jaja olyan mint régen a böngészők annyi böngészőt kellett nyitni amennyi oldalt néztünk most csak egyet és azon belül vannak a fülek, csak az excelben nincsenek fülek. Látszólag többször van megnyitva az excel de valójában csak egyszer... átfutottam a beállításokat de nem találtam rá utaló dolgot de nem lepődnék meg ha lenne rá valami registry hack vagy hasonló de azon sem ha nem lenne
-
#23295
m.zmrzlina
senior tag
gbela
#23294
m.zmrzlina
senior tag
Én ezt csak úgy tudom elképzelni, hogy korábban a két fájl két külön alkalmazásablakban volt megnyitva most meg egyben.
Magyarul egyetlen példányban van az excel megnyitva és azon belül a két fájl. Ha így van akkor nem szabad azt várni, hogy az aktív munkafüzet státuszsorában a nem atívhoz tartozó adatok látszódjanak.
-
slashing
senior tag
válasz
Des1gnR
#23292
üzenetére
két fájl egymás mellett külön ablakban az egyikben számok pl. A1:A10 mondjuk csupa 1-es ezt kijelölöd akkor a státuszsorban kiírja ezeknek az átlagát az összegét és hogy hány cella van kijelölve de csak addig míg át nem kattintasz a másik fájlra vagy munkafüzetre mert akkor már az lesz aktív és nem mutatja az előbbi adatokat lent...
-
gbela
senior tag
Sziasztok,
tegnap frissítettem Excel 2013-ra és egy alap kis dolog ami nagyban könnyítette a munkámat megváltozott.
Adott két munkafüzet nyitva egymás mellett. Egyikben mindenféle szűrés meg minden beállítva, és kijelölve egy cellacsoport számokkal. Alul mutatja ugye az összegüket, tökjó, örülünk, ezt kell nekünk begépelni a másik munkafüzet egyik cellájába. Namost 2010-es verzióban ez simán ment, itt viszont ha átkattintok a másikba akkor az elsőben eltűnik, nem mutatja lent a sum-ot. Minden előző verzióban ott megmaradt a kijelőlés, így simán be tudtam írni a másik ablakba. Naponta több tucat alkalommal kell ezt megtennem, most nem igazán látok rá megoldást, valaki esetleg? -
bteebi
veterán
válasz
Delila_1
#23286
üzenetére
Na, így már működik - vagyis egyszer lefut, jól. Azt hogy lehetne megoldani, hogy mindig legyen új inputbox, amíg cancel-t nem nyomok? Úgy a makró újraindítása nélkül több szót is le lehetne cserélni egymás után.
Sub csere()
Dim ws As Worksheet, cserelni As String
On Error Resume Next
Application.DisplayAlerts = False
cserelni = Application.InputBox(Prompt:="Írja be a cserélendő szót.", _
Title:="Csere", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Replace What:=cserelni, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
Next
End Sub -
bteebi
veterán
válasz
bteebi
#23281
üzenetére
És azt hogy lehetne megcsinálni, hogy egy input box-ba beírt értéket cseréljen le (mindig ugyanarra, ""-re)? Beírnám az értéket, lecseréli, és addig menne, amíg cancel-t nem nyomok.
Mások kódjai alapján egyelőre eddig jutottam, minden bizonnyal több hiba is van benne.
Először is: le se fut
, "Object required" hibát ír ki. Meg minden bizonnyal a ws.Cells.Replace What rész se stimmel. Meg tudnátok mondani, hogy hol hibáztam?Sub csere()
Dim ws As Worksheet, cserelni As String
On Error Resume Next
Application.DisplayAlerts = False
Set cserelni = Application.InputBox(Prompt:="Írja be a cserélendő szót.", _
Title:="Csere", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
If cserelni Is Nothing Then
Exit Sub
Else
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Replace What:="cserelni", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
Next
End If
End Sub -
#23283
m.zmrzlina
senior tag
bteebi
#23281
m.zmrzlina
senior tag
válasz
bteebi
#23281
üzenetére
A Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
SearchOrder:=xlByRows
helyesen: ws.Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
SearchOrder:=xlByRowsVagy kevésbé elegánsan: a
For Each ws In ActiveWorkbook.Worksheets
sor után ted be a következő sort:
ws.Activate -
bteebi
veterán
Sziasztok!
Olyat szeretnék csinálni makróval, hogy egy adott file összes munkalapján kicseréljek egy adott szót, pl. az almát körtére. Makró nélkül könnyen meg lehet oldani, hatókörnek a munkafüzetet kell megadni:
Ilyen opciót azonban VBA-ban sehol se találtam, ezért úgy gondoltam, hogy ciklusban lefuttatom az összes munkalapon. A kód:
Sub csere()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Cells.Replace What:="alma", Replacement:="körte", LookAt:=xlPart, _
SearchOrder:=xlByRows
Next
End SubAz aktív lapon lefut jól, de a többinél valamiért nem megy. Mi lehet a baj?
-
válasz
nobela
#23276
üzenetére
Feltételezve, hogy az A oszlopról van szó és a 2. sortól indul. Ha az első sortól akkor a for ciklus 1-től induljon. Ha másik oszlopról akkor pedig Cells( i, 1) részt írd át. Az 1 jelöli az A oszlopot, a 2 a B-t és így tovább. A Munkalap_neve természetesen a saját munkalapod neve legyen.
Sub YY()
For i = 2 To Sheets("Munkalap_neve").UsedRange.Rows.Count
Sheets("Munkalap_neve").Cells(i, 1).Value = "YY" & Sheets("Munkalap_neve").Cells(i, 1).Value
Next i
End Sub -
válasz
Fferi50
#23246
üzenetére
Közben az a helyzet állt elő, hogy van amikor az új árlistában kevesebb termék van, így azokat ami a "mi" listánkba benne van és az újba nincs, azt ki szeretném listázni egy új munkalapra.
Az általad írt ciklust fordítottam vissza és 80%-ban működik is, de a két munkalap sorainak számának különbségéből látom, hogy 21 terméket vettek ki az új listából, ám az én makróm csak 17-et listáz ki.
Sajnos nem jöttem rá, hogy mi a gond. (Remélem nem bonyolítottam túl a leírást.)For i = 2 To Sheets("pm_nk_arlista").UsedRange.Rows.Count
Set ujszam = Sheets("pm_nk_arlista_uj").UsedRange.Columns(1).Find(What:=Sheets("pm_nk_arlista").Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
If ujszam Is Nothing Then
Sheets("Kiesett_termékek").Cells(a, 1).Value = Sheets("pm_nk_arlista").Cells(i, 1).Value
Sheets("Kiesett_termékek").Cells(a, 2).Value = Sheets("pm_nk_arlista").Cells(i, 2).Value
Sheets("Kiesett_termékek").Cells(a, 3).Value = Sheets("pm_nk_arlista").Cells(i, 3).Value
Sheets("Kiesett_termékek").Cells(a, 4).Value = Sheets("pm_nk_arlista").Cells(i, 4).Value
Sheets("Kiesett_termékek").Cells(a, 5).Value = Sheets("pm_nk_arlista").Cells(i, 5).Value
a = a + 1
End If
Next iVan ötletetek?
-
Zirowe
nagyúr
válasz
rgeorge
#23270
üzenetére
Közben keresgéltem a topicban és találtam megoldást (elindítani rendesen a megnyitni kívánt excel dokumentumot, majd megnyitni egy új excelt és onnan a másodikat), ami az eddigi állapothoz képest mindenképpen haladás.
Viszont akkor amit te mondasz, hogy alkalmazásonként eltérő beállítást lehet adni, az hogyan oldható meg?
Tehát hogy a külön megnyitás legyen alap.Office 2010, illetve munkahelyi gép, feladatkezelő elérése le van tiltva (csak mert láttam olyan megoldást is, amihez az kellett).
-
-
Tido
aktív tag
Sziasztok, azt milyen függvénnyel tudom elérni, hogy egy egy oszlopban 4 szöveges elemet vizsgáljon, ha ezek közül az egyik értéke NO akkor az eredmény NO, ha a 4 elemből mindegyik OK, akkor OK legyen az eredmény?
HA függvényre gondoltam, de abban nem tudom beállítani a tartományt, csak 1 cellát vizsgál meg.
Köszi a segítséget!
-
Zirowe
nagyúr
Sziasztok, gyors kérdés, nem tudom volt-e már: több monitoros rendszer esetén hogyan lehet megoldani azt, hogy két megnyitott excel file két különböző monitoron jelenjen meg?
Mert míg ez működik worddel, addig az excel mindig egy monitorra viszi az össze megnyitottat. -
biker
nagyúr
-
Fferi50
Topikgazda
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.
-
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? -
Fferi50
Topikgazda
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.
-
#23245
m.zmrzlina
senior tag
Des1gnR
#23244
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. -
Fferi50
Topikgazda
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.
-
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.
-
Sasos
senior tag
-
Fferi50
Topikgazda
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. -
#23236
m.zmrzlina
senior tag
Des1gnR
#23235
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
-
#23235
Des1gnR
őstag
m.zmrzlina
#23233
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.
-
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... -
#23233
m.zmrzlina
senior tag
Des1gnR
#23231
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?
-
válasz
bandus
#23230
üzenetére
Köszi, közben sikerült megoldanom. Nem hagytam magam
![;]](//cdn.rios.hu/dl/s/v1.gif)
'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.
-
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
-
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. -
maestro87
őstag
Sziasztok!
Ez mitől lehet?
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. -
-
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!
-
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? -
#23218
lappy
őstag
PindurAnna
#23215
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á.
-
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 Sub -
#23215
PindurAnna
Közösségépítő
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
-
#23214
Fferi50
Topikgazda
m.zmrzlina
#23212
Fferi50
Topikgazda
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.
-
Fferi50
Topikgazda
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.
-
#23212
m.zmrzlina
senior tag
billyjoe
#23211
-
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
Topikgazda
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.
-
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!
-
Delila_1
veterán
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.
-
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.
-
Delila_1
veterán
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.
-
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.
, "Object required" hibát ír ki. Meg minden bizonnyal a 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
(/IMG)[/L]](http://cdn.rios.hu/dl/upc/2014-09/11/512837_odlykdzvcjvdmrfc_kepkivagas_800x140.jpg "[L:/dl/upc/2014-09/11/512837_odlykdzvcjvdmrfc_kepkivagas_800x140.jpg](IMG:/dl/upc/2014-09/11/512837_odlykdzvcjvdmrfc_kepkivagas_800x140.thumb.jpg)(/IMG)[/L]")
Új hozzászólás Aktív témák
- Kuponkunyeráló
- Milyen széket vegyek?
- Nők, nőügyek (18+)
- Fejhallgató erősítő és DAC topik
- Poco F3 - a mindenes, de nem mindenkinek
- Kerékpárosok, bringások ide!
- Milyen videókártyát?
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Elektromos autók - motorok
- Kormányok / autós szimulátorok topikja
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Vírusirtó, Antivirus, VPN kulcsok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok a legjobb áron: Steam
- Gamer PC-Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 1TB SSD
- LG 55B4 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- GYÖNYÖRŰ iPhone 13 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3206
- AKCIÓ! Lenovo IS8XM LGA 1150 DDR3 alaplap garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest