Hei
Tarkoitus olisi luoda now komennolla tämä päivämäärä soluun ja sen jälkeen kopioida macrolla kolme solua toiselle välilehdelle. Kaikki toimii niinkuin pitää jos päivämäärän luonti on vasta kopioinnin jälkeen. Silloin vain tuo arkistointi idea kusoo, koska tarkoitus olisi merkitä kuittaushetken päivämäärä ja kuittaaja talteen.
Puuttuuko välistä vain joku pikku merkintä, vai mennäänkö koko hommassa ihan mettiin? Koodi on tehty hyvin pitkälti recordilla ja netistä etsimällä.
' Macrodate Macro
'
'Set Displaytime = Sheets(1).Range("d21")
Range("D21").Select
ActiveCell.Value = Now()
'Displaytime.Cells(1, 1) = Now()
'Columns("A:a").AutoFit
Application.Goto Sheets("päivämäärä").Range("A51,B51,C51")
Application.CutCopyMode = False
Selection.Copy
Application.Goto Sheets("arkisto").Range("C5")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("päivämäärä").Select
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
Arkistointia ja päivämäärän luonti
3
157
Vastaukset
mikäs tossa nyt mätti???
äkkiseltään näytäs ihan Ok
tässä sama kuitenkin siistittynä
oletin, että aktiiviseen taulukkoon tulee päiväys soluun D21
Sub koe2()
Range("D21") = Now()
Sheets("päivämäärä").Range("A51:C51").Copy Sheets("arkisto").Range("C5")
Sheets("arkisto").Rows("4:4").Insert
Sheets("päivämäärä").Activate
Range("A1").Select
End Sub
Keep EXCELing
@Kunde- m3rkki
En tiedä mikä siinä mätti, kuitenkin jumi iski aina now komennon jälkeen ensimmäisellä range rivillä.
Tuo uusi toimii muuten nätisti, mutta noista A51:C51 soluista pitäisi saada pelkästään arvot kopioitua toiselle välilehdelle. Ne kun ovat viitattuja soluja.
Kiitosta paljon kuitenkin jo tästä
Sub koe2()
Range("D21") = Now()
Sheets("päivämäärä").Range("A51:C51").Copy
Sheets("arkisto").Range("C5").PasteSpecial Paste:=xlPasteValues
Sheets("arkisto").Rows("4:4").Insert
Sheets("päivämäärä").Activate
Range("A1").Select
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli
Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.2951801IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!
Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk471579Milloin bikineistä
Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet1541291Apostolit kastoivat eri tavalla kuin kirkko
Raamatussa on kaksi ristiriitaista kastekaavaa. Toinen ei voi olla oikea. Kumpi on alkuperäinen? "Menkää siis ja tehkää5021141- 1431118
Johanna Tukiainen ei suostu muuttamaan pois vuokra-asunnosta!
Seiska kertoi tänään, että Johanna Tukiainen ei ole suostunut poistumaan Helsingin Munkkisaarenkadun vuokra-asunnostaan.791061Mene perheinesi arkkiin - kasteelle !
Juutalaiset oli hyvin lapsirakkaita, mitään ehkäisyä ei käytetty. Perheissä oli paljon lapsia. Viiden koko perheen kast4701047Olimmeko molemmat
ujoja ja hankalia, vai minä vain? Mietin, oliko se silloin epävarmuutta vai kiinnostuksen puutetta.73973Mun on ikävä sua J ,
Mun on ikävä sua J, haluaisin tutustua paremmin (vaikka tämä aivan älytöntä onkin). Voitaisiinko nähdä ja jutella ihan48932Kesä ja nuorison mopoilu
Tänään neljä mopoa ajelivat yöllä ihan miten sattuu pitkin kyliä liikenteenjakajan väärältä puolelta hirveää ylinopeutta153890