Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 24 Ekim 2010, 10:56:26

Başlık: Kodda hata var
Gönderen: yesilyurtlu - 24 Ekim 2010, 10:56:26
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F2:F150]) Is Nothing Then

If IsNumeric(Target.Value) And Target > 10 Then
Target.Offset(0, 2).Value = Target.Value - 10

ElseIf IsNumeric(Target.Value) And Target <= 10 Then
Target.Offset(0, 2).Value = 0

ElseIf IsNumeric(Target.Value) And Target <> 10 Then
Target.Offset(0, 2).Value = 10 - Target.Offset(0, 2).Value



ElseIf Not Intersect(Target, [F2:F150]) Is Nothing Then
If IsNumeric(Target.Value) And Target > 10 Then

Target.Offset(0, 1).Value = Target.Value - Target.Offset(0, 2).Value

ElseIf IsNumeric(Target.Value) And Target <= 10 Then
Target.Offset(0, 1).Value = Target.Value

End If
End If
End If
End Sub

Üstadım Hatamı bulmamda yardımcı olabilir misiniz? Koyu olan kod çalışıyor. Diğer kod pasif kalıyor