Koşul sağlanıyorsa UserForm açılsın

[Hakan ERDOST]

Merhaba . Herkese kolay gelsin.
Yaptığım bir çalışmada bir hatırlatıcım var. Öğrencilerin doğum gününü hatırlatıyor. Hatırlatıcıda sorun yok ancak ; Doğum günü olan öğrenci bulunmaması durumunda üzerinde doğum günü olan çocukların adlarının bulunduğu görsel bulunan UseForm36 nın açılmamasını istiyorum. Ancak unload me, me.hide vb komutlarda sürekli "object variable or with block variable not set " hatası alıyorum.Kod aşağıda;

Private Sub UserForm_Initialize()
Sheets("VERİ").Activate

 tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("VERİ").Range("AW65536").End(3).Row
       
    If tarih = Format(Cells(i, 49), "dd.mm") Then
     say = say + 1
         mesaj = "Doğum günü olanlar : " & vbCr
            msj = msj & Cells(i, 3) & vbCr
                Label1 = "İyiki Doğdun:" & msj
    End If
Next i
    If say = 0 Then
   MsgBox "Bugün Doğum Günü olan öğrenciniz bulunmamaktadır"
  ....
  ....
    Else
        MsgBox "Bugün doğum günü olan " & say & " öğrenciniz var" & vbCr & _
        mesaj & vbCr & msj
  
End If

End Sub

... bölümlerde belirttiğim komutlar denendi.

 

[askm]

Örnek dosyanız olsa daha kolay olurdu. Say ve mesaj ifadesini public olarak tanımlayın. Kodlarınızı hangi işlemle çalışmasını istiyorsanız (butonda ya da sayfa akıtif olunca vs.) o bolüme alın. Eğer say>0 ise formu aktif edin. Eğer sıfır ise işlem yapmasın.

 

[Hakan ERDOST]

Tam dosya olmasa da örnek ekledim. İlgilenen olursa..

 

[Korhan Ayhan]

Userform1 nasıl açılıyor?

 

[Hakan ERDOST]

Userform1 nasıl açılıyor?

Korhan bey merhaba. Dosya olmadan ne kadar açıklayıcı olur bilemiyorum, ancak elimden geldiğince izah edeyim.
Program açılışında veri sayfasındaki ilgili bölüm kontrol edilerek doğum günü olan çocuk var ise bunu mesaj ile söyleyip UserForm1'i açıyor.Buradan bulunan userform üzerinde görsel ve çocukların adı ile açılıyor. Bunda sorun yok. Sorun;
Olmama durumu, doğum günü olan çocuk yok ise yine mesaj kutusu ile bunu kullanıcıya söyleyip UserForm2 'ye yani ana forma gidiyor. Burada da sorun yok. Sorun ana formdan excele dönüşte UserForm1 açık geliyor. Bunun olmaması için aslında ben 'Eğer öğrenci yoksa gelen' Doğum günü olan öğrenciniz bulunmamaktadır mesajının arkasından, ya UserForm1'in çağrılmaması ya da mesajın arkasından otomatik açıldığı için kapatılması gerektiğini düşünerek , formun kapatılması için farklı kodlamalar denedim. Bu kez de object variable... hatası veriyor. Umarım anlatabilmişimdir.

 

[Mahmut Bayram]

Doğru anladı isem

Private Sub Workbook_Open()
Sheets("VERİ").Activate
 tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("VERİ").Range("AW65536").End(3).Row
      
    If tarih = Format(Cells(i, 49), "dd.mm") Then
     say = say + 1
         mesaj = "Doğum günü olanlar : " & vbCr
            msj = msj & Cells(i, 3) & vbCr
                Label1 = "İyiki Doğdun:" & msj
    End If
Next i
    If say = 0 Then
    MsgBox "Bugün Doğum Günü olan öğrenciniz bulunmamaktadır.Ana menüye gitmek istiyor musunuz?"
    Else
        MsgBox "Bugün doğum günü olan " & say & " öğrenciniz var" & vbCr & mesaj & vbCr & msj
UserForm2.Show
End If
End Sub

 

[Hakan ERDOST]

Private Sub Workbook_Open()
Sheets("VERİ").Activate
tarih = Format(Now, "dd.mm")
For i = 1 To Sheets("VERİ").Range("AW65536").End(3).Row

If tarih = Format(Cells(i, 49), "dd.mm") Then
say = say + 1
mesaj = "Doğum günü olanlar : " & vbCr
msj = msj & Cells(i, 3) & vbCr
Label1 = "İyiki Doğdun:" & msj
End If
Next i
If say = 0 Then
MsgBox "Bugün Doğum Günü olan öğrenciniz bulunmamaktadır.Ana menüye gitmek istiyor musunuz?"
Else
MsgBox "Bugün doğum günü olan " & say & " öğrenciniz var" & vbCr & mesaj & vbCr & msj
UserForm2.Show
End If
End Sub

Mahmut Bey teşekkürler, ancak formun açılışı ile ilgili bir sorunum yok. Üstteki açıklamamda da belirttiğim gibi, Eğer doğum günü olan çocuk yoksa; doğum günü gelen yoktur (renklendirdiğim mesaj) mesajından sonra gelenuserform2 (bende anaform) üzerinden excele döndüğümde userform1 yani doğum günü kutlama formu açık kalıyor. Sorunum bu...
Yani bu mesajı verdirdikten sonra kodu yazdığımız bu formun ( Userform1) kapanması gerekiyor, ya da hiç açılmaması...

 

[ASMET67]

Ekli dosyayı denermisiniz.

 

[Mahmut Bayram]

Kodlarınızı
UserForm_Initialize
değil de Activate içine alıp bir deneyin.

Private Sub UserForm_Activate()

'...kodlarınız

End Sub

 

[Korhan Ayhan]

Eklediğiniz dosyada Userform2 açılıyor. Bu sebeple sorumu yöneltmiştim. Ama sorumun cevabına ithafen kodları göremedim.

Userform1 formunu açan kodların altına bir kontrol satırı eklenmesi formun açılması engellenebilir.