Aktif hücreyi 7.5 ile çarptırmak

[Recep İpek]

Daha önce bir mesajda görmüştüm ama şu anda bulamadım.

Aşağıdaki kodlar ile D6 ile D12 arasında herhangi bir rakam girdiğimde bu rakamın 7,5 ile çarpılmış halinini yazdırmaya çalışıyorum.
Fakat bir türlü beceremedim.

Örneğin D6 hücresine 4 yazdığım zaman sonucun D6 hücresinin 30 olmasını istiyorum.

[vb:1:6c3971f4af]
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(ActiveCell, Range("D612")) Is Nothing Then Exit Sub
Target.Value = Target.Value * 7.5
End Sub
[/vb:1:6c3971f4af]

 

[Ali]

Foruma ilk üye olduğum zamanlarda Levent Beyin verdiği cevaptır

http://www.excel.web.tr/viewtopic.php?t=8379

 

[Ali]

Sn ripek,

Dim ilk
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D612")) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
If Target.Column = 4 Then
ilk = Target * 7.5
Target = ilk
End If
End Sub

işinizi görecektir.

 

[Recep İpek]

Sayın fructose,

İlginiz için teşekkürler.

Fakat kendime göre bir türlü uyarlayamadım.Sabahtan bu yana işyerinde yoğun işlerlerden dolayı kafa kalmadı.

:agla:

 

[Ali]

Sn ripek, eş zamanlı gönderdiğimiz için göremediniz sanırım. yukarıda yazdım. :hey:

 

[Recep İpek]

sayın fructose,

Çok çok teşekkürler. :hey: