-
GAMEPOD.hu
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
-
Telda
addikt
Hali!
Hogyan tudnék véletlen időket generálni az Excellel?
Pl.:10:36
12:41
1:57
10:00stb.
-
Telda
addikt
Hali!
A lenti függvényben a dupla idézőjeleknek van valami különleges jelentése?
=HA(L265="";"";L265/60)
Tehát ha L265="" akkor az eredmény "" máskülönben az L265 értékét ossza 60-nal?
Mi lenne ez a "" ?[ Szerkesztve ]
-
Telda
addikt
Hali!
Lenne egy nagyon amatőr kérdésem.
Hogy tudom a cella formátumát beállítani, hogy én csak a számot írom be, de mögé íródik hogy "perc" "mm" stb?
Pl. beírom a cellába hogy 36 és az enter leütése után mögé teszi hogy "mm".
Illetve ugyan ez percre.Köszi!
-
Telda
addikt
Hali!
Van több 10.000 sornyi teli cellám és mindegyik után be kellene szúrnom egy üres sort.
Van erre valami időtakarékosabb megoldás, minthogy manuálisan mindegyik alá beszúrok én egy sort? -
Telda
addikt
Hali!
Régebbi verzióból ahol még csak ~65000 sor volt használható, több munkalap tartalmát szeretném egymás alá másolni(tatni) . A kézzel való másolgatáson kívül van valami módszer?
A munkalapok tartalma formailag megegyezik, csak külön lapon vannak, mert anno még nem fért el ennyi adat egy lapra. -
Telda
addikt
Hali!
Használja valaki a FONETIKUS függvényt? Mert nekem nem akar működni.
-
Telda
addikt
Hali!
Van nekem sok-sok rajszámom az excelben.
Illetve van egy mappám, ahol ugyan ilyen néven megtalálható az összes műhelyrajz.
Az excelben lévő rajzszámok mellé oda lehet valahogy tenni a mappában lévő fájlok hyperhivatkozását?
Hogy csak rá kelljen kattintani és megnyitja a rajzot. -
Telda
addikt
Hali!
Úgy szeretném megcsinálni a munka1 egy adott oszlopát, hogy egy másik oszlopban megadott kivételeket valamilyen módon jelölje.
Pl. mint ahogy a képen is csináltam, ha megadom a "kutya" szót, akkor az összes olyan cellát jelölje, amiben a "kutya" szó szereple.
Feltételes formázással próbáltam, de ott csak 1 kritériumot engedett megadni, ha egy egész oszlopot adok, akkor hibát ír ki. -
Telda
addikt
válasz Delila_1 #28916 üzenetére
Sajnos hülye példát hoztam fel, elnézést!
Ez lenne a konkrét eset.
"A" oszlopban van egy csomó cikkszámom közel 1800db, most kimásoltam párat.
Azt szeretném, hogy amit a "C" oszlopba beírok, azokat jelölje az "A" oszlopban.
A 4152549V-nek van 6db változata kötjelesen, de szeretném, ha az össze változatát jelölné. -
Telda
addikt
Reggelt!
Jelenleg ez van használatban.
=FKERES(ÉRTÉK(BAL($D1;8));Munka2!$A:$A;1;HAMIS)
Annyi hogy a kivétel lista a munka2-n van.
Illetve 6-7-8 karakteres cikkszámok vannak, mindre kellett csinálni egy új szabályt.
Ennek annyi a hibája, hogy betű is van a cikkszámban akkor nem működik. -
Telda
addikt
Sziasztok!
Segítséget szeretnék kérni. Vannak nekem celláim melyek átlagosan 40-50 karakterhosszúságú megnevezéseket tartalmaznak. Azt szeretném csinálni hogy balról 29 karaktert megtartani, a maradékot levágni és a levágott részt egy új cellába másolni.
A BAL függvénnyel az a baj, hogy csak levágja a karaktersor végét, ami így elveszik.
A JOBB függvényt megint nem jó, mert eltérő a cellák tartalmának a hosszúsága. -
Telda
addikt
Sziasztok!
Nagy segítséget szeretnék kérni .
Van nekem két munkalapom.
Az egyes munkalapon lévő számok közül szeretném kikeresni az összes olyan tételt, ami a kettes munkalapon lévőkkel kezdődik.
Például a kettes lapon szerepel a 4105709V, akkor keresse ki az összes tételt ami ezzel kezdődik.
4105709V-045
4105709V
4105709V-091
4105709V-006
4105709V-126
4105709V-193
4105709V-236
4105709V-269
4105709V-301
Eddig ezt szűréssel csináltam, de egyenként nagyon lassan halad.
Csatolom a munkafüzetet.
[link] -
-
Telda
addikt
válasz Fferi50 #44290 üzenetére
De az is kell .
Minden olyan szám kell aminek a kezdete megegyezik a Listában lévőkkel.
A Listában vannak olyan számok amik V-re végződnek. (Ezeket szépen le is válogatta.)
Pl. ez 30480700 benne van a listában, akkor a következőket találja meg:
30480700S01-073
30480700-073
30480700
Vagy ez 4186396V van a lsitában, akkor:
4186396V
4186396V-045
4186396V-301
4186396VS01-045
Ilyen "Kezdete" szürést nem lehet tömegesen csinálni?Köszönöm hogy ennyi idő szánsz rám!
[ Szerkesztve ]
-
-
Telda
addikt
Sziasztok!
Van nekem egy SAP Excel makróm. A .vbs fájlt az SAP-ból inditom.
Elvileg ezek a sorok határozzák meg hogy honnan vegye az adatokat.Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(,"Excel.Application")
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
Így mindig az aktív Excel táblát nézi.
Nem értek hozzá, de nem lehetne neki valami konkrét fájl nevet, vagy elérési utat megadni? -
Telda
addikt
Sziasztok!
A munkahelyi gépen a 2013-as Office le lett cserélve 365-re. Az lenne a gondom, hogy van egy régi .xla bővítményem, amit hiába adok hozzá a bővítményekhez nem jelenik meg a menüben.
Valami kompatibilitási gond lehet? Találkozott már valaki ilyennel? -
Telda
addikt
Sziasztok!
SAP-ban a CS01 taranzakcióban szeretnék BOM-ot feltölteni.
Összetákoltam valamit, de az a baj, hogy csak az 1 soros BOM-mal működik.
Esetleg van valami valami ötlete, vagy ehhez hasonló kész megoldása?
A scriptet SAP-ból inditom és csak annyit csinál, hogy a megadott excel fájl oszlopaiból kiolvassa az értékeket és beírja az adott helyekre.
De mivel ez csak egy léptető ciklus ahogy halad lefelé mindig csak egyet tud beépíteni.Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(,"Excel.Application")
Set objSheet = objExcel.Workbooks("dj feltolt").Sheets("Munka1")
For i = 2 to objSheet.UsedRange.Rows.Count
COL1 = Trim(CStr(objSheet.Cells(i, 1).Value)) 'Column1
COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) 'Column2
COL3 = Trim(CStr(objSheet.Cells(i, 3).Value)) 'Column3
session.findById("wnd[0]/usr/ctxtRC29N-MATNR").text = COL1
'session.findById("wnd[0]/usr/ctxtRC29N-WERKS").text = "0610"
session.findById("wnd[0]/usr/ctxtRC29N-STLAN").text = "1"
session.findById("wnd[0]/usr/txtRC29N-WTEXT").setFocus
session.findById("wnd[0]/usr/txtRC29N-WTEXT").caretPosition = 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-POSTP[1,0]").text = "L"
session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-IDNRK[2,0]").text = COL2
session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[5,0]").text = COL3
session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[5,0]").setFocus
session.findById("wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[5,0]").caretPosition = 5
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[0]/btn[11]").press
next
msgbox "Keszen vagyunk" -
Telda
addikt
válasz Fferi50 #44738 üzenetére
Az a baj, hogy csomó tranzakcióhoz nincs hozzáférésem. Vagy nincs megvéve a modul.
Dolgozz benne, de az infó rejtegetve van...
Igy csak ilyen scriptekkel tudok operálni.
Ezeket a cellákat kellene feltöltenem.
Ez pedig lenne az excel, amiből feltölti.
Valami olyasmi lenne az elképzelésem, hogy az A oszlopot figyelve, amig nem változik az érték, jelen esetben a 4192805 addig nem menti el a BOM-t. Hanem lépked lefelé és feltölti a cellákat. Amint megváltozik, pl.4192806 akkor elmenti és újra kezdi az egészet.
Találtam valami hasnonló elképzelést a sap blogon.
[link] -
Telda
addikt
Sziasztok!
Excel 365-ben megszűnt a közös használat, csak ez a "Megosztás" van?
Mert én nem találom. -
Telda
addikt
Sziasztok!
Lehetséges olyan szűrést csinálni, hogy csak azokat a cellákat mutassa, melyek tartalmaznak betűt?
pl. 30364310D -
Telda
addikt
Sziasztok!
SAP-hoz készítettem egy makrót.
Az lenne a problémám, hogy azoknak a celláknak a tartalmát amik szóközt tartalmaznak, feldarabolja a makró.
Ezt kellene minden megnevezéshez beírni.
MARCHÉ FRESH L2H.125 A4
Helyette viszont szóközönként szétvágva másolja be.
Szerintem aparancs
sorban lévő résszel van valami baj.Sub ujcikk()
Dim ProgramVbs: Set ProgramVbs = CreateObject("WScript.Shell")
fajl = ActiveWorkbook.Name
utVbs = "d:\SAP_MACRO\NEW_NUMBER_HALB.vbs"
maxsor = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To maxsor
minta = Cells(i, 1).Value
tipus = Cells(i, 2).Value
angol = Cells(i, 3).Value
cseh = Cells(i, 4).Value
nemet = Cells(i, 5).Value
magyar = Cells(i, 6).Value
parancs = """" & utVbs & """ " & minta & " " & tipus & " " & angol & " " & cseh & " " & nemet & " " & magyar
futVbs = ProgramVbs.Run(parancs, , True)
Next i
MsgBox "Keszen vagyunk"
End SubA változók a SAP scriptben vannak deklarálva.
Dim minta
Dim tipus
Dim angol
Dim cseh
Dim nemet
Dim magyar
On Error Resume Next
minta = wscript.arguments(0)
tipus = wscript.arguments(1)
angol = wscript.arguments(2)
cseh = wscript.arguments(3)
nemet = wscript.arguments(4)
magyar = wscript.arguments(5)[ Szerkesztve ]
-
Telda
addikt
válasz Fferi50 #46408 üzenetére
Szia!
Sikerült kiolvasni.
Így néz ki az excel.A parancs tartalma pedig:
""d:\SAP_MACRO\NEW_NUMBER_HALB.vbs" 4200678 E MARCHÉ FRESH L2H.125 A4 MARCHÉ FRESH L2H.125 A4 MARCHÉ FRESH L2H.125 A4 MARCHÉ FRESH L2H.125 A4"
Olyan, mintha nem egész szövegnek venné a cella tartalmát. Hanem szóköznél automatikusan ugrana tovább. -
Telda
addikt
Sziasztok!
Hogyan tudnám a munkalapok tartalmát egymás alá másolni egy munkalapra?
A program ami kihozza az adatbázist, de csak 65536 sort tud kezelni, ezért mindig új munkalapot csinál.
Maga az adatbázis viszont 940ezer soros, így 15 munkalapot hoz létre.
Ezeket szeretném egy munkalapra egymás alá bemásolni. -
Telda
addikt
Köszi!
Közben találtam rá egy makrót.Sub munkafuzetmasolas()
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "munkalaplista"
Range("A1").Select
For i = 1 To Sheets.Count - 1
Sheets(i).Select
Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Copy
Sheets("munkalaplista").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
lastRow = ActiveCell.Row
Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs