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

137

Ää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. Kalle Palander kertoi fantasioivansa siitä, kuinka Kiira Korpi naisi häntä sträppärillä ahteriin

      Sai potkut Yleltä. https://yle.fi/a/74-20140000
      Maailman menoa
      617
      11051

    2. 24h Kirppis

      Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?
      Jämsä
      13
      3668

    3. Suomessa eletään liian pitkään

      "Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy
      Maailman menoa
      249
      2528

    4. Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain

      Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja
      Joensuu
      26
      2505

    5. Deodoranttiteollisuus

      Annan ilmaisen vinkin. Kyseinen teollisuus voisi alkaa valmistaa kuolleen ruumiin hajua. Olisi varma hittituote, ainakin
      Jämsä
      3
      1810

    6. Trump syyttää Bideniä ja Obamaa lentoonnettomuudesta!

      Ukko on ihan seonnut.
      Maailman menoa
      201
      1308

    7. Sun ulkonäkö on

      Kyllä viehättävä. Kauniit piirteet. Todella sievät. Ja olemus on ihana. Olet tehnyt vaikutuksen.
      Ikävä
      49
      1244

    8. Näyttääkö kaivattusi

      Miten hyvältä ❤️
      Ikävä
      72
      1180

    9. Olen niin haaveillut

      Sinusta. Ollut hullun rakastunut. Ajatellut kaikkea mitä yhdessä voisimme tehdä. Mutta ei ei yhtään mitään. Usko vaan lo
      Ikävä
      59
      1079

    10. Oletko koskaan

      Tavannut/tuntenut ihmistä, jonka kanssa vuosisadan rakkaustarina olisi ollut mahdollinen, mutta joku este tuli väliin?
      Sinkut
      77
      1019
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt