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
1392
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
Riikka vie Suomen kohta ykköseksi työttömyyskisassa
Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin1392763Miten juhlitte ensi lauantaina?
Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.2692370Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?
JOS siis sinä saisit päättää?261446- 1151112
- 981085
Uudestisyntyminen ei tapahdu kasteessa
Tässä Apostolien tekojen kohdassa näemme, että Filippus julisti hoviherralle ensin evankeliumia ja kuulusteli sitten tar2041033Ryöstö Punkaharjulla
Punkaharjun k-market ryöstetty tänään keskellä päivää, ketä lie asialla? Poliiseja ainakin pörrää ympäriisee13972Lasse Lehtonen on yhtä aikaa sairauslomalla ja työmatkalla
Kelan johtaja näyttää vötkyilyn mallia, otti sairaslomaa ja lähti Brysseliin sitten ryyppäämään! 😂 Kelan pääjohtaja La57871Mistä juttelit viimeisen kerran
Mistä juttelitte viimeisen kerran ikävöinnin kohteen kanssa? Irl tai viesteillä.62834Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa
Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.282820