iki sütundaki değerleri birbirine eşitlemek

[soulfest]

örneğin D sütununda 10 ve 110 arasındaki hücrelere değer girdiğim zaman E sütunununda o hücreye denk gelen hücresinde aynı değerin çıkmasını istiyorum.
yani d15'e 100 yazdığım zaman e15'inde 100 olmasını istiyorum.nasıl yapabilirim?teşekkürler

 

[Vedat Özer]

Selamlar,

Örnek dosya ekleyebilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu bu işlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D10:D110")) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = Target
End Sub

 

[soulfest]

Selamlar,

Aşağıdaki kodu bu işlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D10:D110")) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = Target
End Sub

teşekkürler çalıştı