Formül Sonucunu Değer olarak Kopyalamak ?

[Swing35]

Hocam hem C hemde D sütununu aynı anda tetiklemek için nasıl bi işlem yapmak lazım

 

[ÖmerBey]

If Intersect([C:[COLOR="Red"]D[/COLOR]]

Olarak değiştiriniz.

 

[Swing35]

Hocam değiştirdim ama C tetikleniyor fakat D de yapmıyor acaba bi eksiklikmi var

 

[ÖmerBey]

Tam olarak yapmak istediğiniz nedir ki?
Yukarıdaki şekilde C veya D sütununda bir değişiklik yapıldığı zaman E sütununu C sütununa eşitler.
Olmayan kısmı neresi ki aceba?

 

[Swing35]

Hocam Formülde C sütununda bir hücrede değişiklik olduğunda bunu E sütununa değer olarak kopyalıyor. Bunu aynı şekilde D sütunundada yapmasını istiyorum. yani D sütununda da bi değişiklik olduğunda bunu F sutünuna kopyalasın.

 

[ÖmerBey]

Kullandığınız kodu aşağıdaki şekilde değiştirebilirsiniz.

Private Sub worksheet_change(ByVal target As Range)
If Intersect([C:D], target) Is Nothing Then Exit Sub
ilk = 1
son = Cells(Rows.Count, "C").End(xlUp).Row

For i = ilk To son
    Cells(i, 5) = Cells(i, 3)
    Cells(i, 6) = Cells(i, 4)
Next i
End Sub

Ya da alternatif olarak aşağıdakini kullanabilirsiniz.

Private Sub worksheet_change(ByVal target As Range)
If Intersect([C:D], target) Is Nothing Then Exit Sub
target.Offset(0, 2) = target
End Sub