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
64
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
24h Kirppis
Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?133698Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain
Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja272760Suomessa eletään liian pitkään
"Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy2622631Deodoranttiteollisuus
Annan ilmaisen vinkin. Kyseinen teollisuus voisi alkaa valmistaa kuolleen ruumiin hajua. Olisi varma hittituote, ainakin51865- 2151376
- 721200
Martinan mies on Suomessa.
Siellä se on Martinan instassa ja täällä on jo ero tullut. Voi että kun huvittaa...1551016Maistaisitko sinä näitä valmisruokia?
Terhi Kinnari ja Kinnarin tila voitti Suomalainen menestysresepti -kisan. Makuja Kinnarin tilan kaurapohjaisissa aterioi30953Tuo yksi tampio vielä ilmeisesti kuvittelee
Että joku itkee peräänsä täällä vinkuen jotain utopistista kadonnutta rakkauttaan kaksoisliekit silmissä leiskuen. Pyhä90907Voitaisko olla kavereita?
Haluaisin aloittaa puhtaalta pöydältä sinun kanssasi, tabula rasa. Minä lopetan sinun perääsi haikailun, ja sitten sinäk2807