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. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      103
      1329

    2. 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
      1219

    3. Palsta kysely..

      Mikä on mielestäsi hyvä ikäero parisuhteessa? Tulevassa/kuvitteellisessa tulevaisuuden suhteessa, voisitko harkita ”ott
      Sinkut
      132
      955

    4. Missä väleissä ollaan

      Jatkossa? Vai ollaanko missään? Koetko ikäväksi näkemisen)
      Ikävä
      67
      877

    5. aivan mieletön ikävä

      paha olo 😥🫣 kaipaan sua 😔💔
      Ikävä
      39
      807

    6. Riittääkö vielä

      Pelkät kuvat? 😉
      Ikävä
      71
      803

    7. Haluatko naimisiin kaivattusi kanssa?

      Alttarille astelette
      Ikävä
      71
      747

    8. Haluaisin nainen vain välillä heilutella peittoa sinun kanssa

      Mutta kuitenkin oltaisiin uskollisia toisillemme.
      Ikävä
      53
      741

    9. Mitä toivot

      Välienne olevan?
      Ikävä
      59
      734

    10. Ihmeellistä millaisissa tilanteissa ajatukset kulkuun sinuun

      Eilen seurasin kun ihmiset ajoivat kaupan parkkipaikalle ja menivät yhdessä kauppaan. Iski jotenkin ikävä. Mietin että
      Ikävä
      39
      724
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt