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

1455

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Virkamiehille tarvitaan tuntuvat palkankorotukset

      Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi
      Maailman menoa
      72
      4989

    2. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      116
      4699

    3. Jäikö meidän välit

      Mielestäsi Kesken?
      Ikävä
      80
      4193

    4. Olisipa saanut sinuun

      Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak
      Ikävä
      103
      4113

    5. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      3
      3308

    6. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      122
      3104

    7. Miks tän meidän

      Rakkauden on pitänyt olla näin vaikeaa?
      Ikävä
      35
      2838

    8. muista olla

      VAROVAINEN! m
      Ikävä
      28
      2787

    9. Onneksi on edes yksi kuva

      Susta mitä voin välillä ihastella ja kaipailla sua😔
      Ikävä
      40
      2763

    10. Elän vastoin

      Kaikkia arvoja kun en pysy sinusta erossa.
      Ikävä
      37
      2752
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt