belirlenen hücredeki değere göre belirli sayfayı farklı kaydetme

[inowjoin]

merhabalar
hazırladığım bir dosyada başlıktaki gibi bir işlem yapmaya çalıştım bazı problemler çıktı. forumdan farklı bölümlerden aldığım kodları sanırım birleştirip uyarlıyamadım bu konu ile ilgili yardımcı olabilirmisiniz
dosya ektedir

eklemeyi unutmuşum a4 ile ı54 arasındaki değerleri farklı kaydetmesini istiyorum asıl problemim bu

 

[inowjoin]

olmayacak birşey istedim galiba

olmayacak birşey istedim galiba kimseden cevap yok

 

[N.Ziya Hiçdurmaz]

yanıt

İstediğiniz sayfanın kopyasını yeni bir kitap açıp alır ve belgelerime kaydeder.

Sub test()
Sheets("RAPOR").Select
Cells.Select
Selection.Copy
Workbooks.Add
Sheets("sayfa1").PasteSpecial
Application.CutCopyMode = False
ActiveWorkbook.SaveAs
ActiveWorkbook.Close
Range("a1").Select
End Sub