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

436

    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. Valkeakosken murhaaja

      Raiskausrikosten joukossa kanta suomalainen tekijä on niin harvinainen että kannattaa erikseen mainita. Raiskausuutisia
      Maailman menoa
      182
      10882
    2. Valkeakosken sekopää murhaaja.

      Itselläni on 3 teini ikäistä tytärtä ja tämä tapaus on herättänyt minussa tosi paljon surua ja vihaa. On käsittämättömän
      Valkeakoski
      140
      2014
    3. Naiset pysyy sinkkuna ja ottavat mieluimmin koiran

      Nykynainen ei halua jakaa elämäänsä miehen kanssa, vaan elää yksin ja ottaa koiran tai koiria. Ja pikkuvähemmistö eli in
      Sinkut
      241
      1354
    4. Sille yhelle vaa

      Viime aikoina oon miettinyt sun juttuja aika paljon. Vaikka en oo saanu susta vielä kunnolla selvää kuvaa, jotenkin tunt
      Ikävä
      61
      980
    5. Kiitos kun annoit värejä elämääni

      Edes pienen hetken. Sellasiakin mitä en muuten näe ;) ❤️
      Ikävä
      53
      890
    6. Hiljaista on

      Ei kuulu viestiä 😘 pallo on sinulla Mies, odotan!
      Ikävä
      60
      838
    7. Nainen, se kun olit joskus niin vakavana

      ja naama peruslukemilla, toisinaan silloinkin kun kuuntelit juttujani. Se ilme on jäänyt lähtemättömästi mieleeni. Mitäh
      Ikävä
      42
      737
    8. Onhan sulla

      Nainen nyt varmasti kaikki hyvin.
      Ikävä
      52
      689
    9. Olen ylpeä sinusta

      nainen. Vaikutat "vanhalta" tekijältä. Olet aarre tälle touhulle ja uskon että pääset vielä pitkälle jos haluat. Ehkä sa
      Tunteet
      25
      675
    10. Kysymys iltaan

      Kuinka kuuma kaivattusi on celsius-asteikolla?
      Ikävä
      42
      669
    Aihe