Makro Kodunda hatanın düzeltilme talebi

[sirkülasyon]

If IsNumeric(Target.Value) Then Target.Offset(0, 3).Value = Target.Offset(0, 2) > Target.Offset(0, 1),Target.Offset(0, 2).Value / 100 * 6

Makronun işlem yapması için yardımcı olabilir misiniz?

 

[PLİNT]

If IsNumeric(Target.Value) Then Target.Offset(0, 3).Value = Target.Offset(0, 2) > Target.Offset(0, 1),Target.Offset(0, 2).Value / 100 * 6

Makronun işlem yapması için yardımcı olabilir misiniz?

Merhaba
Yukarıdaki makronuza göre; şöyle bir düzeltme olabilir:

If IsNumeric(Target.Value) = True And Target.Offset(0, 2) > Target.Offset(0, 1) Then
Target.Offset(0, 3).Value = Target.Offset(0, 2).Value / 100 * 6
End If

 

[sirkülasyon]

üstat
Yapmak istediğim şu aslında:
B sütununda yaklaşık maliyet var. C sütununda sınır değer var. D sütununda firmanın teklif tutarı var.
E sütununda olacak işlem
Firmanın teklifi sınır değerin altında ise Yaklaşık maliyet ile %9 çarpacak ve sonucunu yazacak.
Firmanın teklifi sınır değerin üstünde ise firmanın teklif tutarı ile %6 çarpacak ve sonucunu yazacak.

Mümkünse makrom aynı sistem üzerinden olsun

 

[PLİNT]

üstat
Yapmak istediğim şu aslında:
B sütununda yaklaşık maliyet var. C sütununda sınır değer var. D sütununda firmanın teklif tutarı var.
E sütununda olacak işlem
Firmanın teklifi sınır değerin altında ise Yaklaşık maliyet ile %9 çarpacak ve sonucunu yazacak.
Firmanın teklifi sınır değerin üstünde ise firmanın teklif tutarı ile %6 çarpacak ve sonucunu yazacak.

Mümkünse makrom aynı sistem üzerinden olsun

Merhaba
Dosyanızı
www.dosya.tc adresine ekleyip; indirme adresini verirmisiniz?

 

[vardar07]

Aşağıdaki şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
If Target.Offset(0, 2) > Target.Offset(0, 1) Then 'teklif tutarı > sınır değerinden
Target.Offset(0, 3).Value = Target.Offset(0, 2).Value * 6 / 100 'teklif tutarı * 6%
Else                                                             'teklif tutarı < sınır değerinden
Target.Offset(0, 3).Value = Target.Value * 9 / 100       'ihale bedeli * 9%
End If
End Sub