açılışta mesaj

[Barons]

merhaba
ekteki dosyada açılışta uyarı vermesini istiyorum.yardımcı olursanız çok sevinirim.

 

[Orion1]

Dosyanız ektedir.

Sub auto_Open()
Dim k As Range, sat As Long, deg As String, adr As String
With Sheets("Sayfa1")
    sat = .Cells(65536, "F").End(xlUp).Row
    Set k = .Range("F2:F" & sat).Find("KRITIK SEVIYE", , xlValues, xlWhole)
    If Not k Is Nothing Then
        deg = "Sayın ........ "
        deg = deg & vbLf & "Aşağıdaki Ürünler stokta kritik seviyededir.Lütfen satınalmayı uyarınız." & vbLf
        deg = deg & vbLf & "ÜRÜNLER" & vbTab & vbTab & "KALAN"
        adr = k.Address
        Do
            deg = deg & vbLf & k.Offset(0, -5).Value & vbTab & vbTab & "     " & k.Offset(0, -1).Value
            Set k = Range("F2:F" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
        MsgBox deg

    End If
End With
End Sub

 

[Barons]

Evren hocam eline sağlık...
bir ricam daha var ama...
sayın...diye başlayan satırla alltaki ürünler arasında bir boşluk oluşturmak mümkünmüdür? çok yakın gözüküyor.

Hatta aşağıdaki gibi olursa dahada makbul olur.

Sayın .... (1.satır)
Aşağıdaki.............(2.satır)
Boşluk ..... (3. satır)
Ürünler .............."Kalan" yani E sütunundaki karşılığı.........(4.satır)

çok teşekkürler

 

[Orion1]

Evren hocam eline sağlık...
bir ricam daha var ama...
sayın...diye başlayan satırla alltaki ürünler arasında bir boşluk oluşturmak mümkünmüdür? çok yakın gözüküyor.

Hatta aşağıdaki gibi olursa dahada makbul olur.

Sayın .... (1.satır)
Aşağıdaki.............(2.satır)
Boşluk ..... (3. satır)
Ürünler .............."Kalan" yani E sütunundaki karşılığı.........(4.satır)

çok teşekkürler

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[Barons]

Harika hocam eline sağlık...Rabbimde sizi maddi manevi feraha erdirsin inş.

 

[Orion1]

Harika hocam eline sağlık...Rabbimde sizi maddi manevi feraha erdirsin inş.

Rica ederim.
İyi çalışmalar.