If Not IsEmpty(h_codes) Then -->> change event'inin içerisindeki bu kod parcasının h_codes boş ve false dönüyor fakat aşagıdaki kodu okuyor
solunumKontrolSayisal = SolunumKontrolBand(h_codes)
MsgBox solunumKontrolSayisal
If solunumKontrolSayisal = 0 Then
solunumKontrolMetinsel = "A"
ElseIf solunumKontrolSayisal > 0 And solunumKontrolSayisal < 10 Then
solunumKontrolMetinsel = "B"
ElseIf solunumKontrolSayisal >= 10 And solunumKontrolSayisal <= 1000 Then
solunumKontrolMetinsel = "C"
ElseIf solunumKontrolSayisal >= 1000 And solunumKontrolSayisal < 10000 Then
solunumKontrolMetinsel = "D"
ElseIf solunumKontrolSayisal >= 10000 Then
solunumKontrolMetinsel = "E"
End If
Cells(Target.Row, Range("A1:AF1").Find("Solunum Kontrol Bandı").Column) = solunumKontrolMetinsel
End If
solunumKontrolSayisal = SolunumKontrolBand(h_codes)
MsgBox solunumKontrolSayisal
If solunumKontrolSayisal = 0 Then
solunumKontrolMetinsel = "A"
ElseIf solunumKontrolSayisal > 0 And solunumKontrolSayisal < 10 Then
solunumKontrolMetinsel = "B"
ElseIf solunumKontrolSayisal >= 10 And solunumKontrolSayisal <= 1000 Then
solunumKontrolMetinsel = "C"
ElseIf solunumKontrolSayisal >= 1000 And solunumKontrolSayisal < 10000 Then
solunumKontrolMetinsel = "D"
ElseIf solunumKontrolSayisal >= 10000 Then
solunumKontrolMetinsel = "E"
End If
Cells(Target.Row, Range("A1:AF1").Find("Solunum Kontrol Bandı").Column) = solunumKontrolMetinsel
End If
