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.
Excel projektinhallintaa
Aloottelija
2
1477
Vastaukset
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
Maahanmuuttajien vaikutus Suomen valtiontalouteen positiivinen
Maahanmuuttajat maksavat enemmän tuloveroja kuin saavat tulonsiirtoja. Eroavat persuista tässä suhteessa. Persuista o2063922Uusin tutkimus: Suomi on maailman toiseksi vähin rasistinen maa
taakse jää mm. Ruotsi(7) ja Norja(8). Martin Paasi(kok.): Kumoaa vasemmiston väitteet. Kansainvälinen vertailu osoitta812106Ukrainan tiedustelun huippupotti - Iski ensin yhteen satamaan, sitten toiseen
Ukrainan tiedustelupalvelu SBU kertoo johtaneensa operaatiota, jossa on isketty drooneilla Venäjän tärkeimpiin satamiin872080Ketkä 8 Ähtärin luottamushenkilöä saivat syytteen virka_aseman väärinkäyttämisestä?
Nyt näiden valtuutettujen nimet esiin, kiitos! Nämä henkilöt pitää yksinkertaisesti laittaa syrjään Ähtärin kaupunginva492045Ulkomaalaistaustaiset tulevat kalliiksi yhteiskunnalle.
Selvitys: Ulkomaalaistaustaiset saivat selvästi enemmän työttömyysetuuksia ja toimeentulotukea kuin suomalaistaustaiset.961966Ähtärin päättäjät
Nyt tulee kutsu leivättömän pöydän äärelle. Syytteet nostetaan. https://www.iltalehti.fi/kotimaa/a/cef83309-0a1b-4fcd-9b681714Oletko tosiaan niin
matalalla älykkyydellä varustettu että et tajua miten sua vedätetään? Kun susta ei tykätä.1421124Arkkipiispa Tapio Luoma sanoo olevansa syvästi huolissaan lisääntyvästä rasismista ja islamofobiasta
Tarvitsemme ymmärrystä ja uskontojen lukutaitoa erilaisia perinteitä kohtaan. Rauhallinen rinnakkaiselo ja toinen toisem2981054- 78980
Oikea mies ei katoa elämästä silloin
Kun on vaikeaa. Väärä mies pysyy elämässä niin kauan kun aurinko paistaa ja on mukavaa. Mutta kuka jää elämään silloi98856