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
Apua activesheet funktioon
ASDdsaasd
0
166
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
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 teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070