sayfa olayına yazılacak kod ile sütunun tamamında işlem yapma

[Ayşavkı]

herkese merhaba arkadaşlar!! yapmak istediğimi izah etmeye çalıştığım dosya ekte olup;sayfada formül ile yapılam basit bir çarpma işlemini sayfanın change olayına yazacağım kod ile yapmak istiyorum. tek satırda yapabildim ama sütun boyunca yapabilmeyi başaramadım.yardımlarınızı talep etmekteyim saygılar

 

[Huseyinkis]

Ekli Kodları İncelermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 2 Then
Cells(Target.Row, 4).Value = Target.Value * Cells(Target.Row, 3).Value
Else
Cells(Target.Row, 4).Value = Target.Value * Cells(Target.Row, 2).Value
End If
End Sub

 

[Ayşavkı]

sayın Huseyinkis ilginiz için teşekkür ederim.önerdiğiniz kodlar işimi gördü.çok teşekkür ederim ancak "E" sütünunada "D" sütununun %18 ini aldırmak istiyorum.aslında bunu baştan söylemem gerekirdi özür dilerim ama kendim yapabilirim diye düşündüm ama maalesef başaramadım.vaktinizi alacak ise formülle yapabilirim.saygılar

 

[Huseyinkis]

Kodları İnceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Column = 2 Then
Cells(Target.Row, 4).Value = Target.Value * Cells(Target.Row, 3).Value
If Cells(Target.Row, 4).Value > 0 Then
Cells(Target.Row, 5).Value = (Cells(Target.Row, 4).Value / 100) * 18
End If
Else
Cells(Target.Row, 4).Value = Target.Value * Cells(Target.Row, 2).Value
If Cells(Target.Row, 4).Value > 0 Then
Cells(Target.Row, 5).Value = (Cells(Target.Row, 4).Value / 100) * 18
End If
End If
End Sub

 

[Ayşavkı]

sayın Huseyinkis!!! geri dönüş için geciktiğim için özür dilerim. ilgi ve paylaştığınız bilgiler için teşekkür ederim verdiğiniz kodlar değişik uygulamalarımada ışık olacak saygılar!!!