Apua activesheet funktionn

asddsaasdassda

Minulla on käytössä 3 Sheettiä. Käytän Dateserial funktiota ja ehtona on, että jos päivä on 15 päivä niin Tiedot haetaan Sheetistä numero 3 ja viedään Sheettiin 1. Jos päivä ei ole 15 niin Tiedot haetaan 2 Sheetistä ja viedään Sheettiin 1.

Ongelmaksi muodostui, että ohjelma hakee kyllä tiedot, mutta ehto ei toimi. Ohjelma hakee samat tiedot oli päivä sitten 15 tai ei. Osaisiko joku neuvoa?
Koodi näyttää tältä:

If ActiveSheet.Range("C3").Value = 15 Then

Dim luettelo(7, 2)

For i = 1 To 7
For j = 1 To 2
luettelo(i, j) = Worksheets("Sheet3").Cells(i, j).Value

Next j
Next i

For i = 1 To 7
For j = 1 To 2
Worksheets("Sheet1").Cells(i 5, j 6).Value = luettelo(i, j)

Next j
Next i


Else

'Muissa tapauksissa

Dim luetteloo(7, 2)

For i = 1 To 7
For j = 1 To 2
luetteloo(i, j) = Worksheets("Sheet2").Cells(i, j).Value

Next j
Next i

For i = 1 To 7
For j = 1 To 2
Worksheets("Sheet1").Cells(i 5, j 6).Value = luetteloo(i, j)

Next j
Next i

End If

0

61

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Nainen kokki autossa kammottavan kuoleman sähköauto-Teslan syttyessä tuleen.

        https://www.is.fi/autot/art-2000011652873.html Näin vaarallisia sähköautopalot voivat olla.
        Maailman menoa
        84
        5167
      2. Persuja ei aluevaltuustoissa näy

        Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.
        Maailman menoa
        26
        3488
      3. Päivän Riikka: Uudenkaupungin autotehdas hiljeni

        Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j
        Maailman menoa
        38
        2838
      4. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

        Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
        Maailman menoa
        16
        2011
      5. Kerro kaivattusi nimi tai nimikirjaimet

        🌠 Tähdenlento! Kirjoittamalla kaivattusi nimen tai nimikirjaimet tähän, saattaa toiveesi toteutua.
        Ikävä
        58
        1820
      6. Miksi pitäisit enemmän

        Minusta kuin siitä toisesta?
        Ikävä
        47
        1586
      7. Alkuvuodesta poistuu työttömyyskorvaus kaikilta joilla on säästössä rahaa

        Tippuu korvaukselta iso määrä työttömiä.
        Maailman menoa
        272
        1523
      8. Mitä meidän välillä

        Tulee tapahtumaan vai tuleeko mitään?
        Ikävä
        94
        1382
      9. Tämmönen höpsö

        Höpönassu mä olen. En mikään erikoinen…hölötän välillä ihan levottomia. Tykkäisit varmasti jos olisin siellä sun vieress
        Suhteet
        44
        1366
      10. Hiljaisuus

        Tarkoittaa välinpitämättömyyttä, henkistä väkivaltaa ja kiusaamista. Olet valinnut hiljaisuuden.
        Ikävä
        73
        1078
      Aihe