Makro ile Yüzde alma

[Yesilyurtlu]

Değerli Uzmanlarım;
Ekli dosyada sizden istirhamım şu :

Adı soyadı kısmına (B7 den itibaren B120 ye kadar) veri girişi yapılınca , C3 deki veriyi (G7 den itibaren G120 ye kadar) yazacak H7 den H120 ye kadar C1 de ki %19,5 hesaplayıp yazacak , I7 den I120 ye kadar da C2 de ki %14 ü hesaplayıp yazacak.

Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B7:B120]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
    Cells(Target.Row, "G") = Range("C3")
    Cells(Target.Row, "H") = (Cells(Target.Row, "G") * Range("C1")) / 100
    Cells(Target.Row, "I") = (Cells(Target.Row, "G") * Range("C2")) / 100
    Else
    Range("G" & Target.Row, "I" & Target.Row).ClearContents
    End If
End Sub

 

[Yesilyurtlu]

ÜSTADIM;
Eline Sağlık Hakkını Helal et Mükemmel olmuş

 

[Yesilyurtlu]

ÜSTADIM;
İsmi silince hesaplamanın da silinmesi mümkün mü?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[Yesilyurtlu]

Üstadım Eline Sağlık Zahmet verdim size. Hakkınızı Helal Edin