Bir Kez Çalışan Mesaj Kutusu

[hakki83]

Korhan hocam arama yaparak sonuca ulaşamadım çünkü kodlar çok karışık.

Fakat tahmini olarak
MkDir "C:\deneme"
Satırının üzerine
On Error Resume Next ilave ettim.

Oldu sanki. Ama bilmiyorum doğrusu böyle midir.

 

[Korhan Ayhan]

On Error Resume Next komutunu kontrollü kullanmak gerekir. Bu komut satırını yazınca hata kontrolünü tekrar eski durumuna almak için On Error GoTo 0 kullanmak daha doğru olacaktır.

Altenatif olarak aşağıdaki gibi kullanabilirsiniz.

Private Sub Workbook_Open()
    If Dir("C:\Deneme", vbDirectory) = "" Then MkDir "C:\Deneme"
    If VBA.Dir("C:\Deneme\Kontrol.txt") = "" Then
        Set Dosya = VBA.CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Deneme\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]

Olmuştur Korhan hocam, teşekkürler. Emeklerinize sağlık.

 

[hakki83]

, True, False)

Korhan hocam merhaba
Öğrenmek için
Mesela genelde sadece birisi kullanılıyor ya,
Dikkatimi çekti, aynı satırda hem True hem False var. İkisinin aynı yerde olmasının sebebi nedir hocam?

 

[Korhan Ayhan]

Oluşan txt dosyasının içine birşeyler yazmak isterseniz faydalanabilirsiniz.

 

[hakki83]

Oluşan txt dosyasının içine birşeyler yazmak isterseniz faydalanabilirsiniz.

Çok iyi olur hocam. Eğer size zahmet olmayacaksa, kodlara “bu dosyayı silmeyiniz” yazısını txt’nin içine yazdıracak şekilde ilave eder misiniz? Teşekkürler.

(Ben de böyle bir şey yapabilsek ne iyi olur diye düşünüyordum, tam denk gelmiş oldu)

 

[dEdE]

Mevcut koddaki MsgBox ... ile başlayan satırdan önce şu satırı eklemelisiniz.
Dosya.Write "Bu dosyayı silmeyiniz!"

 

[hakki83]

Mevcut koddaki MsgBox ... ile başlayan satırdan önce şu satırı eklemelisiniz.
Dosya.Write "Bu dosyayı silmeyiniz!"

Sağ olunuz hocam. Bilgiaayara geçince hemen deneyeceğim.