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
-
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