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,
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