Soru Belge Adını Değiştirme

[ultraslan38080]

BELGEM.xlsm adında bir excel belgesi var. İçindeki makroların çalışabilmesi için dosya adının BELGEM.xlsm olarak kalması gerekiyor.

Dosyanın adını nasıl değiştirirsem değiştireyim, makroların başına bu dosya adını BELGEM.xlsm olarak uyarı vermeden otomatik değiştirdikten sonra kendi makrolarımı çalıştırmak istiyorum.

Bu mümkün müdür?

 

[Murat OSMA]

Yardımcı olmak isterim ama tam olarak yapılmak isteneni anlamadım açıkçası.

 

[ultraslan38080]

Yardımcı olmak isterim ama tam olarak yapılmak isteneni anlamadım açıkçası.

Makrolu BELGEM.xlsm adında exceli var. İçindeki makroların bazılarının çalışması için belge adının BELGEM.xlsm olarak kalması lazım. Diyelim ki bir kişi bu exceli baska bir klasöre YEDEK.xlsm olarak kopyaladı veya herhangi bir isim farketmez. Baska isimle adlandırıldığı için makrolar çalışmayacaktır. Dosya adını BELGEM.xlsm olarak değiştirmek mümkün müdür? Boyle bir kod var mıdır?

 

[Murat OSMA]

Yani, kişi dosyanın adına ne yazarsa yazsın, kendiliğinden tekrar BELGEM.xlsm olmasını mı istiyorsunuz?

 

[Korhan Ayhan]

Makroların çalışması için neden belge adının sabit kalması gerekiyor? Bu koşulu düzeltirseniz sorun ortadan kalkacaktır.

 

[ultraslan38080]

Yani, kişi dosyanın adına ne yazarsa yazsın, kendiliğinden tekrar BELGEM.xlsm olmasını mı istiyorsunuz?

Aynen öyle.

 

[ultraslan38080]

Makroların çalışması için neden belge adının sabit kalması gerekiyor? Bu koşulu düzeltirseniz sorun ortadan kalkacaktır.

makrolu olmayan 20 adet excel ile bağlantılı çalışıyor. Belge adı değişince, verileri çekemiyor.

 

[Korhan Ayhan]

BELGE adıyla makro ilişkisini gösteren kod bloğunu paylaşır mısınız?

 

[muratboz06]

Farklı bir çözüm yolu denenebilir.
Belgem.xlsm dosyanızın BuÇalışmaKitabı sayfasına aşağıdaki kodu yazınız.
Dosya ismi BELGEM olmadığı zaman sayfalar açılmayacak kullanıcı dosya ismini mecburen BELGEM olarak korumak/değiştirmek zorunda kalacaktır.

Private Sub Workbook_Open()
    If ThisWorkbook.Name <> "BELGEM.xlsm" Then
        MsgBox "Bu dosya üzerinde çalışabilmeniz için dosya ismini BELGEM olarak değiştiriniz."
        ThisWorkbook.Close
    End If
End Sub

 

[ultraslan38080]

BELGE adıyla makro ilişkisini gösteren kod bloğunu paylaşır mısınız?

 Windows("BELGEM.XLSM").Activate
    Range("C2:C501").End(xlDown).Offset(1, 0).Select
    Windows("4.xlsm").Activate
    Range("B10:Z59").Select
    Selection.Copy
    Windows("BELGEM.XLSM").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("4.xlsm").Activate
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy

4.xlsm yazan dosyadan 1 den 20 ye kadar var. sırayla veri çekiyor onlardan

 

[ultraslan38080]

Farklı bir çözüm yolu denenebilir.
Belgem.xlsm dosyanızın BuÇalışmaKitabı sayfasına aşağıdaki kodu yazınız.
Dosya ismi BELGEM olmadığı zaman sayfalar açılmayacak kullanıcı dosya ismini mecburen BELGEM olarak korumak/değiştirmek zorunda kalacaktır.

Private Sub Workbook_Open()
    If ThisWorkbook.Name <> "BELGEM.xlsm" Then
        MsgBox "Bu dosya üzerinde çalışabilmeniz için dosya ismini BELGEM olarak değiştiriniz."
        ThisWorkbook.Close
    End If
End Sub

Teşekkürler çok sağolun.

 

[Korhan Ayhan]

Dim ile dosya ve sayfa isimlerini tanımlarsanız böyle activate ve select kodlarını kullanmanıza gerek kalmaz.

 

[ultraslan38080]

Dim ile dosya ve sayfa isimlerini tanımlarsanız böyle activate ve select kodlarını kullanmanıza gerek kalmaz.

tamam. Çok sağolun