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

914

Äänestä

    Vastaukset 6

    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ä.

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Ampuminen kylpylässä

      Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa
      Naantali
      74
      1650

    2. Naantalin kylpylän ampujat

      Oli somppumatuja. Nyt mennään. Suomi on ruotsi.
      Maailman menoa
      20
      1124

    3. Kemijärvellä vesionnettomuus

      Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as
      Kemijärvi
      32
      1063

    4. Hei, voitko kuunnella

      Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu
      Ikävä
      133
      871

    5. Joku porukka lähtenyt täältä

      Ihmeen hiljainen on palsta nyt. Yleensä tänne tulvii aloituksia yms, mutta nyt on kyllä erikoisen hiljaista.
      Ikävä
      189
      806

    6. Miten yrität

      Vielä saada kaivattusi?
      Ikävä
      64
      684

    7. Olipa yllätys

      Kuten hyvin moni tiesi/arvasi että valetta alusta loppuun toi *olemme ystäviä* satu. Instassaan käsi kädessä kuva kertoo
      Kotimaiset julkkisjuorut
      191
      607

    8. On todella ikävää

      Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit
      Ikävä
      79
      598

    9. Tuletko tänään

      Jos soitan? Niin... tuletko?🖤
      Ikävä
      48
      528

    10. Mitä kirjainta kaipaat?

      L.
      Ikävä
      69
      510

    11. Ottanet yhteyttä

      Facebookissa,jos on jotain asiaa.Miehelle! T.M-nainen.
      Ikävä
      55
      507

    12. Se kun olit pitkästä aikaa silmieni edessä

      Oli kyllä sykähdyttävää. Tiedätkö, mikä laittaa minut ikävöimään sinua? Kun palautan mieleeni valtavan ihanan olemuksen,
      Ikävä
      32
      498

    13. Muutto auto hakee sut tänään!

      Tein sulle oman huoneen! mieheltä naiselle
      Ikävä
      57
      485

    14. Oletteko koskaan torjuneet kaivattuanne?

      Minä olen, kun en silloin tajunnut vielä ihastuneeni. Yritin paikata tapahtunutta, mutta ei onnistunut enää.
      Ikävä
      25
      457

    15. Kai sä mies ymmärrät..

      ..ettet jättänyt vaihtoahtoa. Tottakai toivon vielä, että pystyisit toimimaan niin että asiat korjaantuisivat. Vahvast
      Ikävä
      28
      422

    16. Jos kaivattusi olisi

      Vieressäsi niin mitä tekisit?
      Ikävä
      40
      417

    17. En tiedä mitä sanoa

      Siksi en vastannut😔
      Ikävä
      33
      413

    18. Kiinni jäit

      Ei olisi uskonut sinusta
      Ikävä
      16
      399

    19. Päivän galluppi

      Minkälainen ehkäisy sinkkupalstalaisilla käytössä?
      Sinkut
      82
      398

    20. En usko et enää

      Uskaltaisit irl mitään
      Ikävä
      37
      396
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt