Soru kaydedilecek dosyanın adını hücreden değişken olarak almak

[seckinb]

Merhaba,

değişkenim 2 olduğunda F2 hücresindeki adlandırmayı saveas özelliği ile dosyanın adına verip kapatmasını istiyorum
F & var olarak değişkeni tanımladım.
bunu string haline getirdim.
filename:= 'e yazdım. lakin bir türlü sonuç alamıyorum. saveas de takılıyorum.

Sub yeni()

fname1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xlsm", , "yeni - hedef dosyayı seçelim")
If fname1 = "False" Then Exit Sub

Dim VAR As Double
Dim sayi As String
Dim liste As Workbook
Dim hiper As Worksheet
Dim i As Byte
Dim wbstring As String
Dim FC As String


Set w3 = Workbooks.Open(fname1)
spath = ThisWorkbook.Path

sayi = "2"
ac = "a" & sayi
bc = "b" & sayi
cc = "c" & sayi

FC = "f" & sayi
wbstring = Range(FC).Text


'adı
Windows("hiper.xlsx").Activate
Worksheets("hiper").Select
Range(bc).Select
Selection.Copy
w3.Activate
Worksheets("Kimlik").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False


w3.Worksheets("Formlar").Select
w3.SaveAs filename:=wbstring
w3.Close 0


End Sub

 

[EmrExcel16]

Merhaba , açtığınız dosyanın F2 hücresinde dosya yolu mevcut değilse doğru çalışmayabilir.

 

[seckinb]

Kaynak hücrelerin tamamında f2 dolu ve vermek istediğim isim mevcut

 

[seckinb]

Kaynaktaki f2 hücresi deki değeri dosya ismi olarak ayarlayamadım. Geçici olarak dosya adını i değişkeni yaptım.

 

[seckinb]

Şu şekilde çalıştı.

CELL şeklinde tanımlamam gerekiyormuş, range bu işi görmüyormuş.


Dim path As String
Dim fn1 As String

fn1 = hiper.Cells(i, 6).Value

path = "D:\EDU\HIPER\000_Sablon\"
w3.Worksheets("Formlar").Select
Application.DisplayAlerts = False
w3.SaveAs filename:=fn1 & ".xlsm"
Application.DisplayAlerts = True
'w3.SaveAs filename:=j