Notifikationer

Markér alle som læst Log ud

joggeren Nybegynder

30. marts 2004 - 11:20 Der er 3 kommentarer og
1 løsning

Hop en linie ned

Jeg har følgende makro, som henter nogle værdier over i et andet regneark.

Jeg vil gerne have den til at rykke en linie ned hver gang den kopierer noget, så den ikke overskriver de eksisterende data, samtidig med skal den i et bestemt felt skrive dags dato.

Foreløbelig makro: - Hvad skal ændres?

Workbooks.Open FileName:="F:\JESPER\ll\prisliste.xls"
Windows("prisliste.xls").Activate
Windows("testkalk.xls").Activate
Sheets("Testkal").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("testkalk.xls").Activate
Sheets("Jytte").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Range("C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("testkalk.xls").Activate
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E2").Select
Windows("testkalk.xls").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("testkalk.xls").Activate
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Range("F2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("G2").Select
Windows("testkalk.xls").Activate
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("H2").Select
Windows("testkalk.xls").Activate
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("prisliste.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Synes godt om

joggeren Nybegynder

30. marts 2004 - 11:30 #1

Glem det med datoen.. det har jeg løst...

Synes godt om

kabbak Professor

30. marts 2004 - 19:47 #2

Her er så koden, har rettet den lidt til, håber det var det du mente.

Sub test()
Dim PR As Workbook, WTK As Worksheet, TK As Workbook, RK As Double
Workbooks.Open Filename:="F:\JESPER\ll\prisliste.xls"
Set PR = Workbooks("prisliste.xls")
Set TK = Workbooks("testkalk.xls")
Set WTK = TK.Sheets("Testkal")
PR.Sheets(1).Select
RK = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row + 1
PR.Sheets(1).Range("B" & RK) = WTK.Range("C4")
PR.Sheets(1).Range("C" & RK) = TK.Sheets("Jytte").Range("C3")
PR.Sheets(1).Range("D" & RK) = TK.Sheets("Jytte").Range("B4")
PR.Sheets(1).Range("E" & RK) = TK.Sheets("Jytte").Range("F4")
PR.Sheets(1).Range("F" & RK) = TK.Sheets("Jytte").Range("B7")
PR.Sheets(1).Range("G" & RK) = TK.Sheets("Jytte").Range("B8")
PR.Sheets(1).Range("H" & RK) = TK.Sheets("Jytte").Range("B9")
PR.Save
PR.Close
End Sub

Synes godt om

joggeren Nybegynder

31. marts 2004 - 08:17 #3

Heæt perfekt. nu mangler du kun at svare... jeg har en anden ting den skal ordne.. men det må jeg hellere tage i et nyt spørgsmål.

Synes godt om

kabbak Professor

31. marts 2004 - 09:12 #4

Et svar. ;-))

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Æ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
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS