Apua activesheet funktioon

ASDdsaasd

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

166

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Tukalaa kuumuutta

        Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
        Ikävä
        43
        3007
      2. Ensi kesänä

        Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
        Ikävä
        61
        2961
      3. Sinä, ihastukseni

        Mitä haluaisit tehdä kanssani ensimmäisenä?
        Ihastuminen
        42
        2367
      4. Tiedät ettei tule toimimaan.

        Mielenterveys ei kummallakaan kestä.
        Ikävä
        31
        1863
      5. Okei, myönnetään,

        Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
        Ikävä
        25
        1719
      6. Anne Kukkohovin karmeat velat ovat Suomessa.

        Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
        Kotimaiset julkkisjuorut
        72
        1674
      7. Onko kaivatullasi

        himmeä kuuppa?
        Ikävä
        48
        1586
      8. Mihin hävisi

        Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
        Iisalmi
        77
        1275
      9. On jo heinäkuun viimeinen päivä.

        En taida nähdä sinua koskaan.
        Rakkaus ja rakastaminen
        37
        1247
      10. Lähtikö korvat

        puhtaaksi vaikusta?
        Tuusniemi
        79
        1070
      Aihe