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
108
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
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu852379Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu4722337Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771482Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101440Sä olet epävakaa
tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all211411- 671333
Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun871103Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut2651103Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve1091102Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa
Hurjaa on meno. Keskisarja ihan kanveesissa.2711068