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?
Tietojen liittäminen exceliin, lukumuotoilu
Anonyymi-ap
6
914
Vastaukset 6
- 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
Venäjä alkaa iskemään Suomen politiikkaan.
Tässä on valtion ja koko länsiliiton päämiehet varoitelleet, että Venäjä alkaa talven aikana taas iskemään hybridisesti.2351439Hallituksen järjestämä spektaakkeli tuo vessanpyttykeissi
Että olisi kymmenien kansanedustajien kodeissa käyty ihan tuosta vaan, eikä kukaan kansanedustaja kerro niin käyneen, va249990Sysmän "ilon päivä"
Ja taas palaa hirveä määrä verorahoja, ihan turhaan soopaan. Eikö nämä jotka kuntapolitiikassa valittavat ja tuhoaa vaan68762Uskon, että saataisiin kaikki selvitettyä
Mutta yhteys on jäissä, minä olen jäässä, enkä osaa tai uskalla enää lähestyä. Se vaan on niin. Naiselta Jos ei ole hyvä48713Miltä tuntuu vanhempi nainen olla
Pihkassa huomattavasti nuorempaan kolliin joka on uskollinen ja kiltti ja tottelee joka asiaa ja tykkää pussailla ja pan86698- 109599
Joka ilta mietin
sua❤️Mitä teet, missä meet? Kaipaatko yhtään? Yön tullen toivotan mielessäni sulle hyvää yötä ja aamuisin huomenet. Joka27573Riitastako pelastaja
Riitta jätti hakemuksen. Hyvä niin. On ainakin yksi mistä ottaa. Pertsa ei taida aikuistua koskaan ja Pekka hoiteli silt34564Timo Vornanen.
On siinäkin yksi täystampio. Eipä ihme, että persukannattajat sen eduskuntaan äänestikin.46548Luottamus
Luotan vain siihen mitä tapahtuu IRL. Anonyymipalstan vihjailut eivät merkitse minulle mitään.94525- 40471
- 31461
Millaisen talvitakin haluaisit?
Talveen vielä aikaa, mutta talvitakit tulleet kauppoihin. Millainen olisi unelmiesi talvitakki? Itse tykkäisin jostain75440Kadutko mies sitä miten reagoit?
..siihen sotkuun, jonka jälkeen mikään ei ole ollut kuin ennen. 🥺45417- 77412
Onko kahvila Retro samalla pub???
Netin mukaan anniskeluoikeudet. Käykö tuolla kaljoitteluporukkaa? Onko iltaviihdettä? Olen muuttamassa marraskuussa Kuhm8407- 30393
- 27390
Oletteko täyttä sataa?
Muuta etunimienne kirjaimet numeroiksi. Esim. Mia ja Risto siitä tulee 8 numeroa. Laske ne yhteen . Paljonko tulee?33390Iivari esittää poliisin tutkintaa
Siikalatvan kunnanjohtaja Pekka Iivari on pannu ison pyörän liikkeelle. Entinen Kemijärven historian lyhimmän kaupunginj21371