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

1525

    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. Sebastian Tynkkynen (pers.) ei vastusta raiskauksia

      "Sebastian Tynkkynen oli ainoa 14 suomalaismepistä, joka vastusti uutta suostumuksen puuttumiseen perustuvaa raiskauslak
      Maailman menoa
      45
      3917
    2. Purra jäi kiinni valehtelusta, Heinäluoma ei

      Ja heti alkoi Purra joukkoineen maalittamaan Heinäluomaa. Niin toimii äärioikeistoa edustava putinistipersulauma, jonka
      Maailman menoa
      22
      2965
    3. Yks vähemmän

      Yks narkki täälläkin vähemmän,m.t. sai mitä halusi😎
      Kiuruvesi
      32
      2530
    4. Nyt voin sanoa että vtuttaa!

      Kertaa sata 💯
      Ikävä
      32
      1859
    5. Oletko onnellinen

      Kun ei enää nähdä?
      Ikävä
      52
      1454
    6. Kaunis Martina taas lehtihaastattelussa - kommentoi Stefua

      Martina sanoi, että Isabella on käytännössä aina hänen kanssaan. "Minä olen se vanhempi, joka ottaa 100-prosenttisen vas
      Kotimaiset julkkisjuorut
      443
      1411
    7. Gallup: Kenet sinä haluaisit nähdä Yökylässä-sarjassa?

      Yökylässä Maria Veitola -sarjaa on nähty jo 10 kautta tv:ssä, ja Veitola on yöpynyt satojen suomalaisten julkkisten kode
      Tv-sarjat
      43
      1383
    8. Anteeksi

      Anteeksi 😭😭😭. Olet rakas❤️. En juo enää liikaa. 😭
      Ikävä
      37
      1260
    9. Minun kultani

      Mistä saataisiin sulle hyvät henkselit? 🤗😘
      Ikävä
      52
      1176
    10. Mitäs mieltä

      Hakeekohan pikkunennmies alavuden kaupunginjohtajaksi? Pakkoliitos ähtäri-alavus. Taas olis mieliharmi johtamassa suoho
      Ähtäri
      16
      1155
    Aihe