Apua activesheet funktioon

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
Ilmianna
Jaa



Vastaa alkuperäiseen viestiin

Apua activesheet funktioon

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

5000 merkkiä jäljellä

Peruuta