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

1535

    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. Suomessa on meneillään boomereiden kosto

      1990-luvun lamassa osumaa saaneet sukupolvet toivovat sen jälkeen syntyneille sukupolville kärsimystä porvareita äänestä
      Maailman menoa
      20
      2208
    2. Petteri Orpon kommentti persujen väkivaltaan?

      Hiirenhiljaa taas on, kun Tampereella persulahkon ääriosasto pahoinpiteli kantasuomalaisen tytön. Missä on pääministeri
      Maailman menoa
      26
      1583
    3. Mitä ikävöit eniten

      kaivatussasi? 🫶
      Ikävä
      87
      1368
    4. Onko sinulla jalostettu koira? Nämä tekijät altistavat koiran sairastumiselle

      Moni Suomessa suosittu koirarotu on sairas ulkonäkökeskeisen jalostuksen ja ääripiirteiden vuoksi. Erityisesti tietyt t
      Koirat
      23
      1365
    5. Anabaptismin kirous

      Uudestikastetut lahkolaiset joutuvat valheen kierteeseen. He joutuvat herjaamaan lapsena saamaanssa kastetta nimeen Isä
      Kaste
      417
      1062
    6. Miten voit vain

      Olla kuin mitään ei olisi?
      Ikävä
      116
      971
    7. Pelolla pakottaminen

      Kristinusko on tuovinaan valoa ja toivoa, mutta ensin pitää olla pimeyttä ja toivottomutta jotta joku valoa ja toivoa ha
      Kaste
      624
      896
    8. Robotiikka korvaa tulevaisuudessa seurustelusuhteet

      Haluan herättää keskustelua aiheesta. Asiantuntijoiden mukaan robottien kehitys on 10-15 vuoden päässä siitä että voidaa
      Sinkut
      231
      849
    9. kamera hakokylässä

      kamera kuvaamassa yleistä tietä laittomasti ristauksessa hakokylä-raatevaara!
      Hyrynsalmi
      12
      670
    10. Suomuksen kuumin kaupan kassa?

      Missä kaupassa on, siellä minäkin alan käymään.
      Suomussalmi
      10
      660
    Aihe