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
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
Vastaukset 3
Vanhimmat
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
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