[szucsati]

Üdv!

Lenne megint egy macerás Exceles kérdésem. Adott egy táblázatom, ami így néz ki kb (a ; jel az oszlopelválasztó):
cikkszám1_szín_méret1; ár,darabszám,stb; méret1;
cikkszám1_szín_méret2; ár,darabszám,stb; méret2;
cikkszám1_szín_méret3; ár,darabszám,stb; méret3;
cikkszám2_szín_méret1; ár,darabszám,stb; méret1;
cikkszám2_szín_méret2; ár,darabszám,stb; méret2;

És ebbõl kéne ilyet csinálnom:
cikkszám1_szín; ár,darabszám,stb; méret1 méret2 méret3;
cikkszám2_szín; ár,darabszám,stb; méret1 méret2;

A cikkszám1_szín karakterhossza adott, azt probléma nélkül levágom. Igazából a probléma az, hogy az eredeti táblázatban minden méret külön sor, és nem tudom, hogy egy termékhez hány ilyen sor tartozik. A kimeneti táblánál pedig egy cellába kéne besûríteni az azonos cikkszámhoz tartozó méret adatokat. Remélem, érthetõen írtam le.

Megoldható ez pusztán Excellel, vagy csak scripttel? Elképzelésem szerint itt valami cikus kéne, azt meg tudtommal nem tud az Excel

(aztán ha ezen túl vagyok, akkor még ki kéne válogatnom azokat a sorokat, amikben a cikkszám benne van egy listában, de szerintem ez fkeressel megoldható)

[Delila]

A Munka1 lapról a Munka2-re rendezi át az adataidat. Igazán azonos a különbözõ méretek darabszáma és ára? Mert abból, ahogy leírtad a rendezést, ez derül ki. Egy sorba kerül a többféle méret, és összesen csak egy-egy cella van az áruknak és a darabszámuknak.

Két helyen kell a makróban átírni a cikkszám hosszát 9-rõl az valódi értékre, ahol jelöltem.

Sub elrendez()
    Sheets("Munka1").Select
    sor2 = 2: usor = Range("A65536").End(xlUp).Row
    For sor = 2 To usor
        oszlop = 4
        cikksz = Left(Cells(sor, 1), 9) 'ide a 9 helyett a cikkszám hossza kell
        Sheets("Munka2").Cells(sor2, 1) = cikksz 'cikkszám
        Sheets("Munka2").Cells(sor2, 2) = Cells(sor, 2)  'ár
        Sheets("Munka2").Cells(sor2, 3) = Cells(sor, 3)  'db
        Sheets("Munka2").Cells(sor2, 4) = Cells(sor, 4)  'méret_1
        Do While Left(Cells(sor + 1, 1), 9) = cikksz 'ide a 9 helyett a cikkszám hossza kell
            oszlop = oszlop + 1
            sor = sor + 1
            Sheets("Munka2").Cells(sor2, oszlop) = Cells(sor, 4) 'méret_2,méret_3... méret_n
        Loop
        sor2 = sor2 + 1
    Next
End Sub

[szucsati]

Idézet: Delila - Dátum: 2008. nov. 10., hétfõ - 19:07

A Munka1 lapról a Munka2-re rendezi át az adataidat. Igazán azonos a különbözõ méretek darabszáma és ára? Mert abból, ahogy leírtad a rendezést, ez derül ki. Egy sorba kerül a többféle méret, és összesen csak egy-egy cella van az áruknak és a darabszámuknak.

Két helyen kell a makróban átírni a cikkszám hosszát 9-rõl az valódi értékre, ahol jelöltem.

    Istennõ vagy, köszönöm szépen
Ebbõl kiindulva megírtam életem elsõ makróját

Viszont lenne még egy, amit nem sikerült kitalálnom, hogy kell megoldani, úgyhogy ismét kérném a segítséged. Van egy oszlopom és ebben kéne megkeresni egy értéket. Valahogy így:

IF érték benne van az oszlopban THEN
parancs1
parancs2
...

Csak nem sikerült kitalálni, hogy a "benne van"-t hogy lehet ellenõrizni

[Delila]

szucsati

Sub Keres()
    keresendo = "szucsati"
    For sor = 1 To 100
        For oszlop = 1 To 20 'A:T oszlopok
            If Cells(sor, oszlop) = keresendo Then
                'Teendõ, ha igaz
            Else
                'Teendõ, ha nem igaz (el is maradhat)
            End If
        Next oszlop
    Next sor
End Sub

Értelemszerûen elmaradhat a for oszlop-next oszlop sor a makróban, ha csak egy oszlopban keresed az értéket. Akkor viszont meg kell adni fixen, hanyadik oszlopban keressen.
Az ELSE ág sem kell, ha csak tovább kell lépni "nem találat" esetén.

