- 420 mm-es AIO-val jön a DeepCool "lopakodó" alaplapokat is támogató nagytornya
- Primary RGB Tandem OLED panelt kap az LG 27 hüvelykes gaming monitora
- Megmenti a Sony 8K-s ígéretét a Pure Pool Pro
- Sallangoktól mentes ultraszéles monitorral jelentkezett az LG
- Válságba taszíthatja Oregon államot az Intel leépítése
- Vezeték nélküli fülhallgatók
- AMD GPU-k jövője - amit tudni vélünk
- Házimozi belépő szinten
- TCL LCD és LED TV-k
- Milyen házat vegyek?
- Úgy tér vissza a Commodore 64, ahogy titkon mindenki várja
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Melyik tápegységet vegyem?
- Milyen egeret válasszak?
- Milyen notebookot vegyek?
-
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
-
#28200
Delila_1
veterán
the radish
#28199
Delila_1
veterán
válasz
the radish
#28199
üzenetére
Szívesen.
Én az elejére tettem.
-
#28198
Delila_1
veterán
the radish
#28197
Delila_1
veterán
válasz
the radish
#28197
üzenetére
Ki kellene ürítenie a lapot.
Legyen helyette WSM.Cells.ClearContents -
#28197
the radish
senior tag
Delila_1
#28196
-
#28196
Delila_1
veterán
the radish
#28189
Delila_1
veterán
válasz
the radish
#28189
üzenetére
Sub masolas()
Dim tol, ig
Dim WSI As Worksheet, WSM As Worksheet
Dim sorszam 'az A oszlop értékei
Dim sorM As Long 'ahova másolsz
Set WSI = Workbooks("Innen masol.xlsm").Sheets("Innen_lap")
Set WSM = Workbooks("Masolat.xlsx").Sheets("Masolat_lap")
WSM.Cells = "" 'másolat lapjának kiürítése
WSI.Activate
Rows(1).Copy WSM.Range("A1") 'fejléc másolása
sorszam = 1: tol = 2
Do While Cells(tol, 1) <> ""
sorM = Application.CountA(WSM.Columns(1)) + 1 'ebbe a sorba kell másolni
tol = Application.Match(sorszam, Columns(1), 0)
If VarType(tol) = vbError Then 'ha nem talált tol értéket
MsgBox "Kesz"
Exit Sub
Else
ig = Application.Match(sorszam, Columns(1), 1)
Rows(tol & ":" & ig).Copy WSM.Range("A" & sorM)
Makro 'Itt indul a saját makród
sorszam = sorszam + 1 'növeljük a keresendő értéket
End If
Loop
End Sub
Sub Makro() 'ez a saját makród
MsgBox "Makró"
End Sub -
spe88
senior tag
Sziasztok,
Továbbra is küzdök a drag n dopos HTML fájlok másik XLS fájlba való másolásával!
Addig már sokatok segítségével eljutottam, hogy belehúztam egy XLS fájlt a makróba és kidobta az elérési utat onnan meg már egyszerűen húzza be az adatokat, ha nyitva van az adott Excel!
A probléma most abban rejlik, hogy ez csak Excel fájlokkal működik. Értelemszerűen HTML-lel nem!
Ha átnevezem XLS-sé a kiterjesztést attól még a fájl "magja" HTML marad!Ha a HTML-t elmentem "mentés másként"-tel Excel fájlba, akkor OK minden! Na de ezt szeretném automatizálni a több 1000 stüli miatt!
Szóval van olyan makró, vagy bármilyen megoldás, hogy belehúzók egy HTML fájlt drag n doppal egy Excel szövegdobozba (makróba) és az lementi "mentés másként"-tel egy Excel fájlba ugyanoda ahonnan a HTML fájlt behúztam! Vagy valami hasonló!
Ezekhez már elég magas szintű Excel tudás kéne szerintem, ami nálam nagyon hiányzik!
Köszi
-
#28194
the radish
senior tag
Fferi50
#28192
the radish
senior tag
válasz
Fferi50
#28192
üzenetére
"Legyen egy fejléc az első sor.
Utána autoszűrő az A oszlopra, értéke 1, ami látszik - SpecialCells(xlCellTypeVisible - azt átmásolod - a fejlécet "kiütöd belőle" az új helyen. (Ezt akár makrórögzítő mellett is megteheted).
Ezután szűrő 2 és másolás, kiütés.
Ezt folytatod addig, amíg a szűrés után egyetlen sor marad látható - a fejléc."Ok, de hogy vegyem rá a makrót, hogy az üresnél álljon le? Mivel az egyik adatbázis pl. 7, míg a másik csak 4 adatsort tartalmaz.
"Vagy: A megkapott adatokat rendezed az A oszlop szerint és utána az egészet átmásolod (szerintem ez az igazán nyerő)."
Igen ez lenne a legegyszerűbb, de itt is szeparálni kéne. Mondjuk arra gondoltam, hogy legyen egy változó érték, ami kezdődik az "A1"-el, A makró futását követően adjon hozzá 1-et, és így már a 2-es adatsort másolja át. De egyáltalán hogyan tudnám elérni, hogy az "A" oszlop értékei szerint külön-külön másolja át a sorokat? (Ha menne, akkor valóban ez lenne a legmegfelelőbb.)
-
#28192
Fferi50
Topikgazda
the radish
#28189
Fferi50
Topikgazda
válasz
the radish
#28189
üzenetére
Szia!
Legyen egy fejléc az első sor.
Utána autoszűrő az A oszlopra, értéke 1, ami látszik - SpecialCells(xlCellTypeVisible - azt átmásolod - a fejlécet "kiütöd belőle" az új helyen. (Ezt akár makrórögzítő mellett is megteheted).
Ezután szűrő 2 és másolás, kiütés.
Ezt folytatod addig, amíg a szűrés után egyetlen sor marad látható - a fejléc.Vagy: A megkapott adatokat rendezed az A oszlop szerint és utána az egészet átmásolod (szerintem ez az igazán nyerő).
Üdv.
-
#28189
the radish
senior tag
the radish
senior tag
Sziasztok!
Adott egy makró, mely egy bizonyos adatsorból készít kimutatást.
Eddig nem is volt probléma, de a forrásadatot most már "tömbösítve" kapom, azaz nem naponként, hanem ciklusonként, mely több nap adatait tartalmazza. A cél az lenne, hogy kicsit automatizáljam a folyamatot, a következők szerint:
"A" oszlop tartalmazza a rekordok azonosítóját (naponta nő (+1)), "B"oszlop a rekord, "D" a dátum.
Tehát a következőt szeretném elérni:
A jelenlegi makró a futás elején másolja át egy másik munkafüzetbe sorrendben az 1-es, számú rekordokat, fusson végig, majd kezdje elölről, azaz másolja át a 2-es számú rekordokat, fusson le, majd jöjjön a 3-as.... Ha nincs az adatsorban több rekord, azaz üres cella következik, fejeződjön be a makró futása.Előre is nagyon köszönöm a segítségeteket!
-
#28187
Polllen
félisten
ritterkrisz
#28186
Polllen
félisten
válasz
ritterkrisz
#28186
üzenetére
Az idézőjelen belülre, ahová kell, gondolom az xx-nél lemaradtat pótolnád:
="x y z -- " & ", xx: " & A1 & ", yy: " & B1 & ", zz: " & C1
-
cekkk
veterán
válasz
Fferi50
#28173
üzenetére
Köszönöm a válaszod!
Így néz ki.
Itt nekem nem lényeg, hogy az adott sorban megváltozik valami mert két oszlopom van és az A oszlopban lévő üres cellákat szeretném eltüntetni és a B oszlopban hozzá tartozó érték felesleges.
Közben ki próbáltam és ezzel sem tudok egyszerre 10-20 üres sort törölni
-
#28181
poffsoft
veterán
ritterkrisz
#28180
poffsoft
veterán
válasz
ritterkrisz
#28180
üzenetére
simán használd az & -et:
D1-be:
="x y z -- " & "xx: " & A1 & ", yy: " & B1 & ", zz: " & C1 -
#28180
ritterkrisz
tag
ritterkrisz
tag
Még egy kérdés..
A1 B1 C1 D1.. cellák tartalmát szeretném összevonni egy egy cellába, de úgy, hogy veszzővel és space-el legyenek elválasztva, majd ezek elé egy-egy szót beszúrni??
(A1 -- X, B1 -- Y, C1 -- Z ------> D1 -- x y z majd D1 xx: X, yy: Y, zz: Z
-
#28179
ritterkrisz
tag
ritterkrisz
tag
Sziasztok, Adott cellák tartalmát szeretném kiegészíteni egy fix adattal/szöveggel, hogy lehet ezt megoldani?
( A1 cella tartalma: xyz és azt szeretném, hogy xxx/xyz legyen)
Előre is köszönöm a megoldást
-
-
poffsoft
veterán
válasz
morgusz
#28171
üzenetére
upsz, kis hiba maradt,
az a selection.clear nem kell a vége felé!Sub proba()
Dim lista() As String
Dim i As Long
Dim usor As Long ' last used row in source sheet
Dim lrow As Long ' last row in this sheet
Dim scol As Long ' first column of actual formulas source
Dim ecol As Long ' last column of actual formulas source
lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
Worksheets(lista(0)).Activate
For i = 1 To UBound(lista)
usor = Worksheets(lista(i)).UsedRange.Rows.Count
scol = ((i - 1) * 4) + 1
ecol = ((i - 1) * 4) + 3
lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
If lrow < 3 Then lrow = 3
ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
Next i
End Sub -
poffsoft
veterán
válasz
morgusz
#28171
üzenetére
Sub proba()
Dim lista() As String
Dim i As Long
Dim usor As Long ' last used row in source sheet
Dim lrow As Long 'last row in this sheet
Dim scol As Long ' first column of actual formulas source
Dim ecol As Long ' last column of actual formulas source
lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
Worksheets(lista(0)).Activate
For i = 1 To UBound(lista)
usor = Worksheets(lista(i)).UsedRange.Rows.Count
scol = ((i - 1) * 4) + 1
ecol = ((i - 1) * 4) + 3
lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
If lrow < 3 Then lrow = 3
ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
Selection.Clear
Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
Next i
End Suba lista=split( után az idézőjelek között vesszővel elválasztva kellenek a munkalapnevek.
Munka1 az összesítő lap neve, a többi pedig a források, ahogyan mondtad, Munka2-től Munka9-ig. -
randras
veterán
válasz
randras
#28166
üzenetére
Sikerült egy kis trükkel (mySQL-el
) a kívánt formára hozni. Most soronként adott bank adott napi maximum eladási értéke van a táblázatban.Viszont marhára nem tudok megfelelő diagramot csinálni belőle.
Olyat szeretnék, ami bankonként egy vonalon ábrázolja az eladási árfolyam változását az idő múlásával, és minden bank egy külön vonal, hogy vizuálisan látható legyen, melyik drága, és melyik olcsó tartósan (mert remélhetőleg valami ilyesmi fog kijönni, tartós tendencia...). -
Fferi50
Topikgazda
Szia!
Egy kicsit pontatlanul fogalmazol.
"egy oszlopból, hogyan lehet kitörölni azokat a sorokat ami nem tartalmaz adatokat és üresek"
Egy oszlopban csak cellák vannak, amelyek lehetnek üresek is.
Ha egy db cellát törölsz, akkor eldöntheted, hogy a cellától jobbra vagy az alatta levő cella "tolódjon" a helyére, de valamelyik megtörténik, azaz megváltozik az adatszerkezet.
Ha egész sort törölsz, a többi oszlopban levő adat is törlődik.
Autószűrő - az üresek látszanak opció kiválasztása után a megjelenő üres sorokat kijelölés után egy mozdulattal tudod törölni, viszont egy-egy cellát külön nem lehet. (sorok kijelölve - jobb egérgomb, sorok törlése).Üdv.
-
morgusz
csendes tag
Sziasztok!
Egy olyan makrós megoldást szeretnék, ami a munka1 lap A2, B2 és C2 celláiba előre bemásolt függvényeket addig másolja tovább lefelé az oszlopokban, ahány sorban adat van a munka2 munkalapon, amire a függvények hivatkoznak.
Ugyanígy az E,F,G oszlopban, a munka3 munkalapra vonatkozóan, és így tovább. Még további 9 munkalapról kell adatokat kinyerni.Most fixen 5000 sorig vannak a függvények, (30 MB fölött van a fájl mérete,) de csak nagyon ritkán van szükség ennyire. Van olyan munkalap amelyiken csak 300 sor van. Szóval eddig lassan töltődött be a fájl de makrós megoldással talán kisebb lenne a mérete. (Habár azt nem tudom hogy a makró mennyivel növeli.)
Előre is köszi!
-
#28169
poffsoft
veterán
dellfanboy
#28167
poffsoft
veterán
válasz
dellfanboy
#28167
üzenetére
jobbklikk a diagramon, "előrehozás", "hátraküldés"
-
randras
veterán
Sziasztok,
adott egy ilyen táblázat (bankok elmúlt fél évi USD eladási árfolyamai). De naponta többször is tartozhat egy bankhoz érték, és így nem tudom grafikon ábrázolni.
Talán az jó lenne, ha egy adott bank egy adott napi legmagasabb eladási értéke maradna meg egyedül, ezt meg lehet valahogy csinálni?
-
#28165
poffsoft
veterán
dellfanboy
#28161
poffsoft
veterán
válasz
dellfanboy
#28161
üzenetére
-
#28164
poffsoft
veterán
dellfanboy
#28161
poffsoft
veterán
válasz
dellfanboy
#28161
üzenetére
így nem lehet.
azt a bonyolultabb másik megoldással lehetne (két diagram egymáson) -
#28160
poffsoft
veterán
dellfanboy
#28156
poffsoft
veterán
válasz
dellfanboy
#28156
üzenetére
igen, el kell csúsztatni a sorokat.
Így valójában 24 halmozott oszlopod lesz, de mivel a párosoknak nem adsz címkét, a páratlanokat pedig egyesével számozod, így úgy látszik, mintha...
-
bayay
csendes tag
válasz
poffsoft
#28153
üzenetére
Köszönöm szépen!
Megint egy lépéssel közelebb van a dolog. Amikor a start dátum hónap napja nagyobb az end dátum hónap napjánál, akkor azonban egyel kevesebb az eredmény. Ezt lehet egy újabb HA-val meg lehet oldani, de ez utóbbi képletedet már nem értettem meg, tehát nem mertem beleírni sem
A segédoszlop nem gond, hely van bőven. Gondoltam rá én is, hogy kilistáznám a két dátum közötti összes napot és megszámolnám a megfelelő értékeket, itt abba az akadályba ütköztem, hogy nem tudom automatizálni, hogy minden megnyitáskor az aktuális end dátumig írja ki a napokat és a keresés mezőt is automatikusan hozzáigazítsa ehhez.
-
#28155
poffsoft
veterán
dellfanboy
#28151
poffsoft
veterán
válasz
dellfanboy
#28151
üzenetére
ha jól értem, egy diagramban szeretnéd látni az első két sor halmozott oszlopát,
és a második két sor halmozott oszlopát?trükközéssel mehet (2 diagram egymáson, elcsúsztatva, az egyiknek minden területe átlátszóvá téve, kivéve az oszlopok maguk, rögzített tengelyhatárok, stb) ...
vagy ilyesmire gondolsz?:
-
poffsoft
veterán
D12-be:
=KEREK.FEL(TÖRTÉV(HA(DÁTUM(0;HÓNAP(A12);NAP(A12))<=DÁTUM(0;HÓNAP(C12);NAP(C12));DÁTUM(ÉV(A12);HÓNAP(C12);NAP(C12));HA(DÁTUM(ÉV(A12)+1;HÓNAP(A12);NAP(A12))<=DÁTUM(ÉV(B12);HÓNAP(B12);NAP(B12));DÁTUM(ÉV(A12)+1;HÓNAP(A12);NAP(A12));B12));B12);0)A: start, B: end; c:keresett
remélem ez már pontosabb.
Annyit azért kérdeznék, ha segédoszlopokat használna a képlet, az gondot okozna-e?
próbálgasd a dátumaiddal, és jelezz!
-
#28151
dellfanboy
őstag
dellfanboy
őstag
sziasztok
van 4 sor adatom 12 oszlopba
ezt a 4 sornyi (havi) adatot szeretnem halmozot oszlopdiagrammal abrazolni, hogy egy honaphoz 2 oszlop keruljon halmozottan(stacked column)
ha kijelolom ezt a intervallumot es beillesztem az oszlopdiagrammot akkor ugye 4 sort 1 honapnak vesz es lesz 4 oszlopom. azt szeretnem ha az elso ket sor lenne egy (halmozott)oszlop es a masodik ketto egy masik (halmozott oszlop).
van erre otletetek? -
bayay
csendes tag
válasz
poffsoft
#28140
üzenetére
Szia!
köszönöm szépen a képletet, jó kiindulási alapnak tűnik, majdnem mindig működik is, de sajnos a következő dátumokkal gondban vagyok:
http://logout.hu/dl/upc/2015-08/20/543737_y20k2lo8jgv5xnl4_untitled_1.jpg
ugye itt csak egyszer volt az intervallumban december 5-e, a képlet, ahogy átnéztem helyesen számol és 2-t ír ki, ez mégsem jó.
Lenne hozzá ötlet?
-
cekkk
veterán
válasz
poffsoft
#28145
üzenetére
Nem jól értelmezed. Mert a B-t nem kell vizsgálni.
Berakok egy képet.
Az "A" oszlopot kellene össze hasonlítani "C" oszloppal és a "B" oszlopba jelölni, hogy van egyezés. Majd fordítva is "C" oszlopot "A" oszloppal és a "D" oszlopba jelölni az egyezést és a nincs akkor mondjuk írja ki, hogy nincs. De nem akar jól működni nekem a Fkeres fügyvény
-
cekkk
veterán
Sűrűn kellene, így automatizálni kellene, de én hülye vagyok hozzá
A lényeg, hogy van egy termék lista az A oszlopban(ez állandó) és van egy másik termék lista mondjuk C oszlopban(ez változik).
Az kellene vizsgálni, hogy A oszlop elemei megtalálhatóak-e C oszlopbanban ha igen akkor B oszlopban ír egy 1est és még azt kellene viszgálni, hogy a C oszlop elemei között van-e olyan ami nem szerepel az A oszlop elemei között és ha a feltétel igaz akkor azt kijelöli vagy D oszlopba ír valamit oda, mert így kitudm majd egészíteni az A oszlopot és nem kellene egyesével átnézni.
Mondjuk lehet a legjobb az lenne ha két munka füzeten lenne külön külön?Ebbe tudsz tud valaki segítani?
-
bayay
csendes tag
Sziasztok!
A következőre keresek megoldást:
Adott két dátum, az egyik egy kiinduló dátum, a másik a mai nap, ezek egy-egy cellában vannak elhelyezve. A célom az, hogy a két dátum közötti időintervallumban megszámoljam egy adott nap.hónap kombinációból mennyi darab van.
Példa:
2012.03.01 és 2015.08.19 között hány darab január 1-je fordult elő. (az évszámra való tekintet nélkül)
A következő lépés pedig az lenne, hogy kettő dátumot adok meg feltételnek tehát nem csak a január 1-jét számolja meg, hanem pl. június 1-jét is és ezek előfordulásának összegét írja nekem ki.
Remélem sikerült elmagyarázni
Tudtok esetleg segíteni?
-
poffsoft
veterán
új drag, 4. labellel, némi csinosítással : [link]
Amúgy ha vba ablakban vagy , Forms/dragdrop1 <jobbklikk>:
view code: a form makrólapja
view object: maga a form (most ezt keresed)ezután a főmenüben View/Toolbox : az userform vezérlőinek menüje.
Itt a nagy A lesz a label, azt kijelölöd, és rajzolsz egyet az userformba. -
Rolfy
csendes tag
Sziasztok! Még nem tettem fel soha kérdést, így ha bénázok, előre is elnézést érte
A kérdésem a következő:
Excel 2007-ben, hogy oldom azt meg, hogy az "A" oszlopban van mondjuk 300 különböző érték. Keresse, vagy jelölje meg azokat az értékeket az "A" oszlopban, melyek összeadva mondjuk 369523 lesz, vagy ehhez a legközelebb eső érték. (Az "A"oszlop összeadva mondjuk 2000000, tehát biztosan kijön belőle -akár legjobb megközelítéssel is- a keresett érték.)
Előre is köszönöm a hasznos válaszokat. -
-
spe88
senior tag
válasz
Delila_1
#28130
üzenetére
működik köszi szépen!
most már csak azt kéne meg tudnom, hogy hogyan tudok erre hivatkozni egy másik lapról!
szóval van ez a sorom:
C:\abc mappa\xy\[proba.xlsx] a munka 1 lapon
hogyan tudnám azt megadni a munka 2 lapon, hogy a jelölt elérési úton lévő fájlból kinyerje az adatokat
ezzel próbálkoztam:
='Munka1!C12Munka1'!$A$1
Itt az elején lévő munka1!c12 az első lapon található cellát jelzi ahol a fájlnév van
a második Munka1'!$A$1
pedig a "linkelt" fájl munka 1 lapjának A1 cellájának az értékétEzek már nem mennek nekem
Köszi
-
Delila_1
veterán
A VBE-ben beteszed egy modulba. Ugyanúgy alkalmazhatod, mint az Excel függvényeit. Az fx ikonra kattintva bejön a felhasználói kategóriában, de a billentyűzetről is beviheted.
Ha pl. az A1-ben van a kapcsos zárójelek nélküli útvonal és név, egy cellában erre hivatkozhatsz.
=filename(a1)
-
-
Delila_1
veterán
Saját függvénnyel megoldható.
Function Filename(nev As Range)
Dim bal As String, jobb As String, b As Integer
For b = Len(nev) To 1 Step -1
If Mid(nev, b, 1) <> "\" Then
jobb = Mid(nev, b, 1) & jobb
Else
Exit For
End If
Next
Filename = Left(nev, b) & "[" & jobb & "]"
End Function -
spe88
senior tag
olyan függvény létezik Excelben, hogy egy adott cellában az utolsó olyan karakternek a pozícióját megadja, ahol a keresett karakter van (vagy jobbról az elsőt... ugyanaz...)
fájlnév miatt kéne
C:\abc mappa\xy\proba.xlsx <- ez az alap
ez kéne, ahhoz, hogy ezt tovább lehessen vinni:
C:\abc mappa\xy\[proba.xlsx]
megkeresném az utolsó perjelet és mellé tűznék egy [ jelet a végére meg &]
valami megoldás van rá?
Köszi
-
spe88
senior tag
Hi,
Ha nagyon sokszor kell és ebből mennek tovább függvények, akkor automatizálni lehet függvényekkel ((HA, FKERES, INDEX, HOL.VAN stb), makróval, de ha csak egyszer-kétszer akkor a feltételes formázás/cella kijelölés/ismétlődő értékek segíthet!
ha specifikusabb kell, akkor írd le pontosan, mert azt nem értettem, hogy van 2 oszlopod A és B és ha B-ben ott van A eleme, akkor oda egyet ír! de hova? esetleg egy másik oszlopba lehetne...
-
cekkk
veterán
Sziasztok!
Segítséget szeretnék kérni.
Lenne 3 oszlopom.
Az A ban lennének betűk számok vegyesen és a Cben is Bben pedig csak számok.
Az A oszlop elemeihez szeretném hasonlítani a B oszlopot vagy is ha B közt ott van az A eleme akkor az B oszlopba mondjuk 1et ír, ha a C oszlopban olyan elem van ami nincs a Aban akkor azt valahogy jelzi esetleg a Dbe ír valamit.Ez mennyire megoldható?
Köszönöm a segítséget.
-
-
Delila_1
veterán
válasz
marcyman
#28121
üzenetére
Másold a lenti makrót a lapod kódlapjára (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres részbe másold). Lépj vissza a füzetbe, és a G1 cellába írd be az utolsó sor számát, ahol a D oszlopban szám szerepel. A példád szerint ez 23.
Innen kezdve mikor a B oszlopba új adatot viszel be, a makró kiszámolja, hogy a jelzett cellák összege meghaladja-e a félmilliót. Ha nem, akkor a D oszlopba beírja az NT szöveget. Ellenkező esetben a maradékot, ahogy írtad, a G1-be beviszi az új sorszámot, az E oszlopban elvégzi a cellák összevonását, és beírja oda a következő sorszámot, a példa szerinti 209-et. beírja a C-be a B-D értéket.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim osszeg, sor As Long, tartomany As Range
If Target.Column = 2 And Target.Row > 2 And Target.Count = 1 And Target > "" Then
Application.EnableEvents = False
sor = Range("G1")
Set tartomany = Range("B" & sor + 1 & ":B" & Target.Row)
osszeg = Cells(sor, "D") + Application.WorksheetFunction.Sum(tartomany)
If osszeg >= 500000 Then
Range("D" & Target.Row) = osszeg - 500000
Range("G1") = Target.Row
Range("E" & sor + 1) = Application.WorksheetFunction.Max(Columns(5)) + 1
Range("E" & sor + 1 & ":E" & Target.Row).MergeCells = True
Range("E" & sor + 1 & ":E" & Target.Row).VerticalAlignment = xlCenter
Cells(Target.Row, "C") = Cells(Target.Row, "B") - Cells(Target.Row, "D")
Range("G1") = Target.Row
Else
Cells(Target.Row, "D") = "NT"
End If
Application.EnableEvents = True
End If
End Sub -
marcyman
aktív tag
Sziasztok
A képen látható táblázatot jelenleg kézzel a következőképpen töltjük: (Cél: magától töltődjön).
A D2 cella + a B3-B23 tartomány ha összeadjuk akkor az 508720, az efeletti részt 8720-at átírjuk a D23 cellába. A B23-ból (24420) kivonjuk a D23-at (8720) akkor jön ki a C23 (15520).
A lényeg, hogy ha eléri az 500000-et (de annál több lesz mindig valamennyivel), akkor a pluszt vezesse át a D oszlopba és ez a többlet kerüljön a következő 500000-es tételbe. Mindig a töblettel induljon, tehát a következő rész így nézne ki: A D23-tól indul (8720) és a B24-től kezdődik a következő tartomány. Amikor ez újra eléri az 500000-et, akkor újra vezesse át a maradékot, és így tovább.
Ha ezt megérti valaki...
-
BenJoe80
senior tag
Közben visszakerestem, és sikerült megtalálnom azt a hozzászólásomat, amikor u.e-t kérdeztem. A probléma már csak az, hogy hogy tudom a makrót beállítani Office 2013-ban?
-
BenJoe80
senior tag
Sziasztok!
Van egy táblázatom, ahol az egyik lapon (Acc.) összesítettem bizonyos cikkeket bizonyos számokkal. A másik lapon (January) pedig a "D" és "K" oszlopokban választhatok az összesített cikkeket, ahol korábban a megjelenítésnél csak a számok jelentek meg.
Valamiért most az egész összesített cikk megjelenik, nem csak a számkódok. Hogy tudom azt beállítani, hogy a "D" és "K" oszlopban csak a kódok jelenjenek meg?
A táblázatot még Office 2003-ban készítettem elég régen. Nem is nagyon emlékszem, hogy ezt hogy oldottam meg, plusz az Office 2013 még elég új nekem.
A segítséget előre is köszönöm!
-
spe88
senior tag
Sziasztok!
Tegnapi problémával nem jutottam előre, Google nem segített!
Szóval a konkrét helyzet:
- adott 3 HTML fájl, nekik mindig különböző fájlnevük van
- ezekből az összes adatot ki akarom nyerni egy Excel fájlba
- ha HTML-t megnyitom, akkor mindig egy lap van csak, amin az adatok vannak, tehát ez egyszerű
- a HTML fájlokat átneveztem XLS-sé és az Excel könnyedén tudja kezelni (csupán az elején megemlíti, hogy valójában nem Excel fájl, de OK után megjelenít mindent)
- az adott Excel fájlba, továbbiakban: "képletes" Excel fájl, amibe az adatokat akarom kinyerni, 3 különböző mindig azonos nevű munkalapon (SAP, PDM, NAV) akarom tárolni (a képletek miatt)Hogyan tudnám a legegyszerűbben az összes adatot átmásolni a 3 különböző munkalapra?
- copy paste egyrészt időigényes, mert CTRL+A-val nem jelöl ki mindent, meg, ha lehet ezt kihagynám (pár 1000 HTML van...)
- valami olyan kéne, hogy fogom belhúzom az eredetileg HTML fájlokat egyenként a "képletes" Excelfájlban valahol létrehozott helyre és automatikusan belemásolja az összes adatot a "képletes" Excel adott munkalapjárapl: van egy munkalapom a "képletes" Excel fájlban, hogy 'ADAT', van benne 3 "szövegdoboz": SAP, PDM, NAV
az SAP XLS-t (ami eredetileg HTML volt) belehúzom a "képletes" Excel fájl SAP "szövegdobozba" és makró vagy valami az összes adatot bemásolja a "képletes" Excel SAP fülre és így tovább...Vagy bármi hasonló megoldás jól jönne...
Ötlet?
Köszi
-
poffsoft
veterán
megoldható hogy az adott fájlokat dragdopolod- láttam már ilyen makrót..
(#28105) TrollBalint: Nem bántásból, de én az R1C1 típusú hivatkozásokat értettem a hsz-ből.
Ha valóban csak "R1C1" hivatkozásai vannak, akkor működik a módszered, de egy csomó más miatt még mindig nem fog működni a képlete (mint említettem, "," vs ";" probléma mint szeparátor, de pl. a függvénynevek is.
Azt továbbra sem értem, hogyhogy nem konvertálódik a workbook megnyitáskor. -
#28108
spe88
senior tag
szatocs1981
#28107
spe88
senior tag
válasz
szatocs1981
#28107
üzenetére
Köszi. Megpróbálom a makrot! Amúgy az a baj, hogy a 2 fájl sem mindig ugyanoda fog letoltodni mert többen hasznaljuk egy hálózaton... Ezért nehez szerintem...
-
#28107
szatocs1981
aktív tag
spe88
#28104
szatocs1981
aktív tag
Ha "szabályjal" meg tudod adni, hogy a két file hol helyezkedik el, akkor szvsz lehet automatizálni a beolvasást.
Pl.:
- ha a könyvtár mindig azonos és csak ez a két file van benne
- ha a könyvtár mindig azonos és ez a két file mindig a két legutolsó modosított file
...
..
.
Ha valamilyen szabályt fel tudsz állítani, akkor VBA-ban is el tudod érni biztonsággal.
Delila_1 által vázolt módon (FileDialogBox) is megoldható!
(csak sokat kell klikkelni, amit én speciel nem szeretek
) -
Delila_1
veterán
A lenti makróval megnyithatod az ismeretlen útvonalon lévő, ismeretlen nevű fájlodat.
Sub FileBehuzas()
Dim FD As Object, FN As String
Set FD = Application.FileDialog(3)
With FD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
FN = ""
MsgBox "Nem választottál fájlt", vbExclamation
Exit Sub
Else
FN = .SelectedItems(1)
End If
End With
Workbooks.Open Filename:=FN
End Sub -
spe88
senior tag
Hi,
Nem egyszerű a problémám:
Egy Excel fájlba kettő másik fájlból akarok adatokat másolni.
Az egyszerűsége annyi, hogy a letöltött fájlok mindig ugyanolyan oszlop fejléceket tartalmaznak alatta persze más számokkal!
Tehát az egyik fájlban van két oszlopom, aminek a "fejléce" ezt tartalmazza ABC és DEF az alatta lévő számokat át kell másolni az én Excel fájlomba a másik fájlnál is! Ez eddig sima!A probléma abban rejlik, hogy a letöltött fájlnevek mindig mások, tehát nem tudok neki egy elérési utat megadni!
Hogy lehet azt megoldani, hogy a mindig más fájlnevű 2 adott Excel fájlt (amiből az adatokat ki akarom nyerni) azt behúzzam egyfajta Drag and Drop módszerrel abba az Excel fájlba, amibe az adatokat ki akarom nyerni és akkor már tudja az "elérési utat"!
Gondolom ilyen módszer nincs vagy ehhez hasonló! Köszi
-
Roley_05
csendes tag
Sziasztok!
Miként tudom azt megoldani, hogy a makron belül a 3-as érték (R3C3 érték második száma) paraméterezhető legyen, azaz egy adott változó értéke kerüljön oda mindig (Pl.: x=1)
ActiveCell.FormulaR1C1 = "=IFERROR(RC[-1]/(MAX(R3C3: R[-1]C[-1]))-1,0)"
)
Új hozzászólás Aktív témák
Hirdetés
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Vírusirtó, Antivirus, VPN kulcsok
- Humble megmaradt kulcsok Frissítve 06.05
- LG 55C4 - 48" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - A9 Gen7 CPU
- ÁRGARANCIA! Épített KomPhone i5 14400F 32/64GB DDR5 RTX 5060Ti 8GB GAMER PC termékbeszámítással
- LENOVO ThinkSystem NVIDIA Quadro RTX 6000 24GB PCIe Passive GPU
- Apple iPhone SE 16GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest