VBA: anvendelse af "PasteSpecial".

Gætter på at det er denne

ws.Range("c42").Copy  i stedet for:
Worksheets(ws.Name).Range("c42").Copy

Det tror jeg ikke. Den samlede kode ser således ud:

Worksheets(ws.Name).Range("b10").Copy
Sheets("SamletOversigt").Paste Destination:=Worksheets("SamletOversigt").Cells(X, 1)
Worksheets(ws.Name).Range("B12").Copy
Sheets("SamletOversigt").Paste Destination:=Worksheets("SamletOversigt").Cells(X, 2)
Worksheets(ws.Name).Range("f10").Copy
Sheets("SamletOversigt").Paste Destination:=Worksheets("SamletOversigt").Cells(X, 3)
Worksheets(ws.Name).Range("b15").Copy
Sheets("SamletOversigt").Paste Destination:=Worksheets("SamletOversigt").Cells(X, 4)
Worksheets(ws.Name).Range("b16").Copy
Sheets("SamletOversigt").Paste Destination:=Worksheets("SamletOversigt").Cells(X, 5)
Worksheets(ws.Name).Range("c42").Copy
Sheets("SamletOversigt").PasteSpecial Paste:=xlPasteValues, Destination:=Worksheets("SamletOversigt").Cells(X, 6)
Worksheets(ws.Name).Range("b18").Copy
Sheets("SamletOversigt").Paste Destination:=Worksheets("SamletOversigt").Cells(X, 7)

Den eneste linie der giver problemer er den, hvor jeg anvender "PasteSpecial". Og jeg ved helt ærlig ikke om det er en korrekt kode. Jeg har indspillet en makro og kopieret koden der fra.

Worksheets(ws.Name).Range("b10").Copy Worksheets("SamletOversigt").Cells(X, 1)
Worksheets(ws.Name).Range("B12").Copy Worksheets("SamletOversigt").Cells(X, 2)
Worksheets(ws.Name).Range("f10").Copy Worksheets("SamletOversigt").Cells(X, 3)
Worksheets(ws.Name).Range("b15").Copy Worksheets("SamletOversigt").Cells(X, 4)
Worksheets(ws.Name).Range("b16").Copy Worksheets("SamletOversigt").Cells(X, 5)
Worksheets("SamletOversigt").Cells(X, 6) = Worksheets(ws.Name).Range("c42")
Worksheets(ws.Name).Range("b18").Copy Worksheets("SamletOversigt").Cells(X, 7)

Hej kabbak
Det virker bare. Jeg tror jeg ændrer de øvrige linier til samme model - det er lidt smartere.
Tak for hjælpen

hvordan er det lige jeg giver point?

jeg skal lige svare først ;-))

Hvis du retter feks.

Worksheets(ws.Name).Range("b10").Copy Worksheets("SamletOversigt").Cells(X, 1)

til

Worksheets("SamletOversigt").Cells(X, 1) = Worksheets(ws.Name).Range("b10")

Får du ikke formatet med

Det gør ikke noget, at jeg ikke får formatet med.
Tak for hjælpen