Bir Kez Çalışan Mesaj Kutusu

hakki83

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.

C++:
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

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
Olmuştur Korhan hocam, teşekkürler. Emeklerinize sağlık.
 

hakki83

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Oluşan txt dosyasının içine birşeyler yazmak isterseniz faydalanabilirsiniz.
 

hakki83

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Mevcut koddaki MsgBox ... ile başlayan satırdan önce şu satırı eklemelisiniz.
Dosya.Write "Bu dosyayı silmeyiniz!"
 

hakki83

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
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.
 
Üst