Arkistointia ja päivämäärän luonti

m3rkki

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

3

128

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      33
      1441

    2. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      69
      1125

    3. 41000 kavallettu rahaa

      uutisoi Kaleva ja iltasanomat vuosina 2020-2022 välisenä aikana hävinnyt toi summa tuomittu nainen 1971 syntynyt.
      Pyhäjärvi
      43
      1013

    4. Tuleeko tästä

      Enää mitään. Voiko mitään enää korjata?
      Ikävä
      105
      1008

    5. Mitä muutoksia tekisit

      kaivatullesi? Miten on? Muista olla REHELLINEN 📸
      Ikävä
      68
      825

    6. Kerro minulle

      Miksi teit niinkuin teit? Miksi kielsit tunteesi minua kohtaan. Miksi et halunnut että tiedän oikeasti mitä tunnet. Etkö
      Ikävä
      56
      789

    7. Fantasioista

      Suurimmalla osalla meistä on jonkinlaisia eroottisia fantasioita. Miten sinä suhtaudut fantasioihin? Ruokitko niitä vai
      Sinkut
      117
      785

    8. Tietäisitpä vain mitä se

      yksikin on susta puhunut :) j
      Ikävä
      42
      776

    9. Olet sinä ihana

      Muttei sua taida kiinnostaa muu kuin sun työ:(
      Ikävä
      29
      675

    10. Rakkaalle J miehelle.

      Hitto mulla on sua ikävä. Haluisin heti nyt tulla sun syliin ja suudella sua.ja, ja ja... Hirveä ikävä.
      Ikävä
      59
      663
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt