Hücre formulu kopyalamak

[cagataybaser]

Merhabalar
Hücre formulunu bos bir hucreye kopyalarken sorun yok fakat kopyaladigim yerdeki hucrenin degeri otomatik degismiyor.Kopyalama mi yanlis yoksa formulu tekrar mi yazmaliyim?
Iyi calismalar.

Formul:

=$A$185+SUMPRODUCT($B$14:$B$160;AG14:AG160)+SUMIF(AG14:AG160;"<1")

Vba kodu:

Private Sub CommandButton1_Click()
Dim lastcolumn As Long
Dim i As Integer
lastcolumn = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 174 To 179
.Cells(i, lastcolumn).Copy
.Cells(i, lastcolumn + 1).PasteSpecial
 Next i
End Sub

 

[Korhan Ayhan]

Formülü kopyalıyorsunuz ve hücredeki değer değişmiyorsa hesaplama yönteminiz "ELLE" seçeneğine ayarlanmış olabilir. Kontrol ediniz.