vaikea excel ongelma päivämäärissä

pete-vnt

Olen tekemässä maksuvalmiusexceliä. Ainoaksi ongelmaksi on muodostunut miten voi kopioida kuukausia kahvalla. Eli ekassa solussa on päivämäärä muodossa toukokuu 11, seuraava kesäkuu 11, mutta kun yritän kopioida kahvalla, eipä onnistukaa. Miten tuollaisen voi kopioida niin , että voin kopioida sen vuoteen 2021 asti. Onko ideoita?

10

225

Äänestä

    Vastaukset 10

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • pete-vnt

      Korjaan, siis miten teen kopioitavan kaavan, että kun kirjoitan ensimmäiseen vaikka maaliskuu 11 se ampuu koko taulukon täyteen seuraavia kuukausia ilman vetokahvaa. Anteeksi sekoiluni.

      • kunde
      • pete-vnt
        kunde kirjoitti:

        niksinurkasta toka postaus

        http://keskustelu.suomi24.fi/node/9847941

        Kunde ihan tuosta ei ollut kyse. Vaan miten tehdä kaavan, joka ilman raahaamista tekee saman eli kirjoitat elokuu 11 niin se osaa allaoleviin kavoihin kirjoitetulla funktiolla luoda sarjan elokuu 11 , syyskuu 11, lokakuu 11, marraskuu 11 ...ja sitten kun tulee uuusi laskelma laitan ekaan soluun esim. tammikuu 12 ja sitten se se taas osaa ampua seuraavat kuukaudet.

    • kunde

      eihäm tommosta ookaan joka osaa lukea sun ajatukset ja laittaa ne sarakkeeseen...
      jos haluat niin makrolla voi tehdä aktiivisesta solusta alkaen (oletuksena nyt sitten alaspäin...) antamastasi päiväyksestä alkaen loppupäiväykseen kuukausittain päiväykset ja muuttaa ne muotoon elokuu 11, syyskuu 11
      tommostako haluat....

      • pete-vnt

        jep. Nyt pääsit kärryille Kunde. Eli tismalleen sama asia kuin normi kaavoissakin eli miten saa kaavalla tehtyä sen, että kun syötän ekaan soluun tammikuu 11 ja laitan seuraavaan soluun kaavan. =A1 1 tulis helmikuu 11 jne.

      • kunde
        pete-vnt kirjoitti:

        jep. Nyt pääsit kärryille Kunde. Eli tismalleen sama asia kuin normi kaavoissakin eli miten saa kaavalla tehtyä sen, että kun syötän ekaan soluun tammikuu 11 ja laitan seuraavaan soluun kaavan. =A1 1 tulis helmikuu 11 jne.

        täyttää aktiivisesta solusta alaspäin valittujen päiväysten väliset kuukaudet

        moduuliin...

        Sub TäytäKuukaudet()
        Dim Alku
        Dim Loppu
        Dim i As Long
        Dim testi
        Application.ScreenUpdating = False
        uusi1:
        Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
        If Not IsDate(Alku) Then
        MsgBox "päiväys virheellinen"
        Alku = ""
        GoTo uusi1
        End If
        uusi2:
        Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
        If Not IsDate(Loppu) Then
        MsgBox "päiväys virheellinen"
        Loppu = ""
        GoTo uusi2
        End If

        testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation vbYesNo)
        If testi = 6 Then
        ActiveCell = Alku
        For i = 1 To DateDiff("m", Alku, Loppu)
        ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) 1, Day(ActiveCell.Offset(i - 1, 0)))
        Next i
        Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
        End If
        Application.ScreenUpdating = True
        End Sub

        Keep EXCELing
        @Kunde

      • pete-vnt
        kunde kirjoitti:

        täyttää aktiivisesta solusta alaspäin valittujen päiväysten väliset kuukaudet

        moduuliin...

        Sub TäytäKuukaudet()
        Dim Alku
        Dim Loppu
        Dim i As Long
        Dim testi
        Application.ScreenUpdating = False
        uusi1:
        Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
        If Not IsDate(Alku) Then
        MsgBox "päiväys virheellinen"
        Alku = ""
        GoTo uusi1
        End If
        uusi2:
        Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
        If Not IsDate(Loppu) Then
        MsgBox "päiväys virheellinen"
        Loppu = ""
        GoTo uusi2
        End If

        testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation vbYesNo)
        If testi = 6 Then
        ActiveCell = Alku
        For i = 1 To DateDiff("m", Alku, Loppu)
        ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) 1, Day(ActiveCell.Offset(i - 1, 0)))
        Next i
        Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
        End If
        Application.ScreenUpdating = True
        End Sub

        Keep EXCELing
        @Kunde

        wow..mikä temppu.

        Suurkiitos Kunde, oon ihaillu jo vuosia sun osaamista ja taas ei voi muuta kuin kehua. Toimii todella hyvin..Siihen ekaan soluun jäi se syötetty päivämäärä, miten senkin sais muotoiltuu samallatavalla , kuin kaikki muutkin eli samaan formaattiin kesäkuu 11 heinäkuu 11 jne. vai saako sitä?

      • kunde
        pete-vnt kirjoitti:

        wow..mikä temppu.

        Suurkiitos Kunde, oon ihaillu jo vuosia sun osaamista ja taas ei voi muuta kuin kehua. Toimii todella hyvin..Siihen ekaan soluun jäi se syötetty päivämäärä, miten senkin sais muotoiltuu samallatavalla , kuin kaikki muutkin eli samaan formaattiin kesäkuu 11 heinäkuu 11 jne. vai saako sitä?

        joo bugi oli , muuttuja oli väärää tyyppiä sille ekalle solulle(String kun pitäs olla Date)...
        Pikkuvika ja helppo korjata. Kumma, kun en itse huomannut testatessa tota eroa...

        ActiveCell = Alku
        ActiveCell = CDate(Alku)

        mutta tossa korjattu versio

        Option Explicit
        Sub TäytäKuukaudet()
        Dim Alku
        Dim Loppu
        Dim i As Long
        Dim testi
        Application.ScreenUpdating = False
        uusi1:
        Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
        If Not IsDate(Alku) Then
        MsgBox "päiväys virheellinen"
        Alku = ""
        GoTo uusi1
        End If
        uusi2:
        Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
        If Not IsDate(Loppu) Then
        MsgBox "päiväys virheellinen"
        Loppu = ""
        GoTo uusi2
        End If

        testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation vbYesNo)
        If testi = 6 Then
        ActiveCell = CDate(Alku)
        For i = 1 To DateDiff("m", Alku, Loppu)
        ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) 1, Day(ActiveCell.Offset(i - 1, 0)))
        Next i
        Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
        End If
        Application.ScreenUpdating = True
        End Sub
        Keep EXCELing
        @Kunde

        kiitti palautteesta ;-)

    • AjaKarille

      Musta tuntuu, että ainoa keino tehdä haluamasi on ohjelmointi.
      Kahvasta kopiointi onnistuu kyllä, esimerkiksi seuraavasti:
      Kirjoitat ensimmäiseen soluun Tammikuu 11 (vuosi).
      Muotoilet solun sisällön
      - Aloitus-välilehden
      - Lukumuotoilu-pudotusvalikon
      - Lisää numeromuotoja -komennolla esiin tulevassa valintaikkunassa.
      Valitse luokka Oma ja kirjoita Laji-kenttään kkkk vv.

      Sen jälkeen voit kopioida arvon vetämällä kahvaa toisella hiiren painikkeella ja valitsemalla pikavalikosta viimeisen käskyn. Tee esiin tulevassa valintaikkunassa Yksikkö-kohdassa vielä valinta Kuukausi.

    • okaro

      Laitat A2:een =päiväys(vuosi(a1);kuukausi/(a1) 1;päivä(a1)) ja sitten vedät sen alas.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Nyt se syksy on sitten alkanut

      Esimerkiksi tänään sataa aamusta iltaan, ja nytkin.
      Maailman menoa
      73
      1213

    2. Olet nainen ollut vaikein rasti

      Eniten olet tunteitani myllännyt ja niitä kuluttanut, ja tuottanut. 🤔
      Ikävä
      81
      1109

    3. Kuhmolainen opettaja tuomittu vainoamisesta

      https://yle.fi/a/74-20248184 ”Kuusikymppinen kuhmolaisnainen piinasi naapureitaan lähes kahdeksan vuoden ajan. Nainen
      Kuhmo
      24
      1075

    4. Anteeksi J-mies

      Anteeksi että myötävaikutin siihen että rakastuit minuun, jota et voi koskaan saada. Viimeksi kun näimme ja katselimme t
      Ikävä
      129
      945

    5. Elämäni biisi -paljastus: Tänä lauantaina 26.9. nämä julkkikset istahtavat sinisille sohville!

      Katsotko Elämäni biisiä? Elämäni biisi on monen suomalaisen suosikki. Vieraslista lauantaina 26.9. tarjoilee vieraita m
      Tv-sarjat
      6
      898

    6. Riittääkö mahkut

      Kaivattuusi 🤭.
      Ikävä
      60
      844

    7. Mihin Asiakirjat ovat voineet kunnasta kadota???

      LUE kuinka verorahoja haaskattiin Yle: Ähtärin pandalaskelmat salattiin ja hukattiin - Satakunnan Kansa https://share.
      Ähtäri
      73
      714

    8. Mitä muuta on olemassa kuin lisääntyminen

      Jos mies ei pääse lisääntymään niin mikä hänen osansa elämässä on? mitä jää jäljelle? Hän on vain muiden palvelija kok
      Sinkut
      132
      672

    9. Ähtäri on taas TV: n ja radion ykkösuutinen

      Uusi podcast on julkaistu ja on nyt kuunneltavissa. Mot on tehnyt hyvää työtä! Mikko Savola ja kepu ei ota mitään vast
      Ähtäri
      50
      652

    10. Siinä kävi mies nyt niin että tämä ämmä muuttaa ulkomaille

      Vuonojen maa kutsuu, joten ei hätää. Et kuule minusta enää. 😂 Lycka till! Ämmä riittää.
      Ikävä
      80
      632

    11. Tilanteenne

      Onko tilanteenne tällä hetkellä hyvä?
      Ikävä
      48
      537

    12. Miten sinä voit?

      Kysytkö kukaan sitä sinulta? Olen huomannut, että jos kohtaa empaattisen ihmisen ja hän kysyy noin, saattaa padot murtua
      Ikävä
      90
      520

    13. Kerro kolme hyvää asiaa

      Kaipaamastasi ihmisestä ja lisää perään onko kaivattusi n vai m 😍
      Ikävä
      25
      512

    14. Minulla on ikävä Sinua kulta, rakas

      Olisitpa lähelläni, tarvitsen sinua ❤️
      Ikävä
      36
      485

    15. Suomen 4. seksikkäin mies Miika Nousiaisen tilalle - Pitääkö olla huolissaan palaa tv:seen

      Suosittu keskusteluohjelma tekee paluun. Tällä kertaa panelistina ei jatka enää Miika Nousiainen, vaan hänen tilalleen t
      Suomalaiset julkkikset
      11
      480

    16. haluatko lopettaa

      ihan lopullisesti
      Ikävä
      109
      470

    17. Sul on ihmekuva W appissa!

      🤣
      Ikävä
      43
      457

    18. voi luoja kun uskaltaisin

      laittaa viestiä sinulle...
      Ikävä
      19
      426

    19. Moottoripyöräonnettomuus

      Mopomiitissä tapahtunut onnettomuus ja uutisointi. Ajoradan ylityksen vaarallisuudesta ei mitään uutisointia. Ei myöskää
      Alajärvi
      38
      425

    20. On kyllä tosi surullista

      jos kaivattuni (nainen) luulee palstan tyhmien viestien olevan multa. 😔Ei ole mitään syytä, miksi kirjoittaisin sellais
      Ikävä
      68
      397
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt