Tietojen liittäminen exceliin, lukumuotoilu

Anonyymi-ap

Onko mahdollista jotenkin määrittää oletusasetus tietojen liittämiselle? Haluaisin siis, että exceliin liitettävät tiedot olisivat oletuksena vain arvoja ilman mitään muotoiluja. Tiedän kyllä miten liitän vain arvot, mutta kaikki saman excelin käyttäjät eivät sitä tiedä/muista. Se taas johtaa siihen ettei kaavat toimi oikein.

Onko tähän mitään keinoa?

6

613

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Kun liität tämän ko. työkirjan moduliin (ThisWorkbook), kopiointi menee siinä aina ilman muotoiluja. Muotoilun saa kopioitua ainoastaan hiirellä raahaten. Tämä kopioi myös kaavat. Jos niitäkään ei saa kopioida, muuta xlPasteFormulas tilalle xlPasteValues.

      Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      Dim lastAction As String
      lastAction = Application.CommandBars("Standard").Controls("&Undo").List(1)
      If Left(lastAction, 5) = "Paste" Then
      Application.EnableEvents = False
      Application.Undo
      Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
      SkipBlanks :=False, Transpose:=False
      Application.EnableEvents = True
      End If
      End Sub

      • Anonyymi

        Kiitos!

        Rivistä "lastAction = Application.CommandBars("Standard").Controls("&Undo").List(1)"

        tuli herja:
        run-time error '5'
        Invanlid procedure call or argument

        En ymmärrä makroista juuri mitään, mikähän tuossa voisi olla?


      • Anonyymi
        Anonyymi kirjoitti:

        Kiitos!

        Rivistä "lastAction = Application.CommandBars("Standard").Controls("&Undo").List(1)"

        tuli herja:
        run-time error '5'
        Invanlid procedure call or argument

        En ymmärrä makroista juuri mitään, mikähän tuossa voisi olla?

        En keksi syytä. Kopioin makron tuosta ylhäältä tyhjään Exceliin, enkä saanut tulemaan virhettä.


      • Anonyymi kirjoitti:

        En keksi syytä. Kopioin makron tuosta ylhäältä tyhjään Exceliin, enkä saanut tulemaan virhettä.

        Koodi toimii enkkuversiossa, mutta suomiversiossa pitää fiksata ...

        Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        Dim lastAction As String
        lastAction = Application.CommandBars("Standard").Controls("&Kumoa").List(1)
        If Left(lastAction, 5) = "Liitä" Then
        Application.EnableEvents = False
        Application.Undo
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.EnableEvents = True
        End If
        End Su


    • Anonyymi

      EI TUOMMOISIA IHMEELLISIÄ VIRITYKSIÄ pidä mennä rakentelemaan, se on täysin turhaa sotkemista.

      JOS joku tapahtuma löytyy valikosta, mutta sillä ei ole painiketta telakassa, on valikossa kohta josta pääset mukauttamaan niin valikoita kuin myös telakan painikkeita, JA VARMASTI EDES TOIMII OIKEIN

      t. TURBO URPO

    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      279
      5266
    2. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      60
      4872
    3. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      96
      3784
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      52
      2790
    5. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      22
      2327
    6. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      47
      1898
    7. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      119
      1819
    8. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      99
      1556
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      71
      1115
    10. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      153
      1104
    Aihe