- iPhone topik
- Vodafone mobilszolgáltatások
- Telekom mobilszolgáltatások
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Eleglide C1 - a középérték
- Milyen okostelefont vegyek?
- Android szakmai topik
- DIGI Mobil
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
Hirdetés
-
VR játék lesz az Batman: Arkham Shadow (Meta Quest 3)
gp Egyelőre csak egy teaser trailert kaptunk a teljes leleplezésre a Summer Game Festen kerül sor.
-
Snapdragon 8-as szériával várhatók a Honor 200-ak?
ma A Honor 200 állítólag a 8s Gen 3-at, a 200 Pro változat pedig a 8 Gen 3-at használja majd.
-
Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
ph Megkezdődött az NPU-k elleni hadjárat, de egy fontos részletet nem említ a cé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
-
bucihost
senior tag
Sziasztok, van egy excel táblám ami egy rádió szerver lejátszási listáját tartalmazza.
Tartalom:
A oszlop: zene címe
B oszlop: hányszor lett lejátszva
pl:zene123.mp3 3
zene456.mp3 4
zene789.mp3 9na most nekem ezt szét kellene szednem oly módon, hogy minden zene annyiszor szerepeljen a listában, ahányszor le lett játszva.
ez megoldható valahogy?
-
bucihost
senior tag
ismét itt ....
Megvan a lista, amire szükség volt (Köszönöm Delila_1 mégegyszer), viszont még annyi lenne hátra hogy véletlenszerűen keverje össze a listát úgy, hogy egymást NEM követhetik az azonos sorok. Erre van megoldás?
-
bucihost
senior tag
Sziasztok!
Köszi az infókat. Reménykedtem benne, hogy van rá ha más nem valami makrós megoldás.
Más:
Használok egy ilyen függvényt:=HAHIBA(FKERES($A2;'I:\Kozos\excel\[bolt1.xlsx]Termékek 19.09.11'!$A:$N;5;0);"")
Ez kb 20-25 (boltra) oszlopra. Azt meg lehet valahogy oldani, hogy a különböző boltok fájljainak elérési útját ne kelljen egyesével átírni, hanem mondjuk a cellából vegye a fájl nevet??
pl: 'I:\Kozos\excel\["E1".xlsx]Termékek 19.09.11'
[ Szerkesztve ]
-
bucihost
senior tag
valamiért dupla lett
[ Szerkesztve ]
-
bucihost
senior tag
válasz Fferi50 #41792 üzenetére
Köszi a segítséget.
Igen, a baj egyébként nem kicsi, viszont egyenlőre nem látok rá más megoldást....
A gond az, hogy van egy nagyker valamint egy kisker program (persze nem képesek együttműködni.... miért is lennének képesek...)Szóval ha kíváncsi vagyok rá, hogy adott termékekből mennyi van készleten a nagykerben valamint a boltokban is egyaránt, akkor az így néz ki:
1. lekérem a nagyker aktuális készletet az adott termékekre
2. lekérem pár boltnak aktuális készletét külön külön (itt nem tudok egyszerre több termékre lekérni, vagy 1 termék vagy teljes raktárkészlet.... miért is tudnék...)
3. a fenti függvénnyel össze fésülöm az adatokat.Probléma:
1. Így van 20db, egyenként 1-4 MB-os 24.xxx soros excel file, amikből a függvénnyel ki kell nyernem az adatokat.
2. ha ne adj isten nem pár terméket, hanem a a teljes nagyker raktárkészletet kell össze hasonlítani a boltokkal, akkor van pluszba egy 21.excel ami kb 50.xxxx sor, és 15-20 MB.(Egyszer sikerült az összefésüléssel csinálni egy 200+ MB-os végterméket.....)
Ezek margójára már kértem egy paks3-as gépet, hogy ne legyen gond de még így is macera...
Hosszú távon megoldásnak egy makrót gondolnék, valami ilyesmi elven:
1. Egy adott "végtermék" excelben megvan milyen termékekre vagyok kiváncsi.
2. Nyissa meg egyesével egy adott mappában lévő exceleket, és szűrjön rá a "végtermék" xls-ben található termékekre.
3. A "végtermék" excelben hozzon létre egy új fület boltnév szerint (ahonnan kiszedi az adatokat a 2-es pontban) és másolja át csak azokat az adatokat amikre szükség van.
4. Innentől már a függvény is egyszerűbb, esetleg azt is megoldhatná a makró.Vagy valami ilyesmi, de egyenlőre a makró tudásom nincs ilyen volumenű....
Esetleg ha valakinek van egyszerűbb / jobb ötlete / tanácsa, szívesen fogadom azt is..
[ Szerkesztve ]
-
bucihost
senior tag
Sziasztok!
Több excel file-ból kellene adatokat átmásolni egy új excelbe folytatólagosan.
Találtam erre egy makrót, ami működőképes is lenne, viszont ott 1 adott munkafüzetre érvényes a makró. Ennek átírásában tudna valaki segíteni, hogy a nyitott munkafüzet (ahol lefuttatom a makrót) onnan másolja az adatokat?
Sub Copy_Paste_Below_Last_Cell()
'Find the last used row in both sheets and copy and paste data below existing data.
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
'Set variables for copy and destination sheets
Set wsCopy = Workbooks("New Data.xlsx").Worksheets("Export 2")
Set wsDest = Workbooks("Reports.xlsm").Worksheets("All Data")
'1. Find last used row in the copy range based on data in column A
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
'2. Find first blank row in the destination range based on data in column A
'Offset property moves down 1 row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
'3. Copy & Paste Data
wsCopy.Range("A2:D" & lCopyLastRow).Copy _
wsDest.Range("A" & lDestLastRow)end sub
[ Szerkesztve ]
-
bucihost
senior tag
Sziasztok!
Adott egy képlet:=HA(I9821<>0;FKERES(I9821;'Cikkek 2019.07.24'!B:C;2;HAMIS);"")
Az I oszlop tartalmát én töltöm kézzel (Cikkszám).
Cikkek tábla fejlécei: Cikkód, Cikkszám, Cikknév, Vonalkód.
A képlet ugye az általam beírt cikkszámot keresi a cikkek táblán és ha megvan akkor beírja a cikknevet.
Viszont, van hogy nem tudok cikkszámot csak vonalkódot.Meglehet azt valahogy csinálni, hogy ha cikkszám oszlopban nem találja az értéket, akkor nézze meg a vonalkód oszlopban is?
[ Szerkesztve ]
-
bucihost
senior tag
Sziasztok!
Szeretnék egy táblázatot bér kiszámításra. Teli van minden pótlékkal, viszont a túlórás résznél elakadtam.
Az első 2 órára 50%, minden további órára 75% pótlék jár.
Milyen képlettel lehetne megoldani, hogy ezt automatikusan számolja ki Ft-ra?
Pl: órabér 1000Ft
Ha beírom az A1 cellába, hogy 5, akkor a b1 be kiszámolja a pontos összeget? =(2*1000*1,5)+(3*1000*1,75) ?? -
bucihost
senior tag
válasz Lasersailing #41988 üzenetére
Köszönöm! Ez alapján már eltudtam indulni, és működik is.... Felhasználtam egy Műszak + túlóra pótlék számításhoz is. Gyönyörű képlet született belőle
=HAHIBA(HAELSŐIGAZ(G4=1;HA(F4>2;2*$G$1*1,5+(F4-2)*$G$1*1,75;F4*$G$1*1,5);G4=2;HA(F4>2;2*$G$1*2+(F4-2)*$G$1*2,25;F4*$G$1*2);G4=3;HA(F4>2;2*$G$1*2+(F4-2)*$G$1*2,25;F4*$G$1*2));)
-
bucihost
senior tag
Sziasztok!
Adott egy O365 excelben megírt HAELSŐIGAZ képlet. Tökéletesen működik, viszont ma O2016 excelben megnyitom a munkafüzetet akkor nem működik a képlet, valamint HAELSŐIGAZ helyett _xlfn.IFS jelenik meg. Hogyan lehetne orvosolni a problémát? FX-ben rákerestem, de nem létezik ilyen függvény....
-
bucihost
senior tag
válasz Fferi50 #42013 üzenetére
Az a baj, túl összetett a képlet.
Egy bérkalkulátor táblázatról van szó.
3 műszakos munkarend van, az alábbi adatokból számol a táblázat.
- melyik műszak (műszakonként eltérő pótlék)
- van e túlóra, ha igen mennyi. (Első 2 órára x% jár, minden további órára y%)
- hétvége vagy sem (erre szintén külön pótlék van)
Minden automatán van számolva
Műszakszorzó beillesztése: (ez még meg oldható FKERES-sel, általad leírt módon)=HAHIBA(HAELSŐIGAZ(G4=1;1;G4=2;1,5;G4=3;1,5);)
Túlóra díj kiszámítása:=HAHIBA(HAELSŐIGAZ(G4=1;HA(F4>2;2*$G$1*1,5+(F4-2)*$G$1*1,75;F4*$G$1*1,5);G4=2;HA(F4>2;2*$G$1*2+(F4-2)*$G$1*2,25;F4*$G$1*2);G4=3;HA(F4>2;2*$G$1*2+(F4-2)*$G$1*2,25;F4*$G$1*2));)
és ugye itt bonyolódik a helyzet, mert ennek a képletnek figyelembe kell vennie minden kritériumot -
bucihost
senior tag
Sziasztok!
Adott egy táblázat. B oszlopban cikkszámok, valamint adott egy mappa tele képekkel. "cikkszám.png" -k.
Megoldható valahogy, hogy az A oszlopba bekerüljenek a B oszlopban szereplő cikkszámok képei?
-
bucihost
senior tag
válasz bucihost #42167 üzenetére
Találtam egy macrot, ami jó lenne. Viszont ha nem talál képet, akkor "lehal" a macro.
Mit kellene hozzá írni, hogy ha nem talál képet akkor tovább lépjen vagy egy általam definiált képet rakjon oda? (egy nagy piros X)Sub PlacePics()
Dim Path As String, Pics As Range, Pic As Range
Path = "C:\Users\branyiczkif\Desktop\AjanlatKepek\kepek\"
Set Pics = ActiveSheet.Range("B2:B20")
For Each Pic In Pics
Pic.Offset(0, -1).Select
ActiveSheet.Pictures.Insert(Path & Pic.Value & ".png").Select
Next Pic
End Sub -
bucihost
senior tag
-
bucihost
senior tag
Sziasztok!
Egy excel táblán hogy tudom "megszámoltatni", hogy összesen hány karakter található benne?
-
bucihost
senior tag
Sziasztok!
Adott 2 excel tábla. Egyikben 2 oszlop(EAN , Cikkszám), másikban 1 (EAN).
Az első táblán az ean kódok külön sorokban vannak, viszont a 2 es táblán egy sorban van több is (ugyan ahhoz a termékhez tartozik).
Hogyan tudnám a 2-es táblán megkeresni az 1-es táblán szereplő eanokat és mellé írni a cikkszámokat? próbáltam szövegből oszlopokkal szétszedni, de nem jó mert akkor levágja a 0-t az enal elejéről... -
bucihost
senior tag
Sziasztok!
Adott egy táblázat, amin szűrőt állítok be. A szűrt adatokra hogyan tudok kimutatást csinálni a legegyszerűbben?
-
bucihost
senior tag
Sziasztok!
Van egy pivot táblám ami mysqlből veszi az adatokat (Adatok\Adatok beolvasása\Adatforrás beállításai\Forrás módosítása menüben).Ennek a SQL-Utasáítás része itányatható macroval? Vagy az megoldható, hogy a query értéke(ke)t adott cellákból vegye? PL WHERE DATUM between '2020-03-28' AND '2020-03-28' helyett WHERE DATUM between 'K1' AND 'K2'
?
-
bucihost
senior tag
válasz Fferi50 #43449 üzenetére
Sub ExcelSqlTeszt()
Windows("Munkafüzet2").Activate
ActiveWorkbook.Queries.Add Name:="Lekérdezés1", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Forrás = MySQL.Database(""X.X.X.X"", ""dbname"", [ReturnSingleDatabase=true, Query=""SELECT#(lf)SUM(MENNYS * EGYSAR) AS ERTEK,#(lf)DATUM,#(lf)SID#(lf)#(lf)FROM tabla#(lf)WHERE DATUM between '2020-03-30' AND '2020-03-30'#(lf)GROUP BY DATUM, SID;""])" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Forrás"
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Lekérdezés1;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [Lekérdezés1]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Lekérdezés1"
.Refresh BackgroundQuery:=False
End With
Range("O12").Select
ActiveWindow.SmallScroll Down:=-12
End Sub -
bucihost
senior tag
válasz Fferi50 #43455 üzenetére
ActiveWorkbook.Queries("Lekérdezés1"). Formula:= _
Erre a sorra syntax errort dob, nincs ilyen method (a pont után).
Pl: ActiveWorkbook.Queries("Lekérdezés1").Delete már menne, de hogy nézem ".Modify" method nincs
ActiveWorkbook.Queries("Lekérdezés1").Delete
ActiveWorkbook.Queries.Add Name:="Lekérdezés1", Formula:= _
ha előtte törlöm, és újra hozzáadom akkor már félsiker. Csak így meg a hozzá kapcsolt másik lekérdezés "összefűzését" dobja el.De mind1 ezen a vonalon már el tudok indulni. Köszönöm
-
bucihost
senior tag
Sziasztok!
Találtam egy kódot, amit ökéletesen működik. Viszont, néha az oldal "hibát dob" ahonnan a képeket kérném le mert gondolom egyszerre sok a lekérdezést.
Hogyan lehetne késlelteni a lekérdezért, hogy 1-1- kép között várjon mondjuk 2-3 másodpercet?
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set rng = ActiveSheet.Range("C2:C90")
For Each cell In rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub[ Szerkesztve ]
-
bucihost
senior tag
Sziasztok!
Adogg egy nagy excel állomány. Hogyan elehet a legegyszerűbben megtudni, hogy egy oszlop az "hanyadik"? Fkeresnél pl nagy segítség lenne tudni az adott oszlop számát.
Új hozzászólás Aktív témák
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Microsoft Excel topic
- Fujifilm X
- További aktív témák...