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

803

    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. Kunnissa - siis myös kaupungeissa - viihtyvät ovat kommunisteja

      Nehän ovat osa yhteiskunnan tuottamia instansseja, joista on vain haittaa veronmaksajille ja yrittäjlle, kuten ollaan ve
      Kommunismi
      34
      3124
    2. Järkevä ehdotus: reilun 8 miljardin euron veronkorotukset

      Nykyinen hallitus on päästänyt valtion tulopuolen rappeutumaan, vaikka varallisuutta on Suomessa enemmän kuin koskaan. U
      Maailman menoa
      71
      2195
    3. Iski taas katumus kun en jutellut sun kanssa

      Silloin kun halusit. Mutta en enää voi sille mitään, en saa muutettua sitä hetkeä..
      Ikävä
      182
      2015
    4. SDP todellisuudessa pahin pettäjä koskaan - se syyllistyi valtiopetokseen 1918

      kun aloittivat kapinan maan laillista valtiojärjestystä vastaan. Punaiset saivat tukea Neuvosto-Venäjän bolsevikeilta,
      Maailman menoa
      123
      1958
    5. Miksei asevelvollisuuden kuluja lasketa Nato-menoihin?

      Koskela (vas) kysyy aiheellisesti, että kun kerran palkka-armejaan perustuvat maat laskevat kysesestä toiminnasta aiheut
      Maailman menoa
      8
      1815
    6. Miksi vasemmisto ei vastusta ulkomaisen halpatyövoiman maahantuontia

      joka heikentää suomalaisten duunarien työmarkkina-asemaa ja rasittaa Suomen julkista taloutta? Vasemmistolla ideologin
      Maailman menoa
      101
      1594
    7. Purralla luistaa hihna isolla pyörällä

      Näki taas eilisillan tv-tentissä kuinka paniikissa oli kannatusromahduksen takia. Ei saanut kuin tiuskittua yksittäisiä
      Maailman menoa
      34
      1460
    8. Miksi kaikki avioeronneet miehet eivät kunnioita naisia?

      Niin. Miksi avioeronneet miehet kohtelevat huonosti naisia, jotka lähestyvät heitä? Tämä on kokemuksen rintaääntä. Tämä
      Sinkut
      222
      1259
    9. Uusi mahdollisuus

      Mitä tekisit toisin, jos saisit siihen mahdollisuuden?
      Ikävä
      90
      1231
    10. Poliisioperaatio

      Pääsiäisenä...... ja sit kahvila suljettu???
      Somero
      22
      1133
    Aihe