-
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
-
Sziszmisz
csendes tag
sziasztok,
szeretném a segítségeteket kérni, nagyon megkönnyítenétek a dolgom. sajnos nem igazán értek a makrókhoz, most szeretnék majd megismerkedni velük, de ez most elég sürgős lenne.
a lényeg az, hogy különböző elhelyezkedésű exel táblákból kellene egy bizonyos sémájú táblákat létrehoznom. arról van konkrétan szó hogy kapunk egy árlistát és ebből az árlistából szeretném kinyerni a név, ár, méret, szín adatokat és egy másik exel táblába lementeni. sajnos a forrásexelek nem egyezzen meg, tehát mindig másmilyen elhelyezkedésűek, jó volna ha ezt mindig be lehetne állítani hogy honnan is szeretnénk az adatot kinyerni, de ha ez nem lehetséges, vagy nagyon macerás akkor megoldanám függvényekkel. némely esetben mondjuk a név cella alá két cella egyesítését kellene beírni, amit szintén előkészíthetek egy összefűz függvénnyel ha szükséges.
nagyon nagyon hálás lennék ha tudnátok ebben segíteni nekem.
-
Sziszmisz
csendes tag
Itt egy példa:
ACO TopTek típusú burkolható fedlapok
Cikkszám Terméktípus Méret Anyag Súly (kg) NETTÓ LISTAÁR
SOLID - Fémfelületű, csúszásmentes fedlap
403860 ACO TopTek SOLID 300x300x59,5 Rozsdamentes 1 244 119 456
403861 ACO TopTek SOLID 450x450x59,5 Rozsdamentes 1 990 168 160
403862 ACO TopTek SOLID 500x500x59,5 Rozsdamentes 2 281 193 975
403863 ACO TopTek SOLID 400x600x59,5 Rozsdamentes 2 259 197 824
403864 ACO TopTek SOLID 635x635x59,5 Rozsdamentes 3 498 293 752
403865 ACO TopTek SOLID 600x800x59,5 Rozsdamentes 3 959 349 458
403866 ACO TopTek SOLID 600x1000x59,5 Rozsdamentes 4 666 398 461
403867 ACO TopTek SOLID 800x1000x59,5 Rozsdamentes 5 715 527 789
403868 ACO TopTek SOLID 300x300x59,5 Horganyzott 1 244 59 643Például egy így kinéző árlistából kellene egy olyan makró amely készít egy cikkszám, név, mennyiség(értelem szerűen ez most hiányzik a listából), nettó ár oszlopokból álló új táblát. Annyi lenne még itt a plusz hogy a "SOLID - Fémfelületű, csúszásmentes fedlap" szöveget, a terméktípust, a méretet, az anyagot és a súly összefűzött szövegét kellene a név mező alá összefűzni, erre írtam hogy jó volna ha a makró megoldaná, de ha más nem összefűzném fügvénnyel. Nagyon nagyon megköszönném ha tudnál segíteni.
-
Sziszmisz
csendes tag
vagy itt egy másik példa:
Cikkszám Termék Bruttó fogy.ár (Ft
PRÉMIUM 18/10 mosogatótálak
1 ALÁÉPÍTHETŐ ROZSDAMENTES MOSOGATÓK
514050 BLANCOSTATURA 6-U 18/10 mos. exc. 217 900
514051 BLANCOSTATURA 6-U / W70 18/10 mos. exc. 294 900
514052 BLANCOSTATURA K 640-U 18/10 mos. exc. 264 900
514053 BLANCOSTATURA K 480-U / W70 18/10 mos. exc. 271 900
514054 BLANCOSTATURA K 550-U 18/10 mos. exc. 264 900
514055 BLANCOSTATURA 450-U 18/10 mos. exc. 140 900
514056 BLANCOSTATURA 160-U 18/10 mos. 101 900
514058 BLANCOSTATURA 450-T-U 18/10 mos. 74 900
512540 BLANCOSUPRA 400-F 18/10 mos. tart.nélk. megszűnt!
518213 BLANCOGAMMA 420-U fényes exc.nélk. 56 900
518214 BLANCOGAMMA 420-U fényes exc. 63 900
511024 BLANCOMIDI 315-U 18/10 mos. tart.nélk. megszűnt!
511025 BLANCOMIDI 315-U 18/10 mos. exc. megszűnt!
514239 BLANCOJOTA 160-U_B megszűnt!ahol mondjuk ugyanazt a sablont kellene egy új munkalapra létrehozni amit előbb leírtam, annyi külömbséggel hogy itt a megszűnt feliratű sorokat figyelmen kívül kellene hagyni és a félkövérrel kiemelt "ALÁÉPÍTHETŐ ROZSDAMENTES MOSOGATÓK" szöveget kellene beszúrni a termék oszlop szövegei elé.
ha ezt le tudnád írni, ez picit talán egyszerűbb, az is nagyon remek lenne és nagyon-nagyon hálás volnék.
-
Sziszmisz
csendes tag
az mondjuk megoldható hogy a hozzáfűzendő dolgokat kijelöljem valamilyen kijelölőszínnel, ha úgy egyszerűbb. bocsi hogy ennyire részleteiben írom le csak közbe én is gondolkozom rajta hogyan kéne...
-
Sziszmisz
csendes tag
ehhez makró se kell, csak egyszerűen használd a helyette függvényt:
=HELYETTE(A1;"06";"+36")
avagy
a kívánt cellákon jobbklick-cellaformázás-egyéni és ott annyi 0-t írsz be ahány számjegyet akarsz hogy kiirjon és 0-kal feltölti a szám elejét.
avagy
levágsz 1 karaktert, így: =JOBB(A1;HOSSZ(A1)-1)- a 6os eltűnik az elejéről, majd az összefűz függvénnyel hozzáfűzöd az elejéhez a +36-ot.
remélem sikerült értelmesen lekaparnom, csak közbe dolgozom
-
Sziszmisz
csendes tag
válasz m.zmrzlina #13880 üzenetére
Köszönöm a segítséget, de itt nem pár darab, hanem excelenként több ezer sorról és rengeteg excelről van szó, valamiféle automatizálást szeretnék erre kitalálni, amit a már meglévő függvényeimbe tudnék beágyazni, mert nem csak ennyi a probléma. Esetlegesen még arra gondoltam kihúznám a hozzáfűzendő értékeket mauálisan egy oszloppal előrébb.
Lényeg az lenne hogy mindig az aktuális szöveget fűzze hozzá az alatta lévőkhöz. Remélem sikerült érthetően lekaparnom....
-
Sziszmisz
csendes tag
válasz m.zmrzlina #13882 üzenetére
Woww, ez így jól hangzik, kezdésnek nagyon jó, de még így is napokba/hetekbe telne mire a teljes adatbázisunk, összes exelét egyesével kijelölgetném. Nincs erre bármiféle automatizálás, hogy valami alapján felismerje mit kell hozzáfűzni??
köszönöm: Sziszmisz
Válasz: Sajnos ez teljesen változó.... ezért gondolkodtam az egy oszloppal előrébb kihúzásban és erre tanácsolták nekem azt hogy egy ha="" feltétellel megcsinálhatnám(persze ezt beleágyazva a már megcsinált összefűz függvényembe), csak azt nem tudom hogyan definiálhatnám hogy a legutóbbi nem üres cellát fűzze hozzá.
De ez csak egy ötlet, bármire vevő vagyok
[ Szerkesztve ]
-
Sziszmisz
csendes tag
válasz m.zmrzlina #13886 üzenetére
igen, csak a példákban más, de még mindig az előrébb huzogatás lenne a legegyszerűbb megoldás eddig.
kedves thee-től kaptam, de ez már komplexebb problémát ölel fel, csak nem akartam regényt írni:
http://data.hu/get/5139947/arlistarendezo_cst03.xls -
Sziszmisz
csendes tag
válasz #90999040 #13890 üzenetére
Ühümmm, egyenlőre úgy tűnik akkor hogy ez lesz a nyerő, kipróbáltam lefut, itt ebben az elrendezésben tökéletes, istenkirály vagy. Viszont le tudnád nekem írni hogy mi a feltétele annak hogy ez működjön, például ahol a 4.-5. sorba kezdődik a táblázat ott mit kellene módosítanom hogy szintén lefusson? Vagy mi a feltétele annak hogy ez működjön a (színezésen kívül)? Ha jól értem a színezés alatti sor 2. cellájába fűzi hozzá, ezt akár tetszés szerint módosíthatom, vagy van ennek még több feltétele is?
Esetlegesen lehetne hogy az elejéhez fűzze és ne a végére?[ Szerkesztve ]
-
Sziszmisz
csendes tag
válasz #90999040 #13896 üzenetére
ez a verzió nekem így futott le helyesen:
Sub Modosit()
Application.ScreenUpdating = False
For Each r In ActiveCell.CurrentRegion.Offset(0, 1).Resize(columnsize:=1)
If r.Value = "" Then
s = Cells(r.Row, r.Column - 1).Value
Else
r.Value = r.Value & " " & s
End If
Next
Application.ScreenUpdating = True
End Subugyanis nekem a zölddel kijelölt rész a 3. sorban kezdődik, de most teljesen összezavartál, akkor mit kell módosítanom hogy megadjam hol kezdődik "zöld rész" és hogy "hányadik oszlophoz fűzze hozzá", ugyanis ez táblánként változik....
azt hogy az elejére fűzze és ne a végére azt be tudom valahogy állítani?
köszmösz
-
-
Sziszmisz
csendes tag
=HA(VAGY(M21=$N$10;N21=$N$10;O21=$N$10;P21=$N$10);"";(HA(N21=!!!!!!!!!!!!;"";SOR())))
Jelenleg arra keresem a választ hogy miként definiálhatnám a sok !!!!! helyére azt hogy ha ez egy szám és nem karakterlánc.Létezhet erre megoldás?
Köszöntem: Sziszmisz
-
Sziszmisz
csendes tag
válasz Fire/SOUL/CD #13903 üzenetére
thx
-
Sziszmisz
csendes tag
Sziasztok,
Árkód párosításban kérném a segítségeteket. W oszlopba szeretném megjeleníteni V oszlophoz árkódjaihoz tartozó Ft értéket. Azaz azt szeretném elérni hogy Voszlop árkódját keresse ki AA-oszlopból és a hozzá tartozó Ft-ot adja vissza AC oszlopból.
Előre is nagyon köszönöm -Sziszmisz
[ Szerkesztve ]
-
Sziszmisz
csendes tag
válasz Fire/SOUL/CD #14134 üzenetére
woww, köszi szépen, mostmár tudom miért nem ment ez nekem....
-
Sziszmisz
csendes tag
sziasztok,
egy apró, ámde nagy fejtörést okozó problémám lenne, amiben szeretném a segítségeteket kérni. Hivatkozni szeretnék bizonyos adatokra, de itt a "m2" 2-ese nem marad felsőindexbe a hivatkozott résznél. Nekem pedig nyomtatnom kellene ezt, ezért fontos. Próbálnám manuálisan felső indexbe rakni, de mivel hivatkozás nem engedi, max az egész cellát, de az úgy se jó nekem. valakinek lenne esetleg valami ötlete? köszönöm előre is
-
Sziszmisz
csendes tag
Sziasztok,
Segítséget szeretnék kérni.
Van egy excel táblám, több ezer soron keresztül ahol a "D" oszlopban vesszőkkel tagolva több szín is szerepel (pl:.red, green, blue, grey)
Azt szeretném valahogy megoldani hogy ahol több szín van, ott külön külön sorba legyenek a hozzá tartozó adatokkal együtt.tehet pl:.
A------------- B ------------------------------C -------------------------------D
valami1 ----hozzá tartozó adat1 ----hozzá tartozó adat2-----red, green, blue, grey
valami2 ----hozzá tartozó adat1 ----hozzá tartozó adat2-----blue, greyamit kapni szeretnék:
A------------------ B --------------------------------C -------------------------------D
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----red
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----green
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----blue
valami1 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----grey
valami2 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----blue
valami2 ---------hozzá tartozó adat1 ------hozzá tartozó adat2-----greyElőre is köszönök szépen minden segítséget.
[ Szerkesztve ]
-
Sziszmisz
csendes tag
Sziasztok,
Lenne egy sürgős makró gondom amibe szeretném a segítségeteket kérni.
Az excel táblám úgy néz ki hogy az a oszlopban +el jelölöm a konkrét törzsadatokat tartalmazó sorokat, ezek a törzsadatok blokkokba vannak rendezve és úgymond fejlécük van. A fejlécekbe vannak kategória adatok(az A-B-C-D oszlopban vannak mindig).Azt szeretném elérni, hogy ezekhez a pluszos sorokhoz a saját "tömbjük" fejlécében található 4kategóriaadat minden egyes pluszos termékkel egy sorba kerüljön bele.
Remélem sikerült érthetően leírnom. Én valahogy úgy képzeltem el a megoldást, hogy ha az A oszlopban + -van akkor meg kellene vizsgálni felfelé, hogy melyik a legközelebbi nem +os sor és az abba a sorba található 4 cella adatát, a pluszos sor O oszlopától számított 4cellába bemásolni. Sajnos a makró szintaktikát nem sikerült megcsinálni, de elméletbe én így képzelem el a megoldást.
Mindenféle megoldásért nagyon-nagyon hálás lennék
Előre is köszönöm szépen
-
Sziszmisz
csendes tag
Sziasztok,
Segítséget szeretnék kérni.
Létrehoztam makrórögzítéssel az alábbi kódot és makró hozzárendeléssel hozzákötöttem egy pötyöslabda és egy csíkoslabda képhez a makrókat. Viszont nekem körülbelül 30 féle labdát kellene lekezeljek.
A célom az lenne, hogy ha a pöttyöslabdára kattintok, akkor a pöttyöslabda.xls-ből, ha pedig a csíkosra akkor a csíkoslabda.xls-ből tegye az általam meghatározott cellába az adatot. Tehát a macskakörmök helyére.
Egyenlőre az excelből-excelbe adat átviteli módét nagyon hálás lennék, hogy melyik cellából melyik cellába kellene menjen az adat, az további kérdés lesz, de megpróbálom megoldani ha sikerül ráéreznem a működésére..
Minden jellegű segítségért hálás lennék, még elég kezdő vagyok makró szinten.
Sub mentes()
'
' mentes Makró
'
' Billentyűparancs: Ctrl+y
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "név"
Range("B1").Select
ActiveCell.FormulaR1C1 = "megnevezés"
Range("C1").Select
ActiveCell.FormulaR1C1 = "mennyiségi egység"
Range("D1").Select
ActiveCell.FormulaR1C1 = "ár"
Range("E1").Select
ActiveCell.FormulaR1C1 = "z id"
Range("F1").Select
ActiveCell.FormulaR1C1 = "y id"
Range("G1").Select
ActiveCell.FormulaR1C1 = "y megnevezés"
Range("H1").Select
ActiveCell.FormulaR1C1 = "z megnevezés"
Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B1").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("C1").Select
Selection.Font.Underline = xlUnderlineStyleSingle
Range("D1").Select
Selection.Font.Italic = True
Range("E1").Select
Selection.Font.Bold = True
Range("H10").Select
End Sub -
Sziszmisz
csendes tag
válasz Delila_1 #18341 üzenetére
Próbáltam összerakni amit írsz, de nekem hibát ír ki.
Biztosan én szúrtam el valamit, csak tudnám hogy mit....Sub proba()
'
' proba Makró
'
' Billentyűparancs: Ctrl+p
'
Range("A1") = "név"
Range("B1") = "megnevezés"Dim WS As Worksheet
Set WS = Workbook("ARTE.xls").Sheets("Munka1")
Range("B2") = WS.Range("A1")With Range("A1:G2").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C1").Font.Underline = xlUnderlineStyleSingleEnd Sub
Esetleg ki tudnál javítani?
-
Sziszmisz
csendes tag
Sziasztok,
Segítséget szeretnék kérni.
Adott A oszlopban egy adott tétel neve, valamint C oszlopban az adott tétel összefoglaló tulajdonságai kötőjellel elválasztva.
Szeretném D oszlopba kötőjellel összefűzni a C oszlopban található összefoglaló neveihez tartozó A oszlopban található neveket, kivéve a saját nevét(ezt egy helyette függvénnyel megcsinálnám, ha a többi része kivitelezhető valahogyan).Példa:
A B C D
1. alma piros-zöld paprika-körte
2. paprika sárga-zöld-piros alma-körte
3. körte zöld alma-paprika
4. labda csíkos-pöttyös-tarka terítő-asztal
5. terítő tarka labda
6. golfütő fehér
7. asztal fa-fém-csíkos labdaAddig stimmel nálam a dolog hogy C után beszúrok egy oszlopot, majd új oszlop =A1 -> fkeres, közelítőleges egyezés, 2.oszlopból kérném vissza az adat.
Csak azt nem tudom hogyan kezeljem le, hogy a kötőjellel összekötött adatok mindegyikét keresse és minden hozzá tartozó eredményt fűzzön össze.Előre köszönöm szépen mindenféle útbaigazítást is.
Valószínűleg ez már makróval megoldható csupán, csak nem tudom merre induljak el. -
Sziszmisz
csendes tag
válasz Sziszmisz #19686 üzenetére
A----------------------------B-------------C------------------------------- D
1. alma ---------------------------------piros-zöld------------------- paprika-körte
2. paprika ------------------------------sárga-zöld-piros---------- alma-körte
3. körte ---------------------------------zöld ---------------------------alma-paprika
4. labda --------------------------------csíkos-pöttyös-tarka ----terítő-asztal
5. terítő ---------------------------------tarka--------------------------- labda
6. golfütő------------------------------- fehér--------------------------------------------
7. asztal-------------------------------- fa-fém-csíkos--------------labda
Ú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