Søg
Avatar billede ramp Nybegynder
31. august 2008 - 18:14 Der er 8 kommentarer og
1 løsning

ændring i formel:

Jeg anvender følgende formel v. en knap:

Sub Knap4_Klik()
      Application.ScreenUpdating = False
    a = Sheets(1).Range("D6:F6").Value
    If IsEmpty(Sheets(2).Range("D9")) Then
        Sheets(2).Range("D9:F9").Value = a
    Else
        rk = Sheets(2).Cells(65500, "D").End(xlUp).Row + 1
        Sheets(2).Range("D" & rk & ":F" & rk) = a
    End If
    Application.ScreenUpdating = True
    [D6:F6] = ""

Nu ønsker jeg at den i stedet for flytter data over til ...\mappe2.xls i stedet for bare til ark2.

Hvad skal jeg ændre??

Påforhånd tak..
Avatar billede sager Nybegynder
03. september 2008 - 14:25 #1
hvis nu du sætter flg linje ind efter du har lagt data i variablen a:

Workbooks("Mappe2.xls").Activate

Så kan du evt afslutte med at "hoppe tilbage"

Workbooks("Mappe1.xls").Activate

...Men det kræver jo at Mappe2.xls er åben.
Avatar billede ramp Nybegynder
03. september 2008 - 14:50 #2
Den vil ikke være åben, kan det så ikke lade sig gøre?
Avatar billede sager Nybegynder
03. september 2008 - 15:23 #3
Jep.. Men lige et spørgsmål så:
Er det en bestemt (eksisterende) workbook der skal åbnes, eller skal der bare laves en ny workbook?
Avatar billede ramp Nybegynder
03. september 2008 - 16:03 #4
Det er en bestemt, Der vil være 100-150 filer, der med samme funktion åbner en bestemt masterfil
Avatar billede sager Nybegynder
03. september 2008 - 16:20 #5
Så kan du bruge noget a'la

file = ThisWorkbook.Path & "\mappe2.xls"
Workbooks.Open filename:=file

..og til sidst

Workbooks("mappe2.xls").Close SaveChanges:=True


Håber det hjælper.
Avatar billede ramp Nybegynder
03. september 2008 - 18:40 #6
hmm. ok. har måske formuleret forkert. Det skal fungere således:

Celle A6 i userfilen som jeg har åben, skal lægges til i celle A6 i denne fil c:\masterfil.xls.

Så hvis jeg trykker på knappen, i userfilen, bliver celle A6 lagt til i celle A6 i Masterfilen. Er det muligt?

(Er ik så skarp til de funktioner).
Avatar billede excelent Ekspert
03. september 2008 - 21:53 #7
Private Sub CommandButton1_Click()
x = ActiveSheet.Range("A6")
Workbooks.Open Filename:="c:\masterfil.XLS"
Sheets(1).[A6] = Sheets(1).[A6] + x
Workbooks("masterfil.xls").Close savechanges:=True
End Sub
Avatar billede ramp Nybegynder
03. september 2008 - 22:35 #8
Super. Præcis hvad jeg manglede. Endnu engang min redningsmand.

Smid et svar excelent:-)
Avatar billede excelent Ekspert
03. september 2008 - 23:20 #9
ok velbekom
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
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
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 går 16:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »