Private Sub Worksheet_SelectionChange(ByVal Target As Range) kullanımı

[muyat]

Ekte b8 hücresindeki çalışmayan sayısı,b7 hücresindeki çalışan sayısından büyük oldugu zaman uyarı versin istiyorum.
Uyarı kısmını hallettim fakat;uyarı yaptıktan sonra tamam dedigimde yine aynı uyarıyı veriyor ve program kilitleniyor.
Benım istedigim şey ise,açılan pencerede tamama tıklarsam veya uyarı penceresini X işaretine basarak kapatırsam ,
program benım bu hatayı almamam için b7 veya b8 hücresine atlasın ve düzeltme yapıncaya kadar bu uyarıyı vermesin.
kodlar aşagıda.Yardımcı olur musunuz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



calisan = Worksheets("isyeri").Range("B7").Value
calismayan = Worksheets("isyeri").Range("B8").Value

If calisan <> "" And calismayan <> "" Then


If calismayan > calisan Then
K = MsgBox(" 'calismayan sayısı çalısan sayısından büyük olamaz'  (Hücre No: 'B7')", vbCritical, "UYARI!!!")
Application.Goto Reference:=Worksheets("isyeri").Range("A1"), Scroll:=True
Range("B7").Select
Range("B7").ClearContents
Else
End If
Else
End If


End Sub

 

[antonio]

Merhaba,
Şu şekilde deneyiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'(dim değişken tanımlarını kaldırdık..)
calisan = Worksheets("isyeri").Range("B7").Value
calismayan = Worksheets("isyeri").Range("B8").Value

If calisan <> "" And calismayan <> "" Then
    If calismayan > calisan Then
        K = MsgBox(" 'calismayan sayısı çalısan sayısından büyük olamaz'  (Hücre No: 'B7')", vbCritical, "UYARI!!!")
        Range("B7").ClearContents
        Exit Sub
    End If
    
    Else
End If
End Sub

 

[Tevfik_Kursun]

Sayın Antonio,
Bu hata geliyor.
İyi çalışmalar

 

[antonio]

Merhaba,
2 No'lu mesajımı düzenledim. Bu arada hata sebebini açıklamakta yarar var: Hücre yerinin boş olmaması şartı ifade edildiğinde değişkenin bir string (metinsel) ifade olduğu varsayılır. sayısal ifadeler için sıfırdan büyük olup olmadığı şeklinde şart belirtilir. Veri tipi hatasının kaynağı budur.
Değişken tanımları olmazsa hata da olmaz.

 

[Tevfik_Kursun]

Teşekkür ederim
İyi çalışmalar