makro ile sutundaki değerlerde çarpma işlemi yapma

[kemal turan]

Merhabalar,
Sitemizdeki örnek kkodlardan revize ederek oluşturmayı düşündüğüm aşağıdaki kod ile ;
C7 hücresine tıkladığımda
C11 den itibaren 4 ncü sutun ile 18 nci sutun değerlerini çarpıp T sutununa sonucu yazmak istiyorum.
Kod çalışıyor ama hep 0 değeri veriyor.
Yardımlarınızı rica ediyorum.
Teşekkürler

If Not Intersect(Target, [c7]) Is Nothing Then
Dim U1 As Long
For U1 = 11 To [c65536].End(3).Row
Cells(U1, "T") = Cells(4).Value * Cells(18).Value
Next
End If

 

[Korhan Ayhan]

Çarpma işleminde hatalı yazım var. Aşağıdaki gibi deneyiniz.

Cells(U1, "T") = Cells(U1, 4) * Cells(U1, 18)

 

[kemal turan]

Sn.Korhan bey,
Çok teşekkür ederim.
Selametle kalınız.