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
2
760
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
Hei sinä nainen
Haluan olla rehellinen – olet hämmentänyt minua todella paljon. En ota sinusta mitään selvää, ja ehkä juuri siksi huomaa843032Kelan perkeleellinen käytäntö
Kun äiti joutuu hakemaan Kelalta tukia vähien tulojen tähden, niin aina otetaan huomioon lapsen tilillä olevat rahat. Ei3102685Putin ei suostu tulitaukoon nyt kun Kurskin taistelut ovat kesken
ja venäjä on viimein päässyt niskan päälle, suuren ylivoiman turvin. Ukraina ilmeisesti suorittaakin taktista vetäytymi1901493Voi kulta rakas
Kyllä minäkin olen sinuun rakastunut. Oisit avautunut tunteistasi aiemmin niin ei tarvitsisi kiertoteitä kuulla tästä. �621192Martinan firma haastettiin käräjille
Seiska: Martinan firma haastettiin käräjille, taustalla outo rahasotku.2391098Miksi haluat satuttaa
Sillä tiedolla ettet välittäisi minusta vaikka se ei ole totta. Silti tiedän että rakastat minua edelleen. Niinkuin sano281011- 70948
- 117940
- 76920
- 72904