Kitap içinden bir sayfayı farklı kaydet

[medd]

arkadaşlar merhaba,

konuyla ilgili forumda arama yaptım ancak benzer bir çözüm bulamadım. bulduklarımı da kendime göre uyarlayamadım.

yapmak istediğim tam olarak şu. 4 çalışma sayfası olan bir kitap oluşturdum. üç sayfadaki verilerle 4. sayfada bir teklif oluşuyor. bu 4. sayfaya koyacağım bir butonla sayfadaki formülleri yok edip sadece değerlerini koruyarak, tek sayfa halinde belirli bir klasöre kaydetmek istiyorum.

yardımcı olursanız sevinirim.

 

[veyselemre]

Sub Makro1()
    Sheets("Sayfa4").Copy
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = xlCopy
    [A1].Select
End Sub

Button 1 i silip kayıt için de,

Sub Makro1()
    Sheets("Sayfa4").Copy
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = xlCopy
    [A1].Select
    ActiveSheet.Shapes("Button 1").Cut
    ActiveWorkbook.Close True, "c:\deneme.xls"
End Sub

şeklinde deneyin.

 

[N.Ziya Hiçdurmaz]

yanıt

Aktif sayfada işlem yapar belgelere yeni kitap olarak kaydeder.

Sub test()
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs
    ActiveWorkbook.Close
End Sub

 

[bmutlu966]

arkadaşlar merhaba,

konuyla ilgili forumda arama yaptım ancak benzer bir çözüm bulamadım. bulduklarımı da kendime göre uyarlayamadım.

yapmak istediğim tam olarak şu. 4 çalışma sayfası olan bir kitap oluşturdum. üç sayfadaki verilerle 4. sayfada bir teklif oluşuyor. bu 4. sayfaya koyacağım bir butonla sayfadaki formülleri yok edip sadece değerlerini koruyarak, tek sayfa halinde belirli bir klasöre kaydetmek istiyorum.

yardımcı olursanız sevinirim.

örnek dosyadaki kodları incelersen kendi programına uyarlayabilirsin

 

[medd]

Cevap veren herkese çok teşşekkür ederim. ancak acemi olduğum için istediğim şeyi tam olarak beceremedim bir türlü.
ekteki dosyada giriş sayfasında seçenek seçilip ikinci sayfada veri girişi yapıldıktan sonra üçüncü sayfada teklif oluşuyor(4ADTEKLİF Worksheet i) bu sayfayı ayrı bir kitap olarak D klasörüne D18 hücresindeki değer dosya adı olacak şekilde kaydettirmek istiyorum (tabi formüller kalkıp sadece değerler kalmalı, sayfa yapısı ve formatlar da korunsun istiyorum.). bu arada ana kitapta herhangi bir bozulma olmasın. tekrar açtığımda aynı şekilde kullanabileyim.