Workbook içindeki sayfalardan sadece birini farklı kaydetme

[ommerk]

Bir çalışma dosyam var
bunun içinde 9 adet farklı sheet var.
farklı kaydeti seçerek sadece seçtiğim iki sheet i kaydeden bir dosya yaratabilirmiyim

 

[İhsan Tank]

evet bu yapılabilir
bu sheetler standart mı standart ise daha kolay olur.
ayrıca bu şekilde ezbere konuşuyoruz bir örnek dosya ekleyin.
ve deyin ki mesela şu yola farklı kaydetsin
örneğin

D:\asi

gibi

 

[ommerk]

örnek bir dosya oluşturdum
bu dosyada
1.ömer
2.excel
3.dosya
adında 3 farklı çalışma sayfası var
bu dosya masaüstünde
ben kaydederken sadece "excel" adındaki çalışma sayfasını masaüstündeki yeni klasörün içinde ayrı bir çalışma kitabı olarak kaydetmek istiyorum
diğer iki çalışma sayfası ("ömer" , "dosya") olmayacak şekilde yani

 

[İhsan Tank]

örnek bir dosya oluşturdum
bu dosyada
1.ömer
2.excel
3.dosya
adında 3 farklı çalışma sayfası var
bu dosya masaüstünde
ben kaydederken sadece "excel" adındaki çalışma sayfasını masaüstündeki yeni klasörün içinde ayrı bir çalışma kitabı olarak kaydetmek istiyorum
diğer iki çalışma sayfası ("ömer" , "dosya") olmayacak şekilde yani

merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub farklı()
Dim ts, kaplan, trabzonspor, bordo_mavi
trabzonspor = MsgBox("Farklı Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Set kaplan = CreateObject("Wscript.Shell")
ts = kaplan.specialfolders.Item("Desktop")
bordo_mavi = InputBox("Kitap Adı Giriniz", "Kitap Adı Girişi")
ActiveWorkbook.SaveAs Filename:=(ts & "\Yeni Klasör\" & bordo_mavi) & ".xls"
Application.DisplayAlerts = False
Sheets("ömer").Delete: Sheets("DOSYA").Delete
ActiveWorkbook.Save
MsgBox "Dosya Kaydedildi", vbInformation, "Bitiş"
End Sub

 

[ommerk]

benim yazmış olduğum dosya isimleri ile farklı bunlar
vermiş olduğum örnek dosyada yapabilirmisiniz?

 

[İhsan Tank]

benim yazmış olduğum dosya isimleri ile farklı bunlar
vermiş olduğum örnek dosyada yapabilirmisiniz?

dosyanızda yazıldı kodlar ve gayet güzel çalışıyor

 

[ommerk]

kusura bakmayın herhalde benim anlamadığım bir yer oldu.
ekli dosyayı tekrar açtım bşr şey göremedim
ya da yazmış olduğunuz kodları çalıştırmam için ne yapmam gerek

 

[İhsan Tank]

kusura bakmayın herhalde benim anlamadığım bir yer oldu.
ekli dosyayı tekrar açtım bşr şey göremedim
ya da yazmış olduğunuz kodları çalıştırmam için ne yapmam gerek

merhaba
bir module oluşturun ve kodu içine kopyalayın demiştim. sanırım module oluşturmayı bilmiyorsunuz tıklayın burada detaylı ve resimli anlatım mevcut
bir butona atayın ve kullanın bunuda bilmiyorsanız tıklayın detaylı ve resimli anlatım mevcut bu verdiğim linkler anlatıyor ne demek istediğimi

 

[ommerk]

sizin yaratmış olduğunu dosya isimleri kaplan trabzonspor ve bordo mavi
onun için çalışmıyor