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
712
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
20v on otettu kiinni
Tulipalo oli sytytetty joten murhasiko ex omat lapsensa ja heidän Äidin. Tuskin sitä kukaan ohikulkijakaan sytytti.1157305Somali ei kätellyt Stubbia Linnan juhlissa
Miksei somali osaa noudattaa hyviä käytöstapoja. https://www.iltalehti.fi/viihdeuutiset/a/563a3dea-fa3f-41f3-b64f-406d26564835Kuka on menehtynyt?
https://yle.fi/a/74-20198293 Kuulemani mukaan ryyppyporukka ollut hapualla ja kuolemanenkeli (F.G) eli mies jonka seuras243164Nainen, ota nyt rauhallisesti
Älä ota kaiken maailman murheita päällesi. Sulla on tapana ottaa elämä liian vakavasti. Ei aina, mutta joskus menee vähä1381317- 501305
Savonlinan perhesurma, epäilty mies romani, äiti kantaväestöä
https://www.is.fi/kotimaa/art-2000011676508.html Savonlinnan seudun romaniyhdistyksestä kerrottiin lauantaina IS:lle, e901158Savonlinnan murhapolttaja romani
Ainakin IS kertoo. Arvasin heti ettei ole normi valkolainen suomalainen.1171059Ajattelen sinua kiitollisuudella
Olet minulle jotain kaunista, jotain, joka tapahtui elämässäni. Et ole minulle pakkomielle enkä vaadi sinulta yhtään mi51956Sinulle tiedoksi
Olen paljon miettinyt sitä hetkeä, kun uskalsin näyttää pienin elein ja kertoa pienesti, eli hyvin hillitysti sinulle si27863Mitä olisitte sanonut hänelle?
Onko teille jäänyt mieleen joku tietty ihminen ja tilanne, joka polttelee yhä – se asia, jota ette uskaltaneet sanoa ään50854