HÜCRE DEĞERİ DEĞİŞTİĞİNDE (BİR DEĞER HARİÇ) KOD ÇALIŞTIRMA

[demir94]

Merhaba,

Aşağıdaki kodu F3:F10 arasındaki hücrelerdeki sayılarda değişiklik olursa, açık olan UserFormu kapatmak için kullanıyorum. Kod gayet güzel çalışıyor.
Ama hücrelerdeki değer bazen sayı değil de "-" olarak değişiyor. Bu aşamada kod çalışmasın istiyorum ve "-" iken bir sayı ile değişirse tekrar çalışsın istiyorum.
Bunu nasıl yapabilirim? Yardımlarınızı bekliyorum.

KOD:

Private Sub Worksheet_Calculate()

Dim Xrg As Range
Set Xrg = Range("F3:F10")
If Not Intersect(Xrg, Range("F3:F10")) Is Nothing Then

Unload UserForm1

End If

End Sub

 

[hasankardas]

Merhaba,
sizin kod üzerinden değilde yeni bir kod olarak öneri sunayım. hücre içi değişiklik olduğu için "change " olarak oluşturdum. Bu vesileyle formumuza hoşgeldiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("F3:F10")) Is Nothing Then

        For Each Cell In Intersect(Target, Range("F3:F10"))
            If IsEmpty(Cell.Value) Then a
                Exit Sub
            ElseIf Not IsNumeric(Cell.Value) Then
                Exit Sub
            End If
        Next Cell

        UserForm1.Show

    End If

End Sub