Telefonszámunk: 1-472-0679

[Resolved] Makró a “csak érték” beillesztéséhez

Kezdőlap Fórumok Excel témák [Resolved] Makró a “csak érték” beillesztéséhez

Topic Resolution: Resolved
6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • #9604
    PEAKERIKA01
    Felhasználó

      Sziasztok!
      Sokat egyszerűsítene az életemen, ha lenne gyorsbillentyű a csak érték beillesztésére és nem a CTRL V után kellene még kiválasztanom a csak érték opciót.
      Találtam a neten erre egy makrót, de nem akar nálam működni. Amúgy itt leltem rá:
      https://hu.extendoffice.com/documents/excel/2545-excel-set-paste-values-as-default.html

      Az elgondolás az lenne, hogy a makrót Ctrl É gyorsbillentyűre tenném rá. Mi lehet a hibája? Annyira jó lenne ez nekem!

      Sub PasteasValue()
      Selection.PasteSpecial Paste:=xlPasteValues
      End Sub

      Üdv:Erika

      #9605
      horvimi
      Adminisztrátor

        Ha jól értem, akkor a már ott lévő képleteket szeretnéd értékre cserélni.

        Sub PasteasValue()
          Selection.Formula = Selection.Value
        End Sub

        Nyilván előtte ki kell jelölnöd az oszlopot.

        Imre

        #9606
        PEAKERIKA01
        Felhasználó

          Szia, szerintem nem pont erre gondoltam.
          Adva van egy cella, amiben van egy megformázott adat, szám vagy képlet vagy szöveg, mindegy. Értéket szeretnék cserélni benne a formázást és minden egyéb jellemzőt meghagyva. Ha képlet volt, maradjon képlet, csak ne a régi, hanem az új. A forrás cellában CTRL C, a cél cellában CTRL V és azt az opciót választom, hogy csak az értéket másolja be a forráscellából.
          Ezt szeretném megspórolni, azaz létrehozni a CTRL V mellett egy CTRL É gyorsbillentyűt, ami alapértelmezetten értéket illeszt be és nem kell utána még az egérrel opciót választanom.
          És ne kelljen előtte kijelölnöm az oszlopot, hanem az egész dokumentumban működjön.

          Valaki okos ezt a megoldást találta ki erre, csak vmi miatt nem fut nálam:

          Sub PasteasValue()
          Selection.PasteSpecial Paste:=xlPasteValues
          End Sub

          Üdv: Erika

          #9607
          horvimi
          Adminisztrátor

            Remélem nem mondod komolyan, hogy ha képlet volt, akkor maradjon képlet.
            Az érték beillesztésnek a lényege, hogy a képleteket értékké alakítja.
            Persze másik lényege, hogy megtartja a cél formátumot.

            Amúgy nálam lefut az a kód, nem tudom, h nálad miért nem, de szerintem felesleges erre makrót használni

            Én például azt csináltam, hogy az érték beillesztés gombot kitettem az eszköztárra magamnak, így egy kattintás az értékbeillesztés.

            1. Fájl -> Beállítások -> Gyorselérési eszköztár
            2.Középső oszlopban a gyakori parancsok helyett a menüszalagon nem szereplő parancsok
            3. Megkeresed az Értékek beillesztése sort és nyomsz rajta egy dupla klikket.
            4. Megjelenik a gomb az eszköztáron felül az utolsó gomb után
            5. Ennyi

            Ha mindenképpen billentyűkombinációt szeretnél hozzá, akkor az eszköztáron ezt a gombot tedd az első nyolcba.
            Például ha ez a hetedik, akkor Így ALT-7-el működni fog. Ez már majdnem a Ctrl-É 🙂

            Imre

            • A hozzászólás módosításra került: 1 year telt el-horvimi.
            #9609
            PEAKERIKA01
            Felhasználó

              Hát ismét köszi. Igen, azt nem gondoltam komolyan, hogy maradjon képlet, hiszen akkor a képletmásolás lenne a megoldás. Feltettem gyorselérésre az értékbeillesztést, de az totál új volt nekem, hogy ALT-tal az első 8 elérhetó. Alt 1 lett, kicsi a kezem, nem tudok nagyon nyújtozni. Most egy ideig nem fogok kérdezni, űgy érzem, kimerítettem a kreditemet. Mindent nagyon köszi!!!!

              #9610
              horvimi
              Adminisztrátor

                🙂 Kérdezz csak bátran!

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