• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
30 Eylül 2009
Mesajlar
625
Excel Vers. ve Dili
excel 2016
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
 

Ekli dosyalar

Ekli Kodları İncelermisiniz.

Kod:
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
 
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
 
Kodları İnceleyin.

Kod:
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
 
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!!!
 
Geri
Üst