Değer Kopyalama

[78eagle]

Selamlar öncelikle;

Örnek olarak c1 hücresinde =a1+b1 formülü yazdık.
Ben d1 hücresine c1 deki sonucun otomatik olarak ve formülsüz yani direk değeri gelsin istiyorum.
Kendim kopyala değerleri yapıştır seçeneğinden bahsetmiyorum yalnız.
Bunu yapabileceğim bir şey var mıdır?

Şimdiden teşekkürler.

 

[Mahir64]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
        [C1].Value = Application.Sum([A1:B1])
End If
End Sub

 

[turist]

Alternatif olarak; Sayfa kodunuza:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For x = 1 To [c65536].End(3).Row
Cells(x, 4).Value = Cells(x, 3)
Next
End Sub

yazarak deneyin.