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
508
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
Kysynkin sinulta nyt...
Tahdotko sinä minusta miehestä enää mitään..koskaan? Vastaa kyllä/ei/en tiedä ja siihen puhelinnumeroni kaksi viimeistä627749Voi luoja miten haluaisin
jutella kanssasi nyt. Harmittaa, että pidin estossa, mutta silloin olisin ollut riekaleina pienistäkin syytöksistä tai474426Nainen, vaikka kaikki on
ohi eikä koskaan alkanutkaan, niin tekisi silti mieli jakaa tämä trippi kanssasi, kertoa mitä kappaleita kuuntelin jne.264135- 1061966
- 1201820
Haluan sinua mies, aivan stanasti.
Ehkä enemmän kuin ketään koskaan ikinä, joten kysymys kuuluukin miten hlvetissä SÄ kestät tän näkemättömyyden. Toivottav721137NATO kaapelirikon takana, NORD STREAM putkirikon tapaan, yritys häiritä merenkulkua Itämerellä ?
Yhä enemmän on viitteitä siitä että Suomi , Viro ja NATO on viimeisemmän kaapelirikon takana. Estlink 2 kaapeli on nyt2941133IS Viikonloppu 28.12.-29.12.2024
Ei ole tainnut tästä vielä olla omaa keskustelua? Nyt on. Vihjeitä ja ratkaisuja vaan peliin.941116On hyvä nainen
Että olet pian käynyt läpi kaikki tunteet ja vaiheet mitä ihastuminen/rakastuminen saattaa käsittää. Tunnemyrsky on maht80962Ymmärtääkö miehet
Miten hormonit vaikuttaa naiseen kuukautisten aikana ja ennen sitä? On se mielenkiintoista, kun miehet on kestäneet soti115853