Välilehden luonti automaattisesti

automatic

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.

2

1038

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Kuinka vanha kaivattusi on?

      Gallup teille kaikille
      Ikävä
      157
      1698
    2. Taas puukotus yläristillä!

      Tänään taas puukotettu hengiltä ihminen Kuopiontien läheisyydessä yläristillä! Nyt näitä alkaa olla viikoittain!
      Pieksämäki
      55
      1604
    3. Mitä teillä grillataan juhannuksena? Anna oma vinkkisi grilliherkkuihin

      Kesä ja juhannus on grillailun kulta-aikaa. Mitä teillä grillataan juhannuksena? Anna oma vinkkisi grilliherkkuihin. Ka
      Grillaus
      69
      1182
    4. Olen päättänyt tappaa itseni tämän vuoden puolella

      Minulla ei ole oikeastaan mitään hävittävää. Elämäni on surkeaa ja tunnen ihmisten tuijotukset ja supinat. Ne nauravat r
      Ikävä
      110
      1156
    5. Minkä haluaisit

      Nähdä kaivatultasi
      Ikävä
      110
      992
    6. Ihana juhannusperinne

      Lähdemme aina juhannuksena aivan hirveässä kännissä kiikkerällä veneellä pieliselle! Se on hauskaa ja jännittävää puuhaa
      Lieksa
      56
      921
    7. Mistä tunnistaa suomussalmelaisen kassajonossa

      Terveiset täältä Kuopiosta! Olen aikoinaan Suomussalmelta lähtenyt maailmalle ja muutaman mutkan kautta päätynyt savon s
      Suomussalmi
      89
      872
    8. Älä itke rakas.

      Tunnen sun kyyneleet silmissäni. Kaikki tulee menemään hyvin. Loppu häämöttää jo...
      Ikävä
      57
      753
    9. La Promesa sarjan ystäville iso pettymys - Yleltä lisäinfoa asiasta

      La Promesa suosikkisarjan kohtalosta on tullut tietoa. Tämä ei kyllä välttämättä ilahduta sarjan faneja. Lue lisää: htt
      Tv-sarjat
      9
      744
    10. Mä muuten kerroin puolisolle susta

      Nimeä mainitsematta....
      Ikävä
      59
      725
    Aihe