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
816
Vastaukset
- 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
Pride-rautu korvaamaan kirjolohi
Kekkosen saatanan tunari meni muuttamaan aikoinaan sateenkaariväen kalan nimen. Unkarin vallankumouksen innoittamana n402540Purran aikaisemmat kannattajat siirtyneet Lindtmanin leiriin
Melkoinen muutos on käynnissä Suomen politiikan kentällä. Tulevista häviäjistä on hirmuinen kiire päästä ajoissa voittaj1232456Järkyttävä hetki - Ellen Jokikunnas pöyristyy italialaisen lääkärin työstä
Unelmia Italiassa -sarjassa ollaan Ellen Jokikunnaksen perheen kanssa Italiassa. Jokikunnas ja Rask ovat rempanneet kakk281547Oot tosi epätavallinen
ja erikoinen nainen. Tykästyä ikihyviksi sun kaltaiseen naiseen, mitä tästä pitäis edes ajatella.491277Työeläkkeet ovat pois työntekijän palkasta
Jokainen työeläkkeen nimissä maksettu euro on otettu pois työtä tekevältä palkansaajalta. Mitä korkeampi työeläketaso o431256Etkö sä muru mussakaiseni ymmärrä
Että me päästään lähenemään vain kaveruuden kautta? Vain siten mä voin lähettää sulle kuvia ja viestejä 😌 Tänäänkin o301026- 74979
Muistatko? Maisa Torppa jakso räjäytti Veitolan somen: "epäaitoa ja teeskentelyä"...
Maisa Torppa täyttää tänään 35 vuotta, onnea! Maria Veitola vieraili Yökylässä-ohjelmassa aikansa kohujulkkis Maisa To13938- 37810
- 53805