Bir Kez Çalışan Mesaj Kutusu

[hakki83]

Merhaba

Fikir vermesi açısından bir örnek dosya ekledim. Dosyalarımı gönderdiğim yerlerde, msgbox ile açıklayıcı bilgi yazıyorum. Sayfaya girince msgbox 1 kez çalışıyor. Ama dosya kapanıp açılınca tekrar çalışıyor doğal olarak.

Fakat benim istediğim 1 kez çalıştıktan sonra, dosya kapanıp açılsa bile msgbox'ın bir daha çalışmaması.

Örnekteki kodu tarif ettiğim gibi değiştirebilir miyiz?

 

[dEdE]

Sayfada uygun bulacağınız bir hücreye bir değer girip MsgbBox görüntülendikten sonra silinebilir. Ben A1 'i tercih ettim. A1'e 1 yazıp dener misiniz?

Private Sub Worksheet_Activate()
    If [A1] = 1 Then MsgBox "Bu dosya şu işe yarar, şunlar şunlar yapılmalıdır"
    [A1] = ""
End Sub

 

[hakki83]

Dede hocam o zaman şöyle değiştirebilir miyiz?

A1’e 1 girerek değil de,
sayfa aktif olduktan sonra;
hücrelere herhangi bir veri girildiğinde (ya da herhangi bir hücre seçildiğinde) msgbox 1 kere çalışsın. Sonraki açılmalarda çalışmasın.

 

[dEdE]

Merhaba,
Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Activate()
    Call Test
End Sub

Aşağıdakileri de bir modüle yapıştırınız. Bu kodlar modülün en üstünde olmalıdır. Modül adını kendinize göre değiştirebilirsiniz. Kodlar, kod satırını sildiği için önce örnek dosya üzerinde deneme yapmanızı öneririm.

Sub Test()
    MsgBox "Bu dosya şu işe yarar, şunlar şunlar yapılmalıdır"
    ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.DeleteLines 2
End Sub

 

[Korhan Ayhan]

Alternatif..

Dosyanızın bulunduğu klasöre "Kontrol.txt" adından bir dosya oluşturur ve MsgBox bir kez çalışır. "Kontrol.txt" dosyası silinirse MsgBox yeniden çalışır.

Private Sub Workbook_Open()
    If VBA.Dir(ThisWorkbook.Path & "\Kontrol.txt") = "" Then
        Set Dosya = VBA.CreateObject("Scripting.FileSystemObject").CreateTextFile(ThisWorkbook.Path & "\Kontrol.txt", True, False)
        MsgBox "Bu dosya ile aşağıdaki işlemleri yapabilirsiniz..." & vbCrLf & vbCrLf & _
              "1- Birinci işlem..." & vbCrLf & _
              "2- İkinci işlem..." & vbCrLf & _
              "3- Üçüncü işlem..." & vbCrLf & _
              "4- Dördüncü işlem..." & vbCrLf & _
              "5- Beşinci işlem..." & vbCrLf, vbInformation
    End If
End Sub

 

[hakki83]

Merhaba,
Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Activate()
    Call Test
End Sub

Aşağıdakileri de bir modüle yapıştırınız. Bu kodlar modülün en üstünde olmalıdır. Modül adını kendinize göre değiştirebilirsiniz. Kodlar, kod satırını sildiği için önce örnek dosya üzerinde deneme yapmanızı öneririm.

Sub Test()
    MsgBox "Bu dosya şu işe yarar, şunlar şunlar yapılmalıdır"
    ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.DeleteLines 2
End Sub

Dede hocam çok güzel olmuş. Emeğinize bilginize sağlık.

 

[hakki83]

Alternatif..

Dosyanızın bulunduğu klasöre "Kontrol.txt" adından bir dosya oluşturur ve MsgBox bir kez çalışır. "Kontrol.txt" dosyası silinirse MsgBox yeniden çalışır.

Private Sub Workbook_Open()
    If VBA.Dir(ThisWorkbook.Path & "\Kontrol.txt") = "" Then
        Set Dosya = VBA.CreateObject("Scripting.FileSystemObject").CreateTextFile(ThisWorkbook.Path & "\Kontrol.txt", True, False)
        MsgBox "Bu dosya ile aşağıdaki işlemleri yapabilirsiniz..." & vbCrLf & vbCrLf & _
              "1- Birinci işlem..." & vbCrLf & _
              "2- İkinci işlem..." & vbCrLf & _
              "3- Üçüncü işlem..." & vbCrLf & _
              "4- Dördüncü işlem..." & vbCrLf & _
              "5- Beşinci işlem..." & vbCrLf, vbInformation
    End If
End Sub

