MsgBox ta dosya uzantısının yazdırılmaması

  • Konuyu başlatan Konuyu başlatan ErolU
  • Başlangıç tarihi Başlangıç tarihi

ErolU

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
300
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Arkadaşlar,

MsgBox ActiveWorkbook.Name & " adlı dosya kaydedilecek.", vbInformation, "BİLGİ"

1. Yukarıdaki MsgBox dosya adını yazarken uzantısı ile beraber yazıyor. Uzantı yazılmadan sadece dosya adını yazacak şekilde bu MsgBox'ı nasıl düzenlemeliyim.
.xlsx / .xls gibi 3 ve 4 karakterli uzantıları destekleyecek biçimde olmalı.

2. ActiveWorkbook.Name ve ThisWorkbook.Name kullanımlarından hangisi yukarıdaki MsgBox'ta kullanılmalı. Aralarında fark var mı?
 
VBA ile Kaydedip Çıkış Nasıl Yapılır
Açılış sayfası boş satırları gizleme ekmakro
Tarihe göre sırala Oylamaya göre sırala
Konuya çözüm işaretledim ama asıl dosyamda kodların ikisi de hata verdi.
Asıl kodu aşağıya ekledim.
Tekrar yardımlarınızı rica ederim.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)
 
Oyla 0 Olumsuz oyla
GoTo 2 'nin üstündeki END IF fazla gibi.

Amacınızı yazmış değilsiniz.
Amacınız, yedekleme için kullanıcınını onayını mı almak?
Yani yedeklensin mi gibi bir soru sordurup cevaba göre işlem mi yaptırmak?

Ayrıca Sayın @Korhan AYHAN ve benim verdiğim cevap ile verdiğiniz bu kod arasındaki ilişkiyi de anlayamadım.

Not: Zaten mevcut kodda dosyanın uzantısı olmadan ADInı alabileceğiniz bir alternatif daha var.
O da şöyle: MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
 
Oyla 0 Olumsuz oyla
MsgBox'lar dosyanın yedeklenmek istenip istenmediğini soruyor. Evet ise yedek alıyor.
Koddaki iki çizgi arasındaki 3 alternatif de Expected: Then or GoTo hatası veriyor.
Amacım bu 3 alternatiften birini kullanmak. Hat verdikleri için kullanamıyorum.

İki çizgi arasına aldığım satırların başındaki tek tırnak kaldırıldığında satırda hata olduğu gözüküyor.

Ömer BARAN' Alıntı:
Ayrıca Sayın @Korhan AYHAN ve benim verdiğim cevap ile verdiğiniz bu kod arasındaki ilişkiyi de anlayamadım.
Genişletmek için tıklayın ...

Verdiğim koda ekleyecektim önerilerinizi.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt