Kunde neuvotko

Jo on hankalaa

Tällainen lapsellisen helppo juttu osaavalle. Tarkoituksena olisi saada aikaiseksi Makro, mikä lukee läpi koko rekisterin.

Solussa B on päivämäärä, joka pitää ensin muuttaa elettäväksi vuodeksi.
B 09.11.1999 muutetaan C 09.11.2011
Seuraavaksi C 09.11.2011 vähennetään pois 4 kuukautta.
Vähennyksen jälkeen saatu tulos 09.07.2011 siirretään soluun D
Näiden operaatioiden jälkeen varsinainen asia:
E solussa on valmiina vertailu päivämäärä.
Makro vertailee C,D ja E solujen arvoja.

Siis:
B 09.11.1999 > C 09.11.2011
pp.kk pysyvät samana vain vvvv vaihtuu elettäväksi vuodeksi
tulos viedään soluun C
C 09.11.2011 > D 09.07.2011
vähennetään 4 kuukautta solusta C ja tulos viedään soluun D

IF C > E THEN G = ”Myöhässä”
IF D < E THEN G = ”Tulossa”

C 09.11.2011
D 09.07.2011
jos C on suurempi kuin E viedään soluun G ’Myöhässä’
jos D on pienempi kuin E viedään soluun G ’Tulossa’

8

146

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub Tarkista()
      Dim vika As Long
      Dim solu As Range
      vika = Range("B65536").End(xlUp).Row
      For Each solu In Range("B1:B" & vika)
      solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
      solu.Offset(0, 2) = DateSerial(Year(solu), Month(solu) - 4, Day(solu)) ' d-solu
      solu.Offset(0, 2) = solu.Offset(0, 2).Value
      Select Case True ' vertailu
      Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
      solu.Offset(0, 5) = "Myöhässä"
      Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

      • Jo on hankalaa

        Kiitos vaivannäöstä. Tällaista herjaa:

        Compile error:
        Select Case without End Select

        Lisäsin:
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

      • Jo on hankalaa
        Jo on hankalaa kirjoitti:

        Kiitos vaivannäöstä. Tällaista herjaa:

        Compile error:
        Select Case without End Select

        Lisäsin:
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

        sorry, siis lisäsin:
        .

        .
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

      • Jo on hankalaa
        Jo on hankalaa kirjoitti:

        sorry, siis lisäsin:
        .

        .
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

        Vieläkin sorry.

        onko niin, että tämä Suomi24 saitti, sotkeutuu tuohon viimeiseen
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd
        riviin, eikä näytä koodista loppuja?

      • kunde
        Jo on hankalaa kirjoitti:

        Vieläkin sorry.

        onko niin, että tämä Suomi24 saitti, sotkeutuu tuohon viimeiseen
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd
        riviin, eikä näytä koodista loppuja?

        ei oo eka kerta kun foorumi sekoilee...
        nytkin heittelee minne sattuu kun yrittää vastata tähän...

        Sub Tarkista()
        Dim vika As Long
        Dim solu As Range
        vika = Range("B65536").End(xlUp).Row
        For Each solu In Range("B1:B" & vika)
        solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
        solu.Offset(0, 2) = DateSerial(Year(Date), Month(solu) - 4, Day(solu)) ' d-solu
        Select Case True ' vertailu
        Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
        solu.Offset(0, 5) = "Myöhässä"
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

      • kunde
        kunde kirjoitti:

        ei oo eka kerta kun foorumi sekoilee...
        nytkin heittelee minne sattuu kun yrittää vastata tähän...

        Sub Tarkista()
        Dim vika As Long
        Dim solu As Range
        vika = Range("B65536").End(xlUp).Row
        For Each solu In Range("B1:B" & vika)
        solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
        solu.Offset(0, 2) = DateSerial(Year(Date), Month(solu) - 4, Day(solu)) ' d-solu
        Select Case True ' vertailu
        Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
        solu.Offset(0, 5) = "Myöhässä"
        Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd

        no loppuosa sitten...
        solu.Offset(0, 5) = "Tulossa"
        Case Else
        MsgBox "mitähän tässä tapauksessa?"
        End Select
        Next
        End Sub

      • kunde
        kunde kirjoitti:

        no loppuosa sitten...
        solu.Offset(0, 5) = "Tulossa"
        Case Else
        MsgBox "mitähän tässä tapauksessa?"
        End Select
        Next
        End Sub

        vois ylläpiito laittaa kooditagit näihin ohjelmointiosioihin...

      • Jo ei hankalaa
        kunde kirjoitti:

        no loppuosa sitten...
        solu.Offset(0, 5) = "Tulossa"
        Case Else
        MsgBox "mitähän tässä tapauksessa?"
        End Select
        Next
        End Sub

        Huomenta eli päivää sinne. Kiitos kokeilen jännittyneenä.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      228
      4407

    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      73
      2856

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2393

    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      43
      1687

    5. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1369

    6. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      65
      1043

    7. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      137
      919

    8. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      64
      850

    9. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      844

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      832
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt