Gönderen Konu: Kodda hata var  (Okunma sayısı 1624 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 164
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Kodda hata var
« : 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