clleker88
Altın Üye
- Katılım
- 14 Eylül 2020
- Mesajlar
- 34
- Excel Vers. ve Dili
- 2019
- Altın Üyelik Bitiş Tarihi
- 30-09-2025
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