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
1036
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
On tiedossa, että venäjämieliset diggaavat diktatuurista venäjää
jossa ei esim. ole sanan- ja lehdistönvapautta. Mutta keitä nämä venäjän palvojat sitten ovat, ei heitä toki paljon ole432478Vihreiden, SDP:n ja Vasemmistoliiton kannattajista selvästi alle puolet on miehiä
ja silti joku punafeministi valitti kokoomuksen naiskannattajien puutteesta, vaikka siellä on enemmän naisia kuin punavi742457Belfastissa käynnissä kunnon persuilu
Joku random mamu tekee rikoksen, niin sikäläiset naamiopersut kostavat tuhoamalla kantaävestön omaisuutta. Liekö siellä732362Ensin Henry Novak ja nyt sitten se Irlannin tapaus
jossa mustaihoinen afrikkalainen mieshenkilö puukottaa valkoihoista maassa makaavaa miestä useita kertoa pään alueelle.512112Islamovasemmistolaisuus - tälläista termiä käytetään
Termi tarkoittaa alunperin äärivasemmiston ja muslimifundamentalistien liittoa, jonka ytimessä oli antisemitismi. Isl321857Persujen kannatusromahdus tekee kesästä 2026 nautinnollisen
Satoi tai paistoi, niin Suomen kansalaisella on kuluvana kesänä syytä hymyyn. Niin upealta tuntuu persujen kannatusroma841685Martina Aitolehti läpäisi Erikoisjoukot - Tilittää umpirehellisenä kuvauksista
Martina Aitolehti selvisi Erikoisjoukot koulutuksesta. Hän myös malttoi pääosin pitää mölyt mahassaan, vaikka saikin ko211123Riikka runnoo! sähkön hinta +25 %, bensan hina +16 %
Euron bensa! Tuo legendaarinen persujen vaalilupaus. Sannan hallitus pudotti sähköenergan alv:n 10 prosenttiin, Riikka r71014Rakastan sinua hiljaisuudessa
Rakastan sinua hiljaisuudessa. Olisit minun tai et, olen odottanut sinua vuosisatojen ajan. Ilman sinua sydämeni on yksi41995Eläköön kuningas, kuningas on kuollut
Heikki Nivala kaatui kuin mies. Kavaltaja käveli juuri edelliseen toukokuun kokoukseen hankkimansa puku päällä. Eläköön56876