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

668

    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. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      112
      3687
    2. Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista

      ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv
      Maailman menoa
      310
      2590
    3. Ulkoistin makuaistini Yleisradiolle

      Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,
      Maailman menoa
      0
      2160
    4. Sanna on pakottaja, domina

      Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k
      Maailman menoa
      43
      1951
    5. Skodan hankintaan painostaminen toi potkut

      Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll
      Skoda
      9
      1709
    6. Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua

      Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle
      Maailman menoa
      117
      1188
    7. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      100
      1182
    8. No onneks ei tartte sit olla

      Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....
      Ikävä
      5
      1000
    9. Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä

      Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu
      Yleistä autoilusta
      79
      946
    10. Mitä sun päässä oikeen liikkui

      Silloin kun menit laittamaan sille viestiä? Jotenkin tosi outoa?
      Ikävä
      52
      932
    Aihe