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
1481
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
"Miko Bergbom, miksi euron bensa maksaa kaksi euroa?"
Valtakunnan suurin kaupallinen porvarimediakin kyselee nyt miksi perussuomalaisset ovat rikkoneet tärkeimmän vaalilupauk2336933SDP: "On hyvä että bensiinin hinta nousee"
Suurin oppositiopuolue SDP on mielissään siitä, että bensan hinta nousee suomalaisille. https://www.iltalehti.fi/polit2003553Mistä ihmeestä sitä viirasi?
Oliko tuo Timo Kalima hyvä silmälääkäri? Mikähän hänen silmiinsä osui kun piti mennä tuollaista tekemään. Kaikki näytti293366"Mieheksi ja naiseksi hän heidät loi."
Räsäsen tuomio on iso harppaus woke-valtioksi. – Tässä maassa on nyt selvästi kiellettyjä sanoja ja ajatusrikoksia. –2232353SDP haluaa tappaa maaseudun - bensan hinta mahdollisimman korkealle
Maaseudulla auto on välttämätön asia, ja lähes kaikilla on bensa-autot. Kuinka tyhmä pitää olla jos äänestää demareita?1441841Partamies hoi!
En aio häiritä jos on mukavampi olla hiljaa tai jos siellä kaukana sinun paikkakunnalla on jo joku hoito. Miten olisi re401807Outoa toimintaa Tuhannen taalan yrittäjällä
Ihmiset ympäri Suomen on kyselleet, että miksi tämä yrittäjä hoitaa ilkivalta-asiaa netissä kun se kuuluisi poliisille.1211578Martina Aitolehti pistää luun kurkkuun Erikoisjoukot-kouluttajalle - Ei usko tätä!
Martina Aitolehti on persoona, joka herättää monessa tunteita. Hänen yksityiselämänsä on noussut kohuotsikoihin mm. eläm141136- 1241108
Riiko Sakkinen läväyttää totuuden - Tästä syystä keskeytti Farmi-kuvaukset
Riikon toiminta hämmensi... Kuvataiteilija teki yllättävän päätöksen ja halusi lopettaa Farmi Suomi -leikin kesken. Rii18964