Kopier celleværdi der indeholder en formel til andet ark

Er det en beskrivelse af en manuel proces, du forventer - eller en VBA-løsning?

...eller?

Det er en VBA-løsning - Hele processen skal foregå med tryk på en Button

Prøv med denne makro:

Sub Flyt()
Dim a, b, c As Integer
Dim V As Variant
a = Application.CountA(Worksheets("Sheet2").Range("A:A"))
b = Application.CountA(Worksheets("Sheet3").Range("A:A"))
c = Application.CountA(Worksheets("Sheet4").Range("A:A"))
V = Range("A1").Value
Worksheets("Sheet2").Cells(a + 1, 1) = V
V = Range("A2").Value
Worksheets("Sheet3").Cells(b + 1, 1) = V
V = Range("A3").Value
Worksheets("Sheet4").Cells(c + 1, 1) = V
End Sub

En lille ændring - der skulle bare kopieres og indsættes, ikke flyttes.

Det gør den heller ikke. Men jeg kan se at jeg har givet makroen et forkert navn.

Jeg kunne ikke få din løsning til at virke, men lavet nedenstående som virker, og kun overfører den numeriske værdi fra de kopierede celler

Sub IndsaetVaerdi()
'
' IndsaetVaerdi Makro
'

'
    Range("F9").Select
    Selection.Copy
    Sheets("2_15").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("2015").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("total").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Effektivitet").Select
    Range("F19").Select
  Application.CutCopyMode = False
    Selection.Copy
    Sheets("2_15").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("2015").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("total").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Effektivitet").Select
    Range("F29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("2_15").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("2015").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("total").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Effektivitet").Select
    Range("C4").Select
End Sub

Havde ikke lige set at alle 3 værdier skulle til alle 3 ark. Så skulle den have set sådan ud:

Sub IndsaetVaerdi()
Dim a, b, c As Integer
Dim V As Variant
a = Application.CountA(Worksheets("2_15").Range("A:A"))
b = Application.CountA(Worksheets("2015").Range("A:A"))
c = Application.CountA(Worksheets("Total").Range("A:A"))
V = Range("F9").Value
Worksheets("2_15").Cells(a + 1, 1) = V
Worksheets("2015").Cells(b + 1, 1) = V
Worksheets("Total").Cells(c + 1, 1) = V
V = Range("F19").Value
Worksheets("2_15").Cells(a + 2, 1) = V
Worksheets("2015").Cells(b + 2, 1) = V
Worksheets("Total").Cells(c + 2, 1) = V
V = Range("F29").Value
Worksheets("2_15").Cells(a + 3, 1) = V
Worksheets("2015").Cells(b + 3, 1) = V
Worksheets("Total").Cells(c + 3, 1) = V
Sheets("Effektivitet").Select
Range("C4").Select
End Sub