Szerkesztette: Delila 2008. 11. 12. 07:57 -kor

[Pikkolo]

A következõ feladat megoldásában kérek segítséget:

Az elsõ munkalapon az alábbi sorok vannak, a sorok melletti cellában pedig egy szám, pl:
kukorica  0
tojás    10
kenyér    3
kiskutya  5
kolbász 0
béka    2
liszt        0

Azt kellene megoldanom, hogy a második munkalapon egymás után listázza ki azokat amelyeknél a szám nem nulla. Ezt meglehet oldani úgy, hogy kiirja amelyik nem nulla, de üres sorok maradnak közöttük. Az kellene, hogy üres sorok ne legyenek, csak a szövegek egymás alatt, mögöttük a számmal.

A végeredmény a következõ lenne:
tojás    10
kenyér    3
kiskutya  5
béka    2

Makrón kívül van erre megoldás?

[Delila]

Makrón kívül az HA függvénnyel. A másik lap A1 cellájába:

=HA(Munka1!$B1>0;Munka1!A1;""), és ezt jobbra húzod a B1-be, a kettõt együtt addig, ahány sorod van a Munka1 lapon.

Ezután a Munka2 adatait rendezed az A oszlop szerint csökkenõ sorrendbe, és a végérõl letörlöd a képleteket tartalmazó felesleges sorokat.

Ha fontos az eredeti sorrend, akkor itt egy makró:

Sub Kigyujt()
    sor_1 = 1
    For sor = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(sor, 2) > 0 Then
            Sheets("Munka2").Cells(sor_1, 1) = Cells(sor, 1)
            Sheets("Munka2").Cells(sor_1, 2) = Cells(sor, 2)
            sor_1 = sor_1 + 1
        End If
    Next
End Sub

[Pikkolo]

Idézet: Delila - Dátum: 2008. nov. 19., szerda - 20:55

Makrón kívül az HA függvénnyel.
..

Automatikusan, makró nélkül lehet valahogyan egymás alá rakni?
Mert ha nincsen akkor makrózok majd.

[Delila]

Tegyél ki az Ûrlap eszköztárról egy gombot, amihez hozzárendeled a makrót. Ez kényelmesebbé teszi a használatát, nem kell bemenni az Eszközök/Makrók menübe.

A sûrûn használt makróknál mindig ezt alkalmazom.

[Warrior]

Sziasztok, excel guruk! 1 pillanatnyi kérdésem lenne. Az volna a feladat, hogy egy teszt-értékelõ makrót írogatok, ami egy rögzített formátumú kitöltött tesztlapról "összeszedi" a megoldásokat, értékel, hány válasz jó, stb.
A megoldást viszont másik fájlban (tehát másik munkafüzetben) KELL tárolni, így kérték, tehát a másik fájl a "kulcs", illetve oda mennek majd az eredmények is, összesítés, stb. Onnan kellene tulajdonképpen kiolvasni, pontosabban annak az egyetlen munkalapjáról kellene kiolvasni értékeket, mert egy kérdés-azonosítóval vannak jelölve a kérdések, s így lehet összevetni, melyik a jó válasz. Van, ahol több válasz is adható, stb. Úgyhogy ezért gondoltam makrós megoldásra, számomra egyszerûbb volt mindaddig, amíg másik fájlból nem kellett dolgozni. Szóval ha minden egy munkalapon volna, akkor már kész is volnék rég, de a kiértékelõk nem akarják a "megoldó kulcs-táblát" odamásolni a tesztlapra természetesen, az megmarad központi helyen, számukra elérhetetlenül, stb. Nem is ez a lényeg.
Arra rájöttem, hogy meg kell nyitni a másik fájlt. Anélkül nehézkes hozzáférni, maximum a Jet segítségével, de ahhoz sajnos kuka vagyok.

Tulajdonképpen az volna a kérdésem, hogy hogyan tudom 1 cikluson belül megcímezni, elérni, kiolvasni egyik fájl adott sheet-jérõl adott cellák tartalmát, s összehasonlítani egy MÁSIK fájl adott sheet-jének adott celláival.
Mert ami példákat találtam, azok mind kiolvasták a másik fájl megnyitása után az adott cellát, kiírták msgbox-ba, stb. De nem "léptek vissza" az eredeti munkafüzetre! Asszem kell váltani munkafüzetek között ez esetben, csak nem tudom, milyen paranccsal, illetve mi kell még ehhez, milyen "környezet", milyen változókat kell deklarálni ehhez . Ebben kérném a segítségeteket, tehát hogy tudok egyik fájl egyik füzetébõl kiolvasni, s egyúttal másik fájl másik füzetébõl is.

Bocsánat, ha bonyolultan írtam. Segítséget köszönöm!

ps.: nem kell full program, nekem elég csak az utasítás, vagy kiindulási pont, a programot már megírom, csak jó volna célirányos segítség, olyanoktól, akik élbõl hajítják ezt a témát...

Köszönöm!

ps/2.: bár jó link olyan doksihoz is, amiben az egyszerre több munkafüzetben való melózás le van írva olvasni nem tudók számára, így én is megértem...

Szerkesztette: Warrior 2008. 11. 20. 14:34 -kor

[Delila]

Szia!

Váltás a füzetek között:  ActiveWindow.ActivateNext
Hivatkozás másik füzet adott cellájára:  ActiveCell.Formula = "=[Eredmények]Munka1!A1"

[Pikkolo]

Idézet: Delila - Dátum: 2008. nov. 20., csütörtök - 15:13

Tegyél ki az Ûrlap eszköztárról egy gombot, amihez hozzárendeled a makrót. Ez kényelmesebbé teszi a használatát, nem kell bemenni az Eszközök/Makrók menübe.

A sûrûn használt makróknál mindig ezt alkalmazom.

Köszi, nagyon jól mûködik

[Delila]

Szívesen.

[Pikkolo]

Van olyan lehetõség, hogy gombnyomásra egy minta.doc-ba bemásolja az elõre meghatározott sorokat? Ha igen akkor úgy kellene megoldani, hogy képként teszi át a dokumentumba az excel tábla sorait

[Root_Kiskacsa]

Idézet: Pikkolo - Dátum: 2008. nov. 21., péntek - 18:01

Van olyan lehetõség, hogy gombnyomásra egy minta.doc-ba bemásolja az elõre meghatározott sorokat? Ha igen akkor úgy kellene megoldani, hogy képként teszi át a dokumentumba az excel tábla sorait

Megoldható. Arra nem tudok rájönni, hogy hogyan lehet rávenni a Word-öt VBA-n keresztül, hogy legyen szíves és képként illessze be a vágólap tartalmát. (Menün keresztül persze nem gond.) Még a makrórögzítõ is hülyeséget rögzít, ha megpróbálom menün keresztül leutánozni neki a mûveletet.
Így most az alábbi példa csak hagyományos táblázatként illeszti be az Excelben kijelölt területet:

Sub FogdEsViddWordbe()
    Dim WordApp As Object, WordDoc As Object
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True ' <- Ez a sor csak akkor kell, ha látni is akarod a Word ablakot, miközben összeállítja a dokumentumot mentéshez.
    Set WordDoc = WordApp.Documents.Add
    WordDoc.Activate
    Selection.Copy
    WordApp.Selection.Paste
    WordDoc.SaveAs "C:\minta.doc"
    WordApp.Quit False
End Sub

[szucsati]

Idézet: Delila - Dátum: 2008. nov. 12., szerda - 8:55

szucsati

Sub Keres()
    keresendo = "szucsati"
    For sor = 1 To 100
        For oszlop = 1 To 20 'A:T oszlopok
            If Cells(sor, oszlop) = keresendo Then
                'Teendõ, ha igaz
            Else
                'Teendõ, ha nem igaz (el is maradhat)
            End If
        Next oszlop
    Next sor
End Sub

Értelemszerûen elmaradhat a for oszlop-next oszlop sor a makróban, ha csak egy oszlopban keresed az értéket. Akkor viszont meg kell adni fixen, hanyadik oszlopban keressen.
Az ELSE ág sem kell, ha csak tovább kell lépni "nem találat" esetén.

Ismét köszönöm a tippet . Eddig nem is volt idõm folytatni a munkám, de most hipp-hopp sikerült a leírásodnak hála 

[Delila]

Szucsati

Szívesen. 

[Pikkolo]

Van egy csodaszép makrós excel programom, de 2007-es excelben nem akar menni. Van rá megoldás, hogy mûködésre bírjam?

[Delila]

Pikkolo

A színes (Excel?) gomb menüjében lent találod Az Excel beállításait, ott balra a Bõvítményeket.
Lent kattints az Ugrás gombra, és jelöld be az Analysis ToolPak és az Analysis ToolPak - VBA jelölõket.

[Pikkolo]

Idézet: Delila - Dátum: 2008. nov. 25., kedd - 16:43

Pikkolo

A színes (Excel?) gomb menüjében lent találod Az Excel beállításait, ott balra a Bõvítményeket.
Lent kattints az Ugrás gombra, és jelöld be az Analysis ToolPak és az Analysis ToolPak - VBA jelölõket.

Köszi, holnap megnézem

[Pikkolo]

Már futtatja a VBA-t, de sajnos a beillesztendõ külsõ képeket egy helyra rakja és nem a megfelelõ pozicióba