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
1523
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
VVM Riikka Purra ministerin asemassaan valehteli ja rikkoi perustuslakia.
Valtiovarainministeri Riikka Purra (PS) kiisti Ylen ykkösaamussa luvanneensa ennen vaaleja, ettei pienituloisilta leikat469632Purra ennen vaaleja: "pienituloisten etuuksista leikkaaminen ei meille käy"
"...perussuomalaisten ero muun muassa kokoomukseen, joka haluaa leikata pienituloisten etuuksista, se ei meille käy."383586Ammattiliittojen jäsenmaksut valtion maksettavaksi
Ammattiliitot neuvottelvat jäsenilleen paremmat palkat, jotka lisäävät valtio verotuloja. Tästä syystä valton tulee maks303141Toksinen persuvasemmisto
Kun toksiset ihmiset eivät kykene hallitsemaan sinua, saamaan sinua näkemään asiat niin kuin he haluaa, toimimaan niin k202800Rikkaiden ja yritysten veroaleen ei ole varaa
Ei pieni Suomi pysty elättämään vanhenevaa väestöä nykyisellä veroasteella. Ainakin 5-prosenttiyksikköä pitää kokonaisve192365Riikka Purra: Autoilu tulee Suomen valtiolle pyöräilyä edullisemmaksi! Siksi pyöräetu poistettiin!
🐸🐸🐸🐸🐸 Perussuomalaisten trollitehdas kiukkuaa kun Riikka Purra päästi taas sammakoita suustaan että autoilu tulee S3431848- 961247
Tikkunenällä on kovat luulot itsestään
Mut ei tarjottavana muuta kuin katkeruutta, ilkeyttä ja ilkeä luonne hyih.. oikea miesten nielijä Onneksi kaivatullani131203- 931083
Huomentaaaa
Hyvää huomenta.... Tiiätkö kuinka vaikeata susta on ottaa mitään selvää ja ymmärtää yhtään mitään? Mukavaa päivää... sil251030