-3

In Sheet1, I have B10 and C10 with a formula like: 

=SI(B3=0;B6;SI(B6=0;B3;SI(B3<>B6;B6;B3)))

enter image description here

And with the VBA I increment the row and add my number.

enter image description here

But the numbers where they are the formulae is reading #REF.

Here is my VBA Code : 

  ThisWorkbook.Worksheets("Modification").Range("A10:AL10").Copy _
        Destination:=ThisWorkbook.Worksheets("Données Enregistrées").Cells(Rows.Count, 1).End(xlUp).Offset(1)
jonrsharpe
  • 115,751
  • 26
  • 228
  • 437
Affolter
  • 33
  • 2
  • 6

1 Answers1

0

Did you try copy/paste Value?

Sub CopyCol()
    Sheets("Sheet1").Columns("A").Copy
    Sheets("Sheet2").Columns("B").PasteSpecial xlPasteValues
End Sub

Excel VBA Copy Paste Values only( xlPasteValues )

Community
  • 1
  • 1
Gerhard Powell
  • 5,965
  • 5
  • 48
  • 59
  • Dear, Many Thanks for your answer. I've tried and modified your code but it still doesn't work. There is error! Sheets("Sheet1").Row("10").Copy Sheets("Sheet2").Row("1").PasteSpecial xlPasteValues And I still need to increment the row in my sheet2.. Thanks to help me)))) – Affolter Mar 18 '15 at 07:29