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
580
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
- 1832244
Oletko ymmärtänyt
Oletko ymmärtänyt jotain kaivatustasi lähiaikoina tai oletko muuttanut mielipidettäsi kaivatustasi?1711965Sanna Ukkolan kolumni: Rautarouva, joka unohti joukkonsa - Riikka Purran pitäisi katsoa peiliin
"Historialliset tappiot eivät synny vahingossa. Ne syntyvät, kun johtaja unohtaa, ketä hänen piti palvella, kirjoittaa I441923- 1281620
Ikäero suhteessa
Huomasin äsken Iltalehden tuoreen artikkelin, jossa kerrottiin, että vain 5% parisuhteista on yli 10v ikäero. Millaisia641479Liian paljon hylättyjä ääniä
Ottakaa avustaja mukaan jos ette osaa äänestää oikein. Moni varmaan sekosi kahden listan ja lipun takia. Oliko tarkoitus1891460Tiedän kyllä sen
Että käyt täällä. En kuvittelisi sellaista asiaa. Tiedän kyllä senkin, että olet ainakin ollut minusta kiinnostunut. Sen771221Ähtärin vaalitulos ja nyt neuvottelut alkavat
Keskusta voitti yhden paikan Ähtärissä kun oli hyvin ehdokkaita ( 32) ja kansanedustaja veturina keräämässä ääniä. P311074- 711063
Taas syytöntä illlllkkaa rangaistiin
Niin se vain paha saa palkkansa ja rääsyämiselle ja räkimiselle laskettiin hinta. Ottaisi nyt tuo onneton lusikan kauni751043