farklı kaydette ismi birden çok hücreden alma

[faruksir]

merhaba,
yazdığım makroda farklı kaydeti aşağıdaki komutla yapıyorum
ActiveWorkbook.SaveAs Filename:="D:\Order\deneme\" & Sayfa1.Range("j3")
Bu kod düzgün çalışıyor ancak, hangi hücreyisecersem seceyim dosya isimlerinin çakışmasını engewlleyemiyorum.

Her dosyanın ismini kendine has yapmak için 2 hatta 3 hücreden alarak dosya ismi oluşturmam gerekiyor bunu nasıl yapabilirim.
teşekkürler
faruk :?

 

[zafer]

merhaba

For Each hucre In Sheets("sayfa1").Range("j3:j5")
ActiveWorkbook.SaveAs Filename:="D:\order\deneme" & hucre
Next


j3:j5 arasında yazdığınız isimlere göre dosyayı saklar

"Bu kod düzgün çalışıyor ancak, hangi hücreyisecersem seceyim dosya isimlerinin çakışmasını engewlleyemiyorum " bunu anlayamadım açıklayabilirmisiniz




saygılarımla

 

[Levent Menteşoğlu]

Sanıyorum iki veya üç hücredeki verileri birleştirerek dosya ismi oluşturmak istiyorsunuz. Bu durumda aşağıdaki gibi deneyin.

ActiveWorkbook.SaveAs Filename:="D:\Order\deneme\" & Sayfa1.Range("j3") & Sayfa1.Range("j4") & Sayfa1.Range("j5")

 

[zafer]

Merhaba

Evet ,ben soruyu tam anlayamamışım

Saygılarımla

 

[faruksir]

sorun çözüldü çok teşekkür ederim. saygılarımla
Faruk