Eğer başka excel açık değilse uyarı mesajı

[endexci]

Merhaba saygideger arkadaslar

Excel sayfamda (converter.xlsx) çalışma kitabina makro kayit ettim baska bir excel sayfasi acikken (veri.xls) ordan veri kopyaliyor ve comverter calisma kitabinda sayfa1 yapistiriyor benim istedim egerli bir kod yazmak ama başaramadım Veri calisma kitabi acik olmadigi zaman uyari mesaj vermesini istiyorum aksi halde kod sayfasi hata veriyor yardimci olabilirmisiniz arkadaslar

 

[alicimri]

Kodlarınızın başına aşağıdaki kodu yapıştırırsanız. İşinizi görür herhalde.

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
MsgBox "Veri.xls dosyası açılmamış."
Exit Sub
End If

 

[alicimri]

Yada uyarı Vermeyip dosyayı açabilir. Dosya yolunu siz ayarlayın.

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
Workbooks.Open (Dosyayolu & "/veri.xls")
End If

 

[endexci]

Yada uyarı Vermeyip dosyayı açabilir. Dosya yolunu siz ayarlayın.

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
Workbooks.Open (Dosyayolu & "/veri.xls")
End If

Sayın alicimri bey çok teşekkür ederim kodların ikiside işe yaradı emeğine sağlık

 

[endexci]

Yada uyarı Vermeyip dosyayı açabilir. Dosya yolunu siz ayarlayın.

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
Workbooks.Open (Dosyayolu & "/veri.xls")
End If

Merhaba arkadaşlar

1 numaralı mesajda belirtiğim gibi makro ile kapalı dosyadan veri alıyorum sayın Alicimri beyin 3 numaralı mesajında bulduğu çözüm ile sorunumu çözdüm fakat exceli başka bir bilgisayarda çalıştırdığım zaman dosya yolu hatası veriyor ben dosya yolunu kendi bilgisayar kullanıcıma göre ayarladım bende sorunsuz çalışıyor ama farklı bir kullanıcı ile giriş yapıldığında hata veriyor bu durumu nasıl çözerim desteklerinizi bekliyorum teşekkür ederim

 

[endexci]

Merhaba arkadaşlar

1 numaralı mesajda belirtiğim gibi makro ile kapalı dosyadan veri alıyorum sayın Alicimri beyin 3 numaralı mesajında bulduğu çözüm ile sorunumu çözdüm fakat exceli başka bir bilgisayarda çalıştırdığım zaman dosya yolu hatası veriyor ben dosya yolunu kendi bilgisayar kullanıcıma göre ayarladım bende sorunsuz çalışıyor ama farklı bir kullanıcı ile giriş yapıldığında hata veriyor bu durumu nasıl çözerim desteklerinizi bekliyorum teşekkür ederim

Merhaba arkadaslar konuyla ilgili yardimci olabilecek arkadaslarin desteklerini bekliyorum tesekkurler

 

[alicimri]

Workbooks.Open (Dosyayolu & "/veri.xls")

satırını
Kullandığınız dosyaları her hangi bir yerde aynı klasöre koyarsanız.

Workbooks.Open (ThisWorkbook.Path & "/veri.xls")

veya Exceli kopyaladığınız PC de D sürücüsü varsa veri aldığınız dosyayı D'de açığa yapıştırırsanız.

Workbooks.Open (D:/veri.xls")

kodu ile değiştirin.

 

[endexci]

Workbooks.Open (Dosyayolu & "/veri.xls")

satırını
Kullandığınız dosyaları her hangi bir yerde aynı klasöre koyarsanız.

Workbooks.Open (ThisWorkbook.Path & "/veri.xls")

veya Exceli kopyaladığınız PC de D sürücüsü varsa veri aldığınız dosyayı D'de açığa yapıştırırsanız.

Workbooks.Open (D:/veri.xls")

kodu ile değiştirin.

Teşekkür ederim Alicimri bey 3 numaralı mesajında ki çözümünüze göre uyarlayarak yaptim masaüstünde veri dosyası baska kullanıcı ile aciliyor fakat masaüstünde veri dosyasi yok ise hata veriyor yani en son bulduğunuz aşağıdaki çözüme göre ek olarak mesaj olayini nasil eklerim ilgili dosya yok ise mesaj versin hata ekrani cikmasin istiyorum yardımcı olabilir misiniz

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
Workbooks.Open (ThisWorkbook.Path & "/veri.xls")
End If

 

[endexci]

Workbooks.Open (Dosyayolu & "/veri.xls")

satırını
Kullandığınız dosyaları her hangi bir yerde aynı klasöre koyarsanız.

Workbooks.Open (ThisWorkbook.Path & "/veri.xls")

veya Exceli kopyaladığınız PC de D sürücüsü varsa veri aldığınız dosyayı D'de açığa yapıştırırsanız.

Workbooks.Open (D:/veri.xls")

kodu ile değiştirin.

Teşekkür ederim Alicimri bey 3 numaralı mesajında ki çözümünüze göre uyarlayarak yaptim masaüstünde veri dosyası baska kullanıcı ile aciliyor fakat masaüstünde veri dosyasi yok ise hata veriyor yani en son bulduğunuz aşağıdaki çözüme göre ek olarak mesaj olayini nasil eklerim ilgili dosya yok ise mesaj versin hata ekrani cikmasin istiyorum yardımcı olabilir misiniz

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
Workbooks.Open (ThisWorkbook.Path & "/veri.xls")
End If

 

[alicimri]

Say = Workbooks.Count
For i = 1 To Say
If Workbooks(i).Name = "veri.xls" Then
a = True
End If
Next
If a <> True Then
Workbooks.Open (ThisWorkbook.Path & "/veri.xls")
else
MsgBox "Dosya Bulunamadı"
End If