Excel dosyasının adını bır hucreden otomatık alma

[esad45]

Bır excel dosyam da kod var bu koda gore bır dosya olusturuyorum ama her seferınde dosya adı degıstırmek ıstemedıgımden

Sub vcf_dosya_olustur()
yol = ActiveWorkbook.Path & "\"
Sheets("Rehber").Select
Open yol & "rehberiniz.vcf" For Output As #1
ensonsatir = Cells(Rows.Count, "A").End(3).Row
For i = 1 To ensonsatir
Print #1, Cells(i, 1).Value
Next i
Close
End Sub


bu kodda Open yol & "rehberiniz.vcf" For Output As #1 kısmında Rehberımız yazısını excel calısma kıtabında bulunan Liste sayfamdakı g2 hucresınden alması ıcın ne yapabılırım

 

[ÖmerFaruk]

"rehberimiz" ifadesini aşağıdakiyle değiştirin
Sheets("Liste").Range("G2")

 

[esad45]

"rehberimiz" ifadesini aşağıdakiyle değiştirin
Sheets("Liste").Range("G2")

tesekkur ederım cevabınız ıcın ama .vcf nasıl yapabılırız ordakı yazının sonun .vcf yapmamız lazım

 

[usubaykan]

Bır excel dosyam da kod var bu koda gore bır dosya olusturuyorum ama her seferınde dosya adı degıstırmek ıstemedıgımden

Sub vcf_dosya_olustur()
yol = ActiveWorkbook.Path & "\"
Sheets("Rehber").Select

Open yol & Sheets("Liste").Range("G2") & ".vcf" For Output As #1
ensonsatir = Cells(Rows.Count, "A").End(3).Row
For i = 1 To ensonsatir
Print #1, Cells(i, 1).Value
Next i
Close
End Sub


bu kodda Open yol & "rehberiniz.vcf" For Output As #1 kısmında Rehberımız yazısını excel calısma kıtabında bulunan Liste sayfamdakı g2 hucresınden alması ıcın ne yapabılırım

@ÖmerFaruk beyin yazdığı kodu bu şekilde birleştirip deneyin.

 

[esad45]

@ÖmerFaruk beyin yazdığı kodu bu şekilde birleştirip deneyin.

cok tesekkuur ederım ıkınızede