Telefonszámunk: 1-472-0679

[Resolved] Értékek másolása fix cellából de a beillesztés mindig új sorba

Kezdőlap Fórumok Excel programozás [Resolved] Értékek másolása fix cellából de a beillesztés mindig új sorba

Topic Resolution: Resolved
18 bejegyzés megtekintése - 1-18 / 18
  • Szerző
    Bejegyzés
  • #6558
    Fecske22
    Felhasználó

      Sziasztok!

      Egy olyan makróra lenne szükségem, hogy:
      Adott egy cellatartományom (pl.:A2:D2), ezekbe a cellákba mindig új számok kerülnek, amelyeket szeretnék kigyűjteni egy másik munkalapra.
      De úgy másolja át az adatokat, hogy a beillesztés mindig a következő üres sorba történjen, és amit már egyszer átmásoltam az ne változzon meg.

      Valaki tudna nekem segíteni ebben??
      Biológus vagyok, nem tudok programozni, csak próbálkozok a netről makrókat alkotni. És erre nem nagyon találtam még megoldást.
      Előre is köszönöm a segítséget.

      #6559
      delila
      Felhasználó

        Szia!

        A lapon, ahova beviszed az értékeket, az A:D oszlop ne legyen zárolt. Védd le a lapot. Nálam a „SzuperTitkosJelszó”-védi a lapot.
        Másold be a makrót egy modulba, majd tegyél ki hozzá egy gombot. Az aktuális sor A:D tartományát másolja a Munka2 lap első üres sorába. Ha van, ha nincs fejléc a Munka2-n, az első másolat a 2. sorba kerül (üres lap esetén).
        Másolás után a kiinduló munkalap kitöltött sora nem írható felül, zároltak lesznek a cellák.

        Sub Masolas()
            Dim ide As Long
            
            ActiveSheet.Protect Password:="SzuperTitkosJelszó", UserInterfaceOnly:=True
            ide = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
        
            Range("A" & Selection.Row & ":D" & Selection.Row).Copy _
                Sheets("Munka2").Range("A" & ide)
            Range("A" & Selection.Row & ":D" & Selection.Row).Locked = True
        End Sub
        #6560
        Fecske22
        Felhasználó

          Szia!

          Köszönöm a gyors választ.
          Működik a kód, szépen átmásolja a megadott cellákat a másik munkalapra és valóban mindig egy új üres sorba rakja őket.
          Viszont az a baj hogy mindegyik sorba az új számokat másolja.
          Az előzőleg átvitt számokat is átírja az új számokra.

          #6561
          delila
          Felhasználó

            Csatolom az én füzetemet.

            #6562
            delila
            Felhasználó

              Pardon, csak becsomagolva lehet csatolni a makrós füzetet.

              Attachments:
              You must be logged in to view attached files.
              #6564
              Fecske22
              Felhasználó

                Sikerült.
                Jól működik.
                Nagyon szépen köszönöm a segítséget.

                #6565
                delila
                Felhasználó

                  Szívesen. Örülök, hogy végül összejött.

                  #6569
                  Fecske22
                  Felhasználó

                    Szia!

                    Lenne egy következő problémám.

                    Készítenem kellett egy random szám generátort, mely egy gomb nyomásakor generál 5 számot.
                    Ezt gyakorlatilag a véletlen.között() függvénnyel meg is oldottam, írtam hozzá egy kis makrót, hogy amikor rákattintunk a gombra, akkor számolja újra a függvényt így új számokat generál. Viszont gyakran adja ugyanazt a számot amit már korábban is.

                    Ezt a generátort több ember is használni szeretné, melyhez készítettem egy legördülő listát. Itt ki tudja majd választani magát az adott személy, majd generálni 5 számot, csakhogy a generáláskor figyelni kellene azt is, hogy adott embernél mely számok voltak már, és azokat ne adja ki újra a generáláskor.

                    Részben ehhez kellett a tegnapi makró, amivel most már át tudom menteni egy másik munkalapra, hogy melyik ember melyik számokat generálta. Ehhez kellene esetleg vmi feltételt kapcsolni, hogy ha ebbe a táblázatba már szerepel az adott személyhez egy szám, akkor azt ne generálja újra.

                    Remélem érthető volt valamennyire a probléma.

                    #6570
                    delila
                    Felhasználó

                      Mekkora számok kellenek, és mi az elrendezés?
                      A nevek esetleg külön-külön lapon vannak, vagy mindegyik egymás alatt valamelyik oszlopban 1 lapon? A kigyűjtés 1 lapra, vagy esetleg mindenkinek a saját lapjára történjen?

                      #6571
                      Fecske22
                      Felhasználó

                        Igazság szerint ez egy szóbeli vizsgáztatáshoz kell, ahol a vizsgáztató oktatók kiválasztják magukat egy legördülő listából (egy munkalapon). Majd ugyanezen a munkalapon a hallgató nyom egy gombot és generál neki 5 számot, amely a tételek száma, és a hozzá tartozó tétel egy másik munkalapon jelennek meg, amit utána ki tudunk nyomtatni.
                        Az első generált szám 1 és 30 között, a második, a harmadik és a negyedik 1 és 22 között, az ötödik 1 és 32 között kell legyen.
                        Az elrendezés minden egy sorban van B8 cella – oktatók listája; D8 – hallgató neve; I8 – első generált szám; K8 – második generált szám; M8 – harmadik generált szám; O8 – negyedik generált szám; Q8 – ötödik generált szám. A kigyűjtés pedig a B8:Q8 tartomány, ezt azzal a makróval sikerült megcsinálni, amit küldtél tegnap.

                        A kigyűjtés egy munkalapra történik most, de lehet azt is hogy mindenkinek egy saját lapra történik a kigyűjtés. Így gondolom a generálásnál figyelembe tudja venni azt a cellát ahol az oktató neve szerepel, és annak megfelelően az adott oktató saját kigyűjtött listáját veszi figyelembe, hogy mely számokat ne generálja újra.

                        #6572
                        delila
                        Felhasználó

                          Úgy rémlik, hogy erre már megkaptad a választ egy másik fórumon…

                          #6574
                          Fecske22
                          Felhasználó

                            Valóban kaptam még választ erre a problémára, csak elfelejtettem azt a fórumot megnézni. 🙂
                            Bocsi.
                            És ráadásul szerintem pont Te is írtál rá megoldást, legalábbis a felhasználónévből erre következtettem.
                            Ha az ott leírtakat sikerül megvalósítanom, akkor majd írok még ide is.
                            Ha nem sikerül, akkor majd írok, hogy hol akadtam el.

                            #6575
                            delila
                            Felhasználó

                              Ott választásról volt szó, nem sorsolásról

                              #6576
                              Fecske22
                              Felhasználó

                                Igen most néztem, tök jó ez a választható listás megoldás is, hogy mindig azzal csökken a amit már kiválasztottunk.
                                A videó alapján meg tudom csinálni, de ezt hogy integráljam bele a random szám generálásba?

                                Illetve az egyik hozzászólásba kaptam ugyan egy excelt, de abban én nem láttam automatizálást, csak manuálisan másolni kellene, de én nem tudok ott ülni a gép mellett és minden oktatónál ezt megtegyem.
                                Illetve azért szeretném automatizálni, mert egyes oktatók teljesen távol állnak az exceltől, és nekik sajnos annyira le kell egyszerűsíteni, hogy csak egy gombot kelljen nyomnia, és minden működjön automatikusan.

                                #6577
                                delila
                                Felhasználó

                                  Nem szükséges a véletlen. A nebuló csak a számokat látja, abból választ. Ehhez az FKERES függvény megadja a szöveget.

                                  #6578
                                  Fecske22
                                  Felhasználó

                                    Mondjuk azt megtudnám ezzel csinálni, hogy a hallgató választ a listából egy számot, tetszés szerint, de a számokhoz tartozó tétel címét nem látja, és pl. minden nap a számokhoz tartozó tételek sorrendjét megkeverem. Így nem tudják megjegyezni, melyik szám melyik tételt jelenti.
                                    Ez egy teljesen más megközelítése a dolognak, de működhet is.

                                    És az eredeti felállásra nincs lehetőség?
                                    Miszerint egy random szám generálásnál, megadhassam kivételeket tartalmazó tartományt (hogy azokat a számokat ne adja ki eredményül)
                                    Azért érdekelne, hogy ezt meg lehet e oldani valahogy. 🙂

                                    #6579
                                    delila
                                    Felhasználó

                                      Meg lehet oldani egymásba ágyazott ciklusokkal, de nem érdemes. Kevés az előállítandó szám, sok időbe kerül, míg mind az 5 szám eltérő lesz.

                                      #6580
                                      Fecske22
                                      Felhasználó

                                        Nem kell mind az 5-nek eltérőnek lennie, mert az 5 szám különböző kalapból adja a tételt. Csak az a lényeg hogy egy újraszámoláskor, ne adja ismét azt a számot amit előbb. Tehát az első tétel kupachoz tartozó generált szám, minden egyes generáláskor más és más legyen.

                                      18 bejegyzés megtekintése - 1-18 / 18
                                      • Be kell jelentkezni a hozzászóláshoz.