Makro formül hatası

[cocoa35]

Merhaba, Ekli formülü ben oluşturdum forumda bulduğum örneklere göre ama bir yerde mantık hatası yapıyorum formül çalışıyor ancak mesajlar doğru geliyor ancak ben "msgbox " ın bir kez çıkmasını istiyorum o her ueserforma girişte çıkıyor! bir kontrol edebilirmisiniz formülü lütfen

Dim IlkGiris As Boolean
Private Sub UserForm_Activate()
If Sayfa74.Range("S127").Value = 1 And Sayfa1.Range("H383").Value = 1 Then
Beep
If Not IlkGiris Then MsgBox "Arıtma sistemi Klasik Aktif Çamur sistemi olup sistemde BIOP Tank tanımlanmıştır! BIOP Tank'ı çıkartmak istiyorsanız BIOP Tank tercih bölümünden (Yok) tercihini yapınız."
IlkGiris = True
End If
If Sayfa74.Range("S127").Value = 1 And Sayfa1.Range("H383").Value = 2 Then
Beep
If Not IlkGiris Then MsgBox "Arıtma sistemi Uzun Havalandırmalı Aktif Çamur sistemi olup sistemde BIOP Tank tanımlanmıştır! BIOP Tank'ı çıkartmak istiyorsanız BIOP Tank tercih bölümünden (Yok) tercihini yapınız."
IlkGiris = True
End If
If Sayfa74.Range("S127").Value = 1 And Sayfa1.Range("H383").Value = 4 Then
Beep
If Not IlkGiris Then MsgBox "Arıtma sistemi Damlatmalı Filtre sistemi olup sistemde BIOP Tank tanımlanmıştır! BIOP Tank'ı çıkartmak istiyorsanız BIOP Tank tercih bölümünden (Yok) tercihini yapınız."
IlkGiris = True
End If

If Sayfa74.Range("S127").Value = 2 And Sayfa1.Range("H383").Value = 3 Then
Beep
If Not IlkGiris Then MsgBox "Arıtma sistemi A2/O sistemi olup sistemde BIOP Tank tanımlanmamıştır! BIOP Tank'ı eklemek istiyorsanız BIOP Tank tercih bölümünden (Var) tercihini yapınız."
IlkGiris = True
End If

End Sub

 

[HücrelereFısıldayanAdam]

"IlkGiris" form seviyesinde tanımlanmış bu şekilde çalışması normal. IlkGiris bilgisi daha yukarı bir aşamada tutulması, form açıldıktan sonra False a dönmesi çözüm olabilir.

 

[cocoa35]

"IlkGiris" form seviyesinde tanımlanmış bu şekilde çalışması normal. IlkGiris bilgisi daha yukarı bir aşamada tutulması, form açıldıktan sonra False a dönmesi çözüm olabilir.

Yani IlkGiris = True olan bölümü False 'mi yapayım?

 

[HücrelereFısıldayanAdam]

İlk giriş olup olmadığını kontrol eden mekanizma lazım, ilk giriş değilse false yapacak. Verisini de yüklerseniz, çözen olacaktır.

 

[cocoa35]

Kod'u bu şekilde değiştirdim ancak yinede her userform açılışta msg çıkıyor! maalesef

Dim IlkGiris As Boolean
Private Sub UserForm_Activate()
If Sayfa74.Range("S127").Value = 1 And Sayfa1.Range("H383").Value <> 3 Then
Beep
If Not IlkGiris Then MsgBox "Arıtma sisteminde BIOP Tank tanımlanmıştır! BIOP Tank'ı çıkartmak istiyorsanız BIOP Tank tercih bölümünden (Yok) tercihini yapınız."
IlkGiris = True
End If
End Sub