04. januar 2010 - 23:02Der er
12 kommentarer og 1 løsning
VBA: Gem som.. og overfør til andet excelark?
Hej Alle sammen
Håber i kan hjælpe med disse problemer.
1) Jeg har et excel ark, hvor jeg gerne vil have en knap.
Knappens funktion skal gemme filen som filnavnet i 2 celler.
Dvs. Der står "Hans" i A1 og "dato i dag" i A2. Man trykker på knappen og filen bliver gemt som "Hans 040110.xls".
2) Derudover vil jeg gerne have en anden knap, som gør følgende:
Ved tryk tager den oplysningerne i arket og kopier til ind i en bestemt excel fil.
Dvs. Der står "Ole" i A1, "Viggo" i A2 og "Gudrun" i A3. Ved tryk på knap kopieres disse værdier over i filen "navne.xls" i et bestemt ark og nedenunder informationerne fra de tre felter, da knappen sidst blev aktiveret.
Der er 90 point for spørgsmål 1 og 90 point for spørgsmål 2 :)
alternativ 2) Sub copy() Dim wkbNavne As Workbook Dim wksAktuel As Worksheet Set wksAktuel = ActiveWorkbook.Worksheets(1) Set wkbNavne = Workbooks.Open("C:\navne.xls") With wksAktuel Dim c As Range For Each c In .Range("A1", .Range("A1").End(xlDown)).Cells c.copy Destination:=wkbNavne.Worksheets(1).Range("A65536").End(xlUp).Offset(1, 0) Next End With End Sub
Tilføjer alle navne i kolonne A til renearket navne.xls - kolonne A
Hvis du vil sætte noget ind i nogle celler i et regneark, er du nødt til at åbne det først.
Men koden kan åbne det for dig, og lukke det igen. Det hele kan gøres "usynligt" ved at sætte application.screenupdate til false i starten og true i slutningen af koden.
Søg på eksperten om at åbne og lukke filer. Hvis filen altid hedder det samme, og ligger samme sted, er det ret nemt. Overvej om du skal sikre dig imod at 2 brugere kan åbne arket samtidigt osv osv
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.
