Uyarı mesajı

[imrecep]

Merhaba arkadaşlar,

Bir excel sayfasında bazı planlanan işler mevcut.Ve ben her bu excel dosyasını açtığımda bana planlanan süreyi geçen bilgileri, vermesini istiyorum
Ayrıntıları ekteki dosyada açıkladım.
Teşekürler şimdiden ilginiz için,
Saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkBook'un (BuÇalışmaKitabı) kod sayfasına kopyalayıp deneyiniz.
Dosya her açılışta kontrol yapacak ve sizi uyaracaktır.

Private Sub Workbook_Open()
    
    Dim Mesaj   As Variant
    Dim i       As Long
    Dim s1      As Worksheet
    Set s1 = Sheets("Sayfa1")
    
    For i = 2 To s1.Cells(Rows.Count, "A").End(3).Row
        If s1.Cells(i, "B") < 3 Then
            Mesaj = Mesaj & Chr(10) & _
                    s1.Cells(i, "C") & " - " & _
                    s1.Cells(i, "D") & " - " & _
                    s1.Cells(i, "E") & " - " & _
                    s1.Cells(i, "F") & " - " & _
                    s1.Cells(i, "G") & " - " & _
                    s1.Cells(i, "H")
        End If
    Next i
    
    If Len(Mesaj) = 0 Then
        MsgBox "Dikkate Değer Bir Şey Yok, Çalışmaya DEVAMMMM..."
    Else
        MsgBox Mesaj
    End If
    
End Sub

 

[imrecep]

MERHABA,

denileni yaptım fakat excel i açtığımda otomatik olmuyor...

Visual basic den her defasında ''declarations'' ı ''workbook open'' a getirince ,play butonu ile uyarı ekranı çıkıyor.bunları yapmadan otomatik olmasını sağlayamazmıyız?
ayrıca uyarı ekranını nasıl design edebilirim?

 

[BAZGİRET]

merhaba,

denileni yaptım fakat excel i açtığımda otomatik olmuyor...

Visual basic den her defasında ''declarations'' ı ''workbook open'' a getirince ,play butonu ile uyarı ekranı çıkıyor.bunları yapmadan otomatik olmasını sağlayamazmıyız?
Ayrıca uyarı ekranını nasıl design edebilirim?

sayın yeşertener'in çalışmasına bir modül ekleyerek yapılabilir.
Eki inceleyin.

 

[imrecep]

merhaba,
problemi düğme ile çözmüşsünüz,teşekür ederim.fakat benim ihtiyacım olan bu değil.
Excel dosyasını açtığım zaman otomatik olarak uyarı ekranı gelmeli.
Daha önce 2010 yılı sanırım bu sitede bunun benzeri bir çalışma incelemiştim.ama şimdi yapamadım!..

 

[BAZGİRET]

merhaba,
problemi düğme ile çözmüşsünüz,teşekür ederim.fakat benim ihtiyacım olan bu değil.
Excel dosyasını açtığım zaman otomatik olarak uyarı ekranı gelmeli.
Daha önce 2010 yılı sanırım bu sitede bunun benzeri bir çalışma incelemiştim.ama şimdi yapamadım!..

benim eklediğim modül1'in içine "outo open" kodu girerek yapabilirsiniz.

 

[imrecep]

merhaba herbirinize çok teşekür ederim.İşimi çok kolaylaştırdı bu excel dosyası.

Peki UYARI EKRANINI nasıl kendime göre ayarlayabilirim.Üst bölümde Sıra no,Yapılacak Tarih,Alan,Konu gibi bilgileri sabitlemek ve bu ekranın boyutlarını nasıl değiştirebilirim?