Run-time error '13": Type mismatch Hatası

[iplikci_80]

Arkadaşlar EK'teki çalışmanın açılışında oluşan " Run-time error '13": Type mismatch " hatasının giderilmesi hususunda yardımlarınızı rica ediyorum.

 

[Muzaffer Ali]

Merhaba.
DW1 hücresinde #Değer hatası olduğundan bu hatayı alıyorsunuz.
"Workbook_Activate" kodlarını silip yerine aşağıdakileri kopyalarsanız DW1 hücresinde #Değer hatası olsa bile "Type mismatch" hatası almazsınız.

Private Sub Workbook_Activate()
    If Range("DW1").Text > 0 Then
        msj = Range("DW1").Text & " ÖZÜRLÜ PERSONEL İHTİYACINIZ VAR"
        MsgBox msj
    End If
End Sub

Ancak yinede DW1 hücresindeki #Değer hatasını gidermeniz gerekir.
#Değer hatasını gidermek için de, DV1 deki formülü aşağıdaki ile değiştirin.

=EĞER((TOPLA.ÇARPIM((EĞERSAY($J$5:$J$17473;{"OSMANİYE";"ŞUBE"})))*0,03)<=0;"0";(TOPLA.ÇARPIM((EĞERSAY($J$5:$J$17473;{"OSMANİYE";"ŞUBE"})))*0,03))

 

[iplikci_80]

Sayın dalgalikur ilginize teşekkür ederim.