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

145

Ää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. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      85
      1768

    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      120
      1174

    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      62
      1050

    4. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      62
      936

    5. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      74
      846

    6. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      79
      798

    7. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      29
      796

    8. Mitä mietit Honey?

      Kulta nainen ❤️❤️
      Ikävä
      57
      790

    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      43
      766

    10. Missä kaikessa olet erilainen

      Kuin kaivattusi? Voin itse aloittaa: en ole vegaani kuten hän. Enkä harrasta tietokonepelejä lainkaan.
      Ikävä
      39
      757
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt