Hep aynı değer ile işlem yapma

[Ali]

İki problemim vardı.
1.) E sütununa hangi sayı girilirse girilsin bu sayıyı 21 ile çarpıp 9'a bölmesini istiyorum .
2) Diğer bir problemimde C sütununda her değeri 5 ile çarpıp 8'e bölerek yanındaki hücreye yazsın. Yani (C6*5)/8 işlemini yapıp D6 ya yazsın
Bunun için yazılması gereken makro nedir acaba.

 

[Levent Menteşoğlu]

Aşağıdaki kodu bu işlemleri yapacağınız sayfanın kod sayfasına kopyalayın. Hücre değerini değiştirdiğiniz zaman kod çalışacaktır.

[vb:1:dddaabf368]Dim ilk
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = 0 Then Exit Sub
If ilk = Target Then Exit Sub
If Target.Column = 5 Then
ilk = Target * 21 / 9
Target = ilk
End If
If Target.Column = 3 Then
Target.Offset(0, 1) = Target * 5 / 8
End If
End Sub

[/vb:1:dddaabf368]

 

[Ali]

Ellerinize sağlık Levent Bey ama çalıştıramadım. E sütununa ne yazarsam yazayım aynı değerler kalıyor.

 

[Ali]

C sütununa yazdıklarımıda D'ye aktarıp işlem yapmıyor. Yardımlarınız için tekrar teşekkürler.

 

[mehmett]

Ben denedim. Levent beyin kodları gayet güzel çalışıyor.

C sütununda her hangi bir hücreye girdiğim değeri 5 ile çarpıp 8'e bölüyor ve D sütununa yazıyor.

E sütununda her hangi bir hücreye girdiğim değeri ise aynı hücre içinde 21 ile çarpıp 9'a bölüyor.

 

[Ali]

Elle düzeltirken If li satır silmişim. Evet düzgün çalışıyor :mutlu:
Ellerini sağlık Levent Bey. :bravo:
Sizde hatırlattığınız için sizede teşekkürler zerige