Makronun, "Farklı kaydet"te dosya adını ve seçilecek klasörü bulması

[imranoz]

Merhabalar,

Makronun, elimdeki dosyayı değişken bir ad ile ilgili klasöre kaydetmesini istiyorum.Değişkenler ise mevcut dosyanın içinde mevcuttur.

Örneğin; "deneme.xls" dosyası "Sayfa1" deki hücre değerleri aşağıdaki gibi olsun:
A1 = 1
B1 = 2
C1 = 3

Makro, "deneme.xls" dosyasını dosyanın "Sayfa1" de A1, B1 ve C1 hücrelerindeki değerleri kullanarak "deneme_1_2_3.xls" adıyla "C:\3\2\1" klasörünün içine farklı kaydedecek. Söz konusu klasör mevcuttur.Yeni klasör açmaya gerek yoktur.

Hücrelerdeki değerler sabit olmadığı için değişken kullanmak gerekiyor ama yapamadım.


Yardımcı olabilirseniz memnun olurum.
Herkese iyi çalışmalar diliyorum.

 

[imranoz]

Dün sormuş olduğum sorunun çözümünü buldum. Daha doğrusu kod yazımında hata yapmışım. "String" ile sorun çözülebiliyor.

Başkalarının da işine yarayabilir düşüncesiyle kodları aşağıya yazıyorum.

Dim X, X1 As String
X = Range("A1")
Dim Y, Y1 As String
Y = Range("B1")
Dim Z, Z1 As String
Z = Range("C1")

ActiveWorkbook.SaveAs Filename:= "C:\" & Z & "\" & Y & "\" & X & "deneme_" & X & "_" & Y & "_" & Z & ".xls"