Moro
Onko mahdollista saada seuraava toiminto toimimaan automaattisesti:
Nappia painamalla Excel tekee uuden välilehden ja nimeää sen taul1 A2 solussa kirjoitetun tekstin mukaan. Lisäksi kopioi kaikki tiedot mitä taul1 on ja siirtää ne luotuun taulukkoon.
Välilehden luonti automaattisesti
automatic
2
949
Vastaukset
- koodinpurkaja
Makrot eivät ole minun vahvuuhteni. Tuonmoisen makron löysin netistä ja minulla se ainakin pelasi. Modifioin sitä tarpeitasi varten. En osaa tehdä siihen sitä ettei kopioisi sitä "painonappia" uuteen taulukkoon (ei kaiketi ole tarkoitus). Eli tässä:
Sub kopioivälilehti()
Dim newshtname
'varoitus jos solu A2 on tyhjä
If IsEmpty(Range("A2").Value) Then
MsgBox "Anna nimi!", vbCritical
Exit Sub
End If
'uuden nimen sijaintisolu
newshtname = Range("A2").Value
'varoitus samannimisestä välilehdestä
For Each Sheet In ActiveWorkbook.Sheets
If UCase(Sheet.Name) = UCase(newshtname) Then
MsgBox "Antamasi nimi on jo olemassa. Anna uusi.", vbCritical
Exit Sub
End If
Next Sheet
'allaoleva kopioi välilehden, sijoittaa sen Taul1 jälkeen ja nimeää sen solun a2 mukaan
ActiveSheet.Copy after:=Sheets(1)
ActiveSheet.Name = newshtname
End Sub
Koodi löytyi tuolta:
http://www.ozgrid.com/forum/showthread.php?t=17844 Tarkoitatko, että on liian monimutkaista pistää hiiren osoitin välilehti 1:n päälle, painaa ctrl alas ja vetää hiirellä tuuman verran oikealle seuraavaan välilehteen, ja sen jälkeen tuplaklikata välilehti 2 ja kirjoittaa siihen haluamansa nimi.
Kaikki tiedot kaavoineen ovat kopioituneet uuteen välilehteen, eikä siinä nyt niin montaa napinpainallusta kulunut.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Natomaa hyökkäsi Iraniin
Näemme nyt tällä hetkellä Natomaan nimeltä Yhdysvallat, joka toimii aika pitkälti perinteisen kansainvälisen lain ulkopu7163475Trump aloitti III maailmansodan tänään.
Narsisti ja mielipuoli Trump pitäisi saada pois, miten se onnistuisi parhaiten?3883240Suvi Lindenillä 5 366 päivän putki
Täytyy kyllä myöntää vaikka olen itsekin innokas, niin en ole tuollaiseen yli kymmenen vuoden putkeen kyennyt. Välillä o783059Mistä se kertoo
Näin miehen pitkästä aikaa. Samantien iski sellainen paineen tunne rintaan, sitä ei ole ollut vuosiin. Ja nyt olen siitä362879Rakas tiedät, että toivoisin
Kuulevani sinusta. Tiedät, että viestisi tekisi minut ihan onnelliseksi. Että äänesi kuuleminen saisi minut leijumaan ja582378- 492069
- 941994
Viesti miehelle
Nyt vastaa oikea taa´app. Ainoastaan puhelimitse voidaan selvittää asioita, mutta tuskin sitä haluat kaiken halveeramise141909Nyt on sanottava että sattuu kipeästi
Jos, sinä aikana kun olen kaivannut ja odottanut sinua ja olet tiennyt sen, niin jos valitsit toisen miehen. Katsot minu181899- 571789