Dosya İsmini Hücreden Alma Sorunu

[legolas18]

Merhabalar. Forumda yeniyim. Konuyu nereye açacağımı bilemedim. Herşeyden önce özür dilerim.
Şimdi benim sorunum şu.

Bir teklif dosyası oluşturuyorum. Teklif dosyama buton ekledim.Bu buton yardımı ile sadece sayfa1'in farklı kaydedilmesini istedim.Ve kaydet ekranı açıldığında dosya isimlerini belirli iki hücreden almasını istedim.karşılaştığım sorunlar ise;

- Hücrede 14-523 gibi bir sayı olduğunda sorun yok ama 14-523.0 olduğunda isim çıkmıyor. Nokta olduğunda bir hata oluyor. Sorun nedir?
-14-523 gibi dosya ismini kaydettiğim de ise exceldeki firma resmi çıkmıyor. Neden

Yardımınızı rica ederim. Konuyu çözemiyorum uykusuz kaldım geceleri. Artık bu konu hakkında düşünmek istemiyorum.

Çok teşekkür ederim.

 

[systran]

dosya uzantılarını kontrol eder misin?

 

[legolas18]

dosya uzantılarını kontrol eder misin?

Dosya uzantısını makro da belirtmiyorum. Farklı kaydet ekranı açıldığında kendisi atıyor ....... .xlsm gibi.

Logo sorununu çözdüm. Fakat hala istediğim gibi bir isim oluşturamadım. tanımlamalarda bir sorun yaşıyor olabilir miyim.Kod şöyle;

Private Sub CommandButton1_Click()

Dim tn As String
Dim pr As String

tn = Sayfa1.Range("ı11").Value & " "
pr = Sayfa1.Range("O2").Text
dosyadi = tn + pr


Application.Dialogs(xlDialogSaveAs).Show [dosyadi], 52

End Sub

 

[systran]

son gönderdiğin gayet düzgün çalışıyor. arada tire falan yok
İLAVE: Buraya dikkat et

tn = Sayfa1.Range("ı11")[COLOR="red"][B].Value [/B][/COLOR]& " "
pr = Sayfa1.Range("O2")[COLOR="Red"][B].Text[/B][/COLOR]

 

[legolas18]

son gönderdiğin gayet düzgün çalışıyor. arada tire falan yok

I11 hücresinde 14-465-0 olduğunda sorun yok ama 14-465.0 olduğunda çıkmıyor isim.

 

[systran]

bu şekilde çalıştı.

tn = Sayfa1.Range("A1").Text & " "
pr = Sayfa1.Range("A2").Text
dosyadi = tn [COLOR="Red"][B]&[/B][/COLOR] pr & ".xlsm"

 

[legolas18]

bu şekilde çalıştı.

tn = Sayfa1.Range("A1").Text & " "
pr = Sayfa1.Range("A2").Text
dosyadi = tn [COLOR="Red"][B]&[/B][/COLOR] pr & ".xlsm"

Ohhh beee.. Vallahi rüyalarıma giriyordu. Çok teşekkür ederim.