Çözüldü Makro ile başka bir excel açma

[yunusemre16]

Merhaba,
Dosya yolu C:\Users\MelekEdrem\Desktop\KASA(YENİ)\Deneme.xlsx olan bir excelde aşağıdaki konumdaki exceli açmasını sağlayabilecek kod arıyorum. Yardımcı olabilirmisiniz

C:\Users\MelekEdrem\Desktop\EDREMİT\Kasa.xlsx

 

[Muzaffer Ali]

Merhaba.
Hangi dosyadan açıldığı önemli değil.
workbooks.open "C:\Users\MelekEdrem\Desktop\EDREMİT\Kasa.xlsx"

 

[yunusemre16]

Çok teşekkür ederim. Peki bir soru daha sorabilirmiyim. Açtığım Kasa.xlsx dosyasında 01,02,03,04....31 e kadar giden sayfalar var ve Deneme.xlsx excelinin içinde de aynı şekilde 1 den 31 e kadar sayfalar var. Deneme.xlsx excelinde 01 sayfasında makroyu çalıştırıp, Kasa.xlsx excelindeki 01 sayfasını açabilirmiyim. Bu olay 02-02 03-03 olarak da gerekli olacak. Bunun için 31 adet makro mu hazırlamalıyım. Yoksa başka bir yolu var mı acaba

 

[Muzaffer Ali]

Şu kodu kullanın.

Workbooks.Open("C:\Users\MelekEdrem\Desktop\EDREMİT\Kasa.xlsx").Worksheets(ActiveSheet.Name).Activate

Aktif olan sayfa adını açılan dosyada arar ve varsa sayfayı aktif eder yoksa hata verir.

 

[yunusemre16]

Şu kodu kullanın.

Workbooks.Open("\\Server\d\Paylaşım\Sil\deneme.xlsm").Worksheets(ActiveSheet.Name).Activate

Aktif olan sayfa adını açılan dosyada arar ve varsa sayfayı aktif eder yoksa hata verir.

Merhaba, az önceki vermiş olduğunuz workbooks.open "C:\Users\MelekEdrem\Desktop\EDREMİT\Kasa.xlsx" kodunun yanına
.Worksheets(ActiveSheet.Name).Activate
kodunu ekledim ve sorunum çözüldü. Sizlere çok teşekkür ederim. Hızlı bir şekilde yardımcı oldunuz. Tekrardan teşekkürler.

 

[Orion1]

Şunu yazmasanızda dosya açıldığında activesheet zaten seçili olan sayfadır.

.Worksheets(ActiveSheet.Name).Activate