Søg
Avatar billede kbjr Nybegynder
17. december 2013 - 01:29 Der er 1 løsning

Macro der skriver i celle, opretter/kopierer ark, tilknytter defineret navn

Hej folkens

Jeg har behov for en knap der gør følgende når den trykkes på:

Viser et popup vindue med tekstfelt, heri skal der kunne skrives et navn.

Når der trykkes OK skal navnet sættes ind i kolonne A i det næste frie felt i Ark1. Når navnet er indsat skal der kopieres et ark, lad os kalde det ark2. I det nye ark skal der i A1 indsættes det navn som blev indtastet i tekstfeltet. Derudover så skal navnet der blev tastet knyttes til arket som et defineret navn.

Hvem kan fikse sådan en bandit? Jeg har fået den til at lave et popup vindue hvor jeg kan indtaste navn og den sætter det ind i ark1. Men resten kan jeg ikke lige hitte ud af.
Avatar billede kbjr Nybegynder
17. december 2013 - 14:58 #1
Ordnede det selv.


Sub nytark_generator()
    arknavn = InputBox("Skriv navnet du ønsker at tilføje")
    For Each ws In Worksheets
If ws.Name = arknavn Then
MsgBox "Navn eksisterer allerede", , "Warning!"
Exit Sub
End If
    Next
 
    Sheets("skabelon").Copy After:=Sheets("skabelon")
    ActiveSheet.Name = arknavn
    Sheets(arknavn).Range("A1") = arknavn
    Sheets(arknavn).Visible = True
    arknavn = Replace(arknavn, " ", "_")
    ActiveWorkbook.Names.Add Name:=arknavn, RefersToR1C1:=Range("A1")
    arknavn = Replace(arknavn, "_", " ")
    Sheets("Ark1").Select
    Range("A2").Select
    Do Until ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(0, 0).Value = arknavn

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Stempel ur start og stop Af lurup i Excel 1 23/03/202613:24 23/03/202621:06
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:08 Problemer med replay af købte kursusvideoer Af annam i Browsere
I går 11:18 DENVER DVB-tMPEG-4 HD TUNER Af ole falsted i Fjernsyn & projektorer
I går 10:03 Låst D-drev skal genoprettes Af barth i Andet software
27/0313:51 Vest Tysk film - fra 1955 ? - Søges - Navn på film og forfatter har jeg glemt Af Ikke-ekspert i Fri debat
27/0305:41 Messenger kræver kode. Af Per i PC
White papers
Flere white papers »