Excel projektinhallintaa

Aloottelija

Hei,

Teen pientä projektinhallintatyökalua ja tarkoitus olisi saada "Projektin nimi" soluun sellainen kaava joka kopioisi solun nimen suoraan välilehden nimeksi. Eli kun kirjottaisin A1-soluun vaikkapa "Das Auto", se kopioituisi suoraan välilehden nimeksi.

Olen jo onnistunut "koodaamaan" makron joka kopioi projektipohjan uudelle välilehdelle. Onko mahdollista koota näistä välilehdistä koontilehdelle vaikkapa projektien tärkeät päivämäärät tietyistä soluista ja vielä niin kun käytän "nappi kopiointi makroa" niin koontilehti ottaisi automaattisesti näistä uusistakin päivämäärät niistä tietyistä soluista. Pitäisi vielä keksiä jokin tapa millä nämä eri projektit eroaisivat toisistaan nimellisesti koontitaulukossa jos sellainen on mahdollista.

2

1393

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • taulukon moduuliin...
      muuttele sopivaksi

      Private Sub Worksheet_Change(ByVal Target As Range)
      'Sheet1 on projektipohja
      'solu A1=projektin nimi
      'kopioi ennen koontitaulukkoa(Koonti) pohjan ja nimeää sen solun A1 mukaan
      'tyhjentää koonti taulukossa A-sarakkeen ja täyttää tiedot projektien solusta A2 allekkain
      'tyhjentää projektin nimen ja aktivoi projektinimi solun
      Dim vastaus As Long
      Dim lkm As Long
      On Error GoTo virhe
      Application.DisplayAlerts = False
      Application.EnableEvents = False
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      Worksheets("Sheet1").Copy Sheets(Sheets.Count)
      ActiveSheet.Name = Range("Sheet1!A1")
      End If

      poistu:
      Worksheets("Koonti").Range("A:A") = ""
      For lkm = 2 To Worksheets.Count - 1
      Worksheets(lkm).Range("A2").Copy Worksheets("Koonti").Range("A65536").End(xlUp).Offset(1, 0)
      Next
      Worksheets("Sheet1").Activate
      Range("A1") = ""
      Range("A1").Select
      Application.DisplayAlerts = True
      Application.EnableEvents = True
      Exit Sub

      virhe:
      MsgBox "Samanniminen projekti oln jo olemassa!"
      Worksheets(Worksheets.Count - 1).Delete
      GoTo poistu
      End Sub

      • Aloottelija

        Kiitos! Pitäähän kokeilla jos taito riittää :D


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

    Luetuimmat keskustelut

    1. Minkähän takia ns. persuille ei tunnu työ maistuvan?

      Vaikuttavat olevan joutoväkeä syystä tai toisesta  – työttömiä tai työeläkeloisia. Muiden rahoilla pötköttelevää väkeä,
      Maailman menoa
      40
      2231
    2. Suomen veroaste 5 %-yks liian matala

      Palauttamalla kokonaisveroaste 1990-luvun tasolle saadaan hyvinvointivaltion palvelut rahoitettua ilman velan ottoa.
      Maailman menoa
      92
      2005
    3. Kolme neljästä suomalaisesta kannattaa miljonääriveroa

      Kertoo vasemmistoliiton teettämä kysely. Veron ulkopuolelle jätettäisiin asunto. "Puolet vastaajista oli sitä mieltä, e
      Maailman menoa
      89
      1976
    4. Olit ihan

      Kiihkona silloin. Sen näki ja lähes tunsi. Ei tainnut olla kaukana et olisit vetänyt lähellesi jos siihen olisi hetki tu
      Ikävä
      24
      1697
    5. MTV: Harvinainen haastattelu! Vappu Pimiä kommentoi vihdoinkin uutta TTK-juontajaa

      TTK-juontajaspekuloinnit käyvät edelleen kuumana. Kenet sinä haluaisit uudeksi TTK-juontajaksi? Kommentoi alle! Lue,
      Suomalaiset julkkikset
      13
      1693
    6. Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa

      Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.
      Luterilaisuus
      491
      1547
    7. Yleveron tuotto siirrettävä S-ryhmälle

      Yleisradio on mukana kansanmurhassa. Tuollaista ei voi tukea verovaroin. S-ryhmä on ainoa selkärankainen iso toimija S
      Maailman menoa
      2
      1520
    8. Mikä ihme teitä lieksalaisia tuossa

      p*rs*reiässä niin kiinnostelee? Että siitä pitää päntönnään huutaa?
      Lieksa
      49
      1350
    9. Mistä juttelit viimeisen kerran

      Mistä juttelitte viimeisen kerran ikävöinnin kohteen kanssa? Irl tai viesteillä.
      Ikävä
      76
      1248
    10. Kemet lomautukset

      Onkohan tuo oikein lain mukaista toimintaa jatkaa jo lomautettuina olevien uudelleen lomautusta yhdenvertaisuuden ja tas
      Suomussalmi
      36
      1236
    Aihe