Dosyayı değer olarak kaydetme

[Huseyinkis]

merhaba yine ben


sizden bir çalışma kitabındaki verileri yeni bir dosyaya değer olarak kopyalayarak dosyayı a1 hücresinde yazan değerle belirticeğim yere kopyalamak


Ã?rnek
Kitap1: a1= 0001

A4:b15 Copyalanaka kısım



Kitap2:

a4:b15 değer olarak kopyalanıp kitap1: a1=0001 hücresinde yazan 0001
adı ile belgelerimin içine kaydedip kaydedilen dosyanın kapatılarak tekrar kitap1 e geri dönmek...



Bu nasıl yapılabilir..

:dua:

 

[veyselemre]

Sub Makro1()
dosyaad = [a1]
Range("A4:B15").Select
Selection.Copy
Workbooks.Add
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=dosyaad
ActiveWorkbook.Close
End Sub

 

[Huseyinkis]

Sayın veyselemre


Çok teşekkür ederim tam istediğim makro..