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

141

Ää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. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      425
      16548

    2. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      140
      2640

    3. Kuka on oikein

      Kaivattusi?
      Ikävä
      94
      1966

    4. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      86
      1849

    5. Onko kenelläkään tästä tietoo?

      https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te
      Haapavesi
      48
      1414

    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      98
      1295

    7. Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?

      Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e
      Maailman menoa
      290
      1234

    8. Suomussalmi News -valvontakameran tunnisteet pojista

      Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi
      Suomussalmi
      34
      1230

    9. Se helpottaisi oloa jos

      Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin
      Ikävä
      83
      1189

    10. Ihastukselleni

      Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn
      Ikävä
      21
      1153
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt