Tervehdys ohjelmani yksi moduuli tekee excel kannasta raportteja. Olen saanut hienoja päivä/kuukausi raportteja sekä pylväs diagrammeja tehtyä, mutta viikko raportti ei oikein luonnistu, olisiko mitään keinoja...
aikaisempi moduuli luo seuraavasti e sarakkeeseen päivän
kysely2 = InputBox("Syötä sarakkeen numero josta haluat tehdä palvelimelle kansion ja linkin")
syote1 = Range("a" & kysely2)
MkDir "\\palvelin1\kensio\" & syote1
With Worksheets(2)
.Hyperlinks.Add .Range("f" & kysely2), "\\palvelin1\kensio\" & syote1
End With
Range("e" & kysely2) = Date
End If
jonka jälkeen toinen moduuli lähtee tarkastamaan onko kyseessä tämä päivä
For laskuri = 5 To 100
If Date = Range("e" & laskuri) Then
laskuri2 = laskuri2 1
End If
Next
Range("o5") = laskuri2
Lopuksi lasketaan soluun o5 tämän päivän tuotokset yhteen (muihin soluihin tulee vastaavalla tavalla eri prosessien arvoja) ja aletaan generoimaan raportteja sekä diagrammeja.
Eli alkuperäinen kysymykseni oli, saanko jotenkin tehtyä viikon raportin?
Kiitoksia avustanne
aikaisempi moduuli luo seuraavasti e sarakkeeseen päivän
kysely2 = InputBox("Syötä sarakkeen numero josta haluat tehdä palvelimelle kansion ja linkin")
syote1 = Range("a" & kysely2)
MkDir "\\palvelin1\kensio\" & syote1
With Worksheets(2)
.Hyperlinks.Add .Range("f" & kysely2), "\\palvelin1\kensio\" & syote1
End With
Range("e" & kysely2) = Date
End If
jonka jälkeen toinen moduuli lähtee tarkastamaan onko kyseessä tämä päivä
For laskuri = 5 To 100
If Date = Range("e" & laskuri) Then
laskuri2 = laskuri2 1
End If
Next
Range("o5") = laskuri2
Lopuksi lasketaan soluun o5 tämän päivän tuotokset yhteen (muihin soluihin tulee vastaavalla tavalla eri prosessien arvoja) ja aletaan generoimaan raportteja sekä diagrammeja.
Eli alkuperäinen kysymykseni oli, saanko jotenkin tehtyä viikon raportin?
Kiitoksia avustanne
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.