Makro İle Sayfa Kopyalamada Kaynak Adres Sorunu

Katılım
30 Nisan 2005
Mesajlar
10
Merhaba Arkadaşlar,
Makro ile yeni bir çalışma kitabı oluşturup, oluşturduğum bu çalışma kitabına eski çalışma kitabımdan "Teklik Hazırla ve Teklif Özet" adında iki sayfa kopyalıyorum. Buraya kadar sıkıntı yok. Eski çalışma kitabımdaki kaynak sayfada formüler olduğu için kopyalama sonrasında formüllü hücre "=Teklif Hazırla'!$H$21" şeklinde görünmesi gerekirken kaynak adresin yer aldığı "='C:\Users\urfrmzn\Desktop\Teklif\[Abonelik Bedeli Hesaplama-V2.xlsm]Teklif Hazırla'!$H$21" şeklinde görünmektedir. Bu sorunu nasıl aşabilecceğim hakkında görüşü olan varmı?

Saygılarımla,

Kod:
'Sayfa Kopyalama ve Kaydetme  İşlemi'

On Error Resume Next
klasor = "C:\Teklif"

Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FolderExists(klasor)
If a = True Then
klasor = "C:\Teklif"
Else
cevap = MsgBox("C Diskinizde Teklif adında Klasör oluşturulacak ve Teklif dosyası Buraya kaydedilecek.", vbYesNo, "Klasör Oluşturma Onayı")
If cevap = vbYes Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.CreateFolder("C:\Teklif")
    End If
End If

dosyaismi = teklifId & "-" & FirmaUnvan

Dim bukitap As Worksheet, okitap As Workbook
Set bukitap = ThisWorkbook.Sheets("Teklif Hazırla")
Set bukitap2 = ThisWorkbook.Sheets("Teklif ÖZET")

    Workbooks.Add
    Set okitap = ActiveWorkbook
    ActiveWorkbook.SaveAs klasor & "\" & dosyaismi & ".xlsx"
    
    With okitap
            bukitap.Copy after:=okitap.Sheets(1)
            bukitap2.Copy after:=okitap.Sheets(1)
            .Save
            .Close
    End With
    
Set bu = Nothing: Set o = Nothing
 
Üst