-
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
-
JagdPanther
aktív tag
sziasztok!
Alábbi kóddal összemásolok több, azonos struktúrájú file-ban lévő sorokat egy (ugyanolyan struktúrájú) gyűjtő file-ba, soronként egymás alá. A kód lefuttatásakor mindig felülírja a korábban a gyűjtőfile-ban szereplő sorokat.
Ezen szeretnék úgy változtatni, hogy a kód újrafuttatásakor mindig a legalsó, azaz üresen marad sorba kezdje el másolni a sorokat.
Légyszi segítsetek, nem jövök rá hogyan írjam át!Sub MergeSelectedWorkbooks()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim SelectedFiles() As Variant
Dim NRow As Long
Dim FileName As String
Dim NFile As Long
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
' Create a new workbook and set a variable to the first sheet.
Set SummarySheet = Sheets("Sheet1")
' Modify this folder path to point to the files you want to use.
FolderPath = "C:\Users\pc\Sajat_tarhely\Munka\Karbantartás\Gyűjtőszámlák"
' Set the current directory to the the folder path.
ChDrive FolderPath
ChDir FolderPath
' Open the file dialog box and filter on Excel files, allowing multiple files
' to be selected.
SelectedFiles = Application.GetOpenFilename( _
filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=True)
' NRow keeps track of where to insert new rows in the destination workbook.
NRow = 4
' Loop through the list of returned file names
For NFile = LBound(SelectedFiles) To UBound(SelectedFiles)
' Set FileName to be the current workbook file name to open.
FileName = SelectedFiles(NFile)
' Open the current workbook.
Set WorkBk = Workbooks.Open(FileName)
' Set the source range to be A6 through last row.
Dim LastRow As Long
LastRow = WorkBk.Worksheets(1).Cells.Find(What:="*", _
After:=WorkBk.Worksheets(1).Cells.Range("A1"), _
SearchDirection:=xlPrevious, _
LookIn:=xlValues, _
SearchOrder:=xlByRows).Row
Set SourceRange = WorkBk.Worksheets(1).Range("A6:V" & LastRow)
' Set the destination range to start at column A and be the same size as the source range.
Set DestRange = SummarySheet.Range("A" & NRow)
Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
SourceRange.Columns.Count)
' Copy over the values from the source to the destination.
DestRange.Value = SourceRange.Value
' Increase NRow so that we know where to copy data next.
NRow = NRow + DestRange.Rows.Count
' Close the source workbook without saving changes.
WorkBk.Close savechanges:=False
Next NFile
End Sub -
Pakliman
tag
válasz JagdPanther #36601 üzenetére
Közben átnéztem a kódodat, az alábbi már tárgytalan...
[Ebben] a hozzászólásban van az utolsó használt sor ill. oszlop meghatározására használt makróm, próbáld ki.
NEM azonos a "SpecialCells()" metódussal![ Szerkesztve ]
-
Pakliman
tag
válasz JagdPanther #36601 üzenetére
Az
NRow = 4
helyett meg kellene határoznod a jelenlegi utolsó sort:Pl.:
NRow = SummarySheet.Cells.Find(What:="*", _
After:=SummarySheet.Cells.Range("A1"), _
SearchDirection:=xlPrevious, _
LookIn:=xlValues, _
SearchOrder:=xlByRows).RowA másolandónál:
Meghatározod a másolandó munkalap utolsó sorát, aztán:WorkBk.Worksheets(1).Range("A6:V" & LastRow).Copy
(Biztos, hogy "A6"?)SummarySheet.Cells(NRow + 1, 1).PasteSpecial Paste:=xlPasteValues
(ha csak az érték kell)[ Szerkesztve ]
-
tgumis
tag
Sziasztok!
Combobox problémám van.
Office 2016 al dolgozom
Anno csináltam egy táblázatot ahol:
A oszlopban elhelyeztem A18 tól A37 ig 30 comboboxot
ahogyan a comboboxban elkezdtem begépelni valamit akkor szűkített listából választhattam ki amit kerestem majd ez megjelent a B oszlopban
No most ha szűrök kikapcsolom a szűrést vagy a törlök( makrókkal van megoldva) összerántja az összes comboboxot a 30. sorba és a 4 től lefelé nem engedi már a comboboxot használni sem
Csatolva 2 kép a munkafüzetről és a comboboxot tulajdonságai( bal oldalt az egyes jobb oldalt a 30 -as)
Van ötletetek mi a gond? -
Songo
senior tag
Köszönöm szépen. a segítséget. ezt sikerült megoldani
Másik kérdésem amiben szeretnék segítséget kapni.
Évek óta vezetek saját kis könyvelést hogy mikor mire mennyit költünk. és pár havonta összegezzük az adatokat. A gondom az hogy most már kezd sokáig tartani.
Van arra valami mód hogy egy munkafüzetből (1be átraktam az összeset) monjuk összeadja azon C oszlopok tartalmát ahol a B oszlopban az auchan szó szerepel?
Nagyon szépen köszönöm
-
Songo
senior tag
óóó köszönöm szépen éjjel rá vetem magam
Eddig még mókás volt havi 10-20percet ezzel foglalkozni de most már több mint egy óra mire össze szedek minden infót és megoldás kellett
Az ember rabja a saját fura szokásainakköszönöm
-
allein
addikt
Sziasztok. Adott egy excel file amiben rendelések vannak, így néz ki: A oszlop a dátum, B oszlop az order ID, C oszlop SKU kód, D oszlop termékneve, E oszlop mennyiség, F oszlop az ország.
Egy order ID előfordul több alkalommal is a B oszlopban mert tartalmazhat több terméket, milyen módon tudom megszűrni vagy módosítani a B oszlopot úgy, hogy egy order ID egyszer legyen benne?
Excel 2016, példa a fotón:
[ Szerkesztve ]
http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein
-
Pikkolo^^
addikt
A következő cellákkal rendelkezem.
A1: Kutyák száma 15, macskák száma 4, halak száma 8
B1: Macskák száma 5, kutyál száma 4
C1: Halak száma 9, malacok száma 6, kutyák száma 100Ezekből a cellákból kellene kinyernem az állatok számát. A szövegek mindig ugyanazok, azaz ha "rákeresnék" a "Kutyák száma"-ra és valamelyik függvény megadja hányadik a K betű és onnan a BAL-al 15 karaktert kivágnék akkor az már nekem oké. A kérdésem, hogy mivel tudnám visszajeleztetni hányadik karakter a K betű vagy hányadikkal kezdődik a "Kutyák száma". Remélem érhető volt, hogy mit szeretnék.
-
allein
addikt
válasz föccer #36614 üzenetére
Köszi szépen, működik. Azt nem tudom megcsinálni, hogy minden oszlopból kivegye? Tehát amikor az B oszlopból eltávolítom az ismétlődő rendeléseket, többi oszlopból is kivegye az adatokat.
Szerk: Nem található ismétlődő érték, ez jelenik meg Szerk: Megvan, csak a B oszlopon hagytam a pipát, így már jó lett.
Nagyon szépen köszönöm a segítséget
[ Szerkesztve ]
http://phmegbizhatosag.atw.hu/phtabla.php?nev=allein
-
föccer
nagyúr
-
sven08
csendes tag
Sziasztok!
Olyan kérdésem lenne, hogy hogy lehet oszlopokat 1 oszlopba rendezni?
tehát ha az szerepel, hogy A1 B1 C1 D1 D1 abból az legyen hogy A1 A2 A3 A4Segítségeteket előre is köszönöm!!!
-
sven08
csendes tag
Az értékettől most tekintsünk el, de az alaphelyzet valami hasonló:
kutya
macska
sün béka tehén
malac
szarvas
liba kacsa
madár
ember növény víz hó tenger
ordas
dereng
.
.
.
.
.Ahol egymás után többet soroltam fel az szimbolizálja, h az az érték egy másik oszlopban van
-
sven08
csendes tag
válasz Ghoosty #36623 üzenetére
Igen, végül is működött vele. Csak azt hittem, h van egy egyszerűbb módja is, mert így abban az esetben ha az egészet egyben kijelöltem, akkor azokat a cellákat, amelyek alap esetben egymás alatt jöttek,azokat is áttranszponálta és egymás mellé rakta, míg azok amelyek egymás mellett voltak, azokat szépen egymás alá rendezte, vagyis kisebb darabokban tudtam egymás alá másolni.
Köszi a segítséget!
-
Peetey91
senior tag
Sziasztok!
Megoldható valahogy az alábbi probléma?
Van egy csomó ember, akinek a születési dátuma csak számokból áll, nincs rajta beállítva semmi, hogy dátumként kezelje, csak így lettek kiírva egy adatbázisból. Valahogy van lehetőség arra, hogy az életkorukat megkapjuk?
Köszi -
the radish
senior tag
Sziasztok!
Van arra lehetőség, hogy hibaüzenetnél ne részletezze mi a probléma?
Konkrétan:
A "runtime error" alatti részt kéne eltüntetni, ha van rá mód.
Előre is köszönöm.
-
Fferi50
őstag
válasz the radish #36629 üzenetére
Szia!
Arra van lehetőség, hogy a futásidejű hibák ne okozzanak leállást, illetve korrigálhatók legyenek. Nézz utána az On Error Goto ill. az On Error Resume utasításoknak a Help-ben.
Üdv.
-
kezdosql
tag
Kepletszerkeszteshez kernek SOS segitseget, keddre kell megcsinalni, tegnap ota szenvedek vele.
Magyar Word2003-at hasznaltam evekig, most angol 2013 word-ben kell ennel bonyolultab kepletet beillesztenem a szovegbe:
(kell y atlag es y kalap negyzet, es kell x2 negyzet is.)
Az angol wordben megtalaltam a kepletszerkesztot, de csak otfele semat engedelyez, y negyzetet be tudok irni, de kalapossal negyzetet mar nem, vaalmint also es felso index egyideju hasznalatara csak az integral jelnel van lehetoseg.
Biztos van valahol tobbfele megoldas is, de nem jutottam tovabb.:-(Ha valaki ismeri az angol word 2013-at, es epp unatkozik hetvegen, biztosan igerhetem, hogy orok halam uldozne elete hatralevo reszeben.
-
föccer
nagyúr
válasz kezdosql #36632 üzenetére
Szeirntem próbáld meg a Mathlabbal, vagy talán wolfram alphával. Előzőben nagyon jó a képlet szerkesztő. Elvileg van online változata is, bár ahogy nézem regisztrációhoz kötött. Mathlabot kb 12-13 éve használtam, profi cucc.
Excel nem ilyen képlet kirajzoláshoz való.
Építésztechnikus. Építőmérnök.
-
-
BullZeye
veterán
Van egy képletem, ami több munkalapról venné az adatot. Mivel tudom megoldani, hogy pl az A:1 cellába beírom a munkalap nevét, és rögtön arról a munkalapról dolgozzon, ahelyett, hogy átírom a képleteket?
Itt a képlet példának:
=HAHIBA(FKERES($A6;Munkalap1!$C:$P;2;HAMIS);"")
Még jobb lenne, ha A:1 cella legördíthetően választható legyen hogy Munkalap1, Munkalap2, Munkalap3 stb.
-
EmberXY
addikt
Sziasztok!
A HA függvény használatával kapcsolatos kérdésem lenne.
Az adott formátum működik gond nélkül:
=HA(B2<=1000;1;0)
De ezzel már gond van:
=HA(500<B2<=1000;1;0)
A relációnál csak egy fajtát tud figyelembe venni, vagy én szúrok el valamit?
Köszönöm előre is a segítséget.Up the Irons!
-
EmberXY
addikt
Sziasztok!
Ismét elakadtam, vélhetően megint egy általános iskolai példán:Az árak minimumát a MIN függvénnyel meghatároztam, viszont a minimum ár melletti nevet kellene bevinnem az X32 cellába, ehhez mivel kell kombinálnom a függvényt?
Köszönöm előre is a segítséget.Up the Irons!
-
toth_janika
őstag
Sziasztok!
Nem tudom, meg lehet-e oldani a következő problémámat. Magyar nyelvű O365-ben dolgozom.
Van 5 db egyenként 20-30e sort tartalmazó excel fájl, ami megrendeléseket tartalmaz. A megrendeléseknek van nevük, értékük, stb. A vevőket, akik a megrendeléseket kérik, "Azonosító" számuk van.
A táblák mindegyikében más más adatok szerepelnek (csöveg, csavarok, stb), de az "Azonosító" mindegyikben megtalálható (hiszen az ügyfelek vásárolnak mindent). Ez az "Azonosító" szerepelhet többször is egy fájlban, de az is előfordulhat, hogy egy fáljban egyetlen egyszer sem szerepel.
Cél, hogy megmondjam, hogy az "Azonosító" melyik fájlokban van és milyen értékeket visel.
Eddig én úgy csináltam, hogy az 5 db excel fájl tartalmát egy fájlba másoltam (külön munkalapokra), majd egy 6. munkalapon bemásolom az összes "Azonosító" számot, majd duplikációk eltávolítása után, oszlopokba rendelem, FKERES segítségével, hogy melyik azonosító melyik fülön található meg.
Ennek eredménye egy több száz megás excel fájl, ami kezelhetetlen.
Nem lehet valahogy megoldani, hogy a táblákat összekapcsoljam és csak a nekem szükséges adatok jelenjenek meg egy külön munkafüzetben?
Próbálkoztam PowerPivot-al, de nem találok olyan oszlopot, ami csak egyedi értékeket vesz fel...
Remélem nem voltam túl bonyolult...Flickr - http://www.flickr.com/photos/toth_janos/
-
Delila_1
Topikgazda
válasz toth_janika #36649 üzenetére
Egy üres füzetbe bemásolod az 5 fájl adatai EGY lapra, egymás alá. 1-1 másolás után egy új oszlopba beírod, melyik füzetből valók az adatok.
Kimutatást készítesz a táblázatodból, amiben szerepel az azonosítót-, és a füzet nevét tartalmazó oszlop is.
Makróval lehet automatizálni a folyamatot, de ahhoz több ismeretre van szükség.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Canva Pro előfizetés - 1 éves