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
53
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
- 1723264
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1392137Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1112116- 921915
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet271633- 841630
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv2851144- 2271140
- 721138
- 74968