Çözüldü Makro koduna ilave

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C9:C290]) Is Nothing Then Exit Sub
Range("h2").Value = Range("H2").Value + Target.Value
End Sub

yukarıda yer alan kod "Evren abiye ait" ile sütun toplamlarını H2 hücresine alıyorum.
Ek olarak çift double click yaptığım hücrede ki rakam ne ise hemen yanına D sütununa da yazmasını istiyorum
Bunun için kod eklemesi yapılabilmesi için yardımcı olabilir misiniz?

Teşekkür eder saygılarımı sunarım

 

[Muzaffer Ali]

Aşağıdaki kodu kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C9:C290]) Is Nothing Then Exit Sub
Range("h2").Value = Range("H2").Value + Target.Value
Target(1, 2).Value = Target.Value
End Sub

 

[çıtır]

End Sub dan önce ilave ediniz.

Target.Offset(0, 1) = Target.Value

 

[sirkülasyon]

Sayın dalgalikur ve çıtır
Her birinize ayrı ayrı çok çok teşekkür ederim. Sağ olun, Var olun

 

[çıtır]

Sayın dalgalikur ve çıtır
Her birinize ayrı ayrı çok çok teşekkür ederim. Sağ olun, Var olun

Rica ederim.Dönüş yaptığınız için teşekkür ederim.