If Sheets("Sayfa1").Range("A1") <> "" Then
b = Sheets("Sayfa1").Range("A1").Value
Application.OnTime TimeValue([A1].Text), "Makro1"
End If
Bu kodlarla A1 hücresindeki zaman geldiğinde (excel de çalıştığım zaman) userform çıkıyor. Ancak farklı bir windows uygulamasında çalışırken ekranın altında yanıp sönüyor.
Tüm pencerelerin üstünde görüntülenmesini nasıl sağlarım?
Formun ShowModal özelliği = False.
b = Sheets("Sayfa1").Range("A1").Value
Application.OnTime TimeValue([A1].Text), "Makro1"
End If
Bu kodlarla A1 hücresindeki zaman geldiğinde (excel de çalıştığım zaman) userform çıkıyor. Ancak farklı bir windows uygulamasında çalışırken ekranın altında yanıp sönüyor.
Tüm pencerelerin üstünde görüntülenmesini nasıl sağlarım?
Formun ShowModal özelliği = False.