Korhan hocam hemen deniyorum.

 

[hakki83]

Alternatif..

Dosyanızın bulunduğu klasöre "Kontrol.txt" adından bir dosya oluşturur ve MsgBox bir kez çalışır. "Kontrol.txt" dosyası silinirse MsgBox yeniden çalışır.

Private Sub Workbook_Open()
    If VBA.Dir(ThisWorkbook.Path & "\Kontrol.txt") = "" Then
        Set Dosya = VBA.CreateObject("Scripting.FileSystemObject").CreateTextFile(ThisWorkbook.Path & "\Kontrol.txt", True, False)
        MsgBox "Bu dosya ile aşağıdaki işlemleri yapabilirsiniz..." & vbCrLf & vbCrLf & _
              "1- Birinci işlem..." & vbCrLf & _
              "2- İkinci işlem..." & vbCrLf & _
              "3- Üçüncü işlem..." & vbCrLf & _
              "4- Dördüncü işlem..." & vbCrLf & _
              "5- Beşinci işlem..." & vbCrLf, vbInformation
    End If
End Sub

Korhan hocam emeğinize sağlık, şahane olmuş.
Sadece kontrol.txt’yi hidden yapabilir miyiz

 

[Korhan Ayhan]

Hidden yerine kullanıcının göremeyeceği bir klasaörde oluşturabilirsiniz.

 

[hakki83]

Hidden yerine kullanıcının göremeyeceği bir klasaörde oluşturabilirsiniz.

Olabilir hocam, öyle de olabilir, sanıyorum bir deneyeyim. Yapamazsam hemen bilgi vereceğim.

 

[hakki83]

Korhan hocam birkaç türlü denedim olmadı maalesef,

If VBA.Dir("C:\Deneme\Kontrol.txt") = "" Then
olmadı

If VBA.Dir("C:\Deneme" & "\Kontrol.txt") = "" Then
olmadı

If VBA.Dir("C:\Deneme & \Kontrol.txt") = "" Then
olmadı

Yapamadım,
Doğrusu nasıldır Korhan hocam?

 

[Korhan Ayhan]

"C" sürücüsü altında "Deneme" isimli klasörünüz var mı?

Yoksa çalışmaması normaldir.

 

[hakki83]

"C" sürücüsü altında "Deneme" isimli klasörünüz var mı?

Yoksa çalışmaması normaldir.

Yok hocam, kendiliğinden oluşması gerekmiyor mu?

Şöyle izah edeyim. Birçok yere makrolu dosyalar gönderiyorum ve bu dosyaların özelliklerini msgbox ile yazıyorum.

Tabi her açılışta aynı mesajın çıkması gereksiz olacağından, bu konuyu açmıştım.

Yani, dosyalarım, başkalarının bilgisayarılarında çalışacak.
Dolayısıyla her şeyin otomatik, kodlarla yapılması gerekiyıor.

Hidden Kontrol.txt de olur
Belirtilen adresteki bir klasörün içine oluşturarak da olur, ikisi de olur.
Ama otomatik olmak zorunda hocam.

 

[Korhan Ayhan]

Durumu zaten ilk mesajınızda açıklmıştınız. İkinci açıklamanız gereksiz olmuş.

Siz excele bir komut göndemezseniz beklediğiniz işlemi yapmyacaktır. Önerdiğim kod bloğunda C sürücüsünde Deneme isimli klasör oluştur komutu olmadığı için bu beklentiniz anlamsız olacaktır. Bu komutu eklerseniz ve önerdiğim kodu bu bağlamda düzenlerseniz sonuç istediğiniz gibi olacaktır.

 

[hakki83]

C sürücüsünde Deneme isimli klasör oluştur komutu

Nasıl yazılıyor?

 

[Korhan Ayhan]

Forumda MkDir komutunu araştırabilirsiniz..

 

[hakki83]

Forumda MkDir komutunu araştırabilirsiniz..

Anlaşılmıştır hocam, sağ olunuz. Yapamama durumunda, yardımınızı isteyeceğim.

 

[hakki83]

Forumda MkDir komutunu araştırabilirsiniz..

Korhan hocam
MkDir "C:\deneme"
yazınca oluşuyor.
Fakat aynı dosyayı tekrar açınca, orada klasör var olduğu için hata veriyor.

 

[Korhan Ayhan]

Merhaba,

Yine arama yaparak sonuc gidebilirsiniz. (Not: Öğrenmek için biraz çaba sarfetmelisiniz.)

MkDir+Error yazarak nette arama yaparsanız sonuca ulaşabilirsiniz.

 

[hakki83]

Hemen arama yapıyorum hocam.