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
705
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
Mihin kaikkeen sinä ihastuit hänessä
Mikä oli se asia mikä vei jalat altasi? ❤️ Oliko jotain erityistä tilannetta vai tunne? Kenties monen sattuman summa? Ai1029659Persut: haluamme lisää veroja!
Lisää lisää veroja huutaa persukuoro. Veroila Suomi nousuun! "Uusi matkailuvero eli matkailijamaksu peritään esimerki764967Nainen kokki autossa kammottavan kuoleman sähköauto-Teslan syttyessä tuleen.
https://www.is.fi/autot/art-2000011652873.html Näin vaarallisia sähköautopalot voivat olla.554702Persuja ei aluevaltuustoissa näy
Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.12732Päivän Riikka: Uudenkaupungin autotehdas hiljeni
Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j92431Numero josta kaivattusi tulee mieleen
Onko jokin numero joka yhdistää teidät jotenkin? Älä laita puhelinnumeroa.1051662- 451458
Kerro kaivattusi nimi tai nimikirjaimet
🌠 Tähdenlento! Kirjoittamalla kaivattusi nimen tai nimikirjaimet tähän, saattaa toiveesi toteutua.511397Jorman paluu sodasta Lieksaan oli katkera
Jorma Karhunen astui Lieksan asemalle. Aurinko paistoi, mutta Jorman maailma oli sumuinen. Takana oli se helvetti, jota581397Tämmönen höpsö
Höpönassu mä olen. En mikään erikoinen…hölötän välillä ihan levottomia. Tykkäisit varmasti jos olisin siellä sun vieress441306