sayfayı yeni belgede kaydetmek?

[energy34]

Arkadaşlar ekteki dosyayı ben hergün tekrardan hazırlıyorum ve belgenin içindeki her sayfayı farklı kişilere mail atmam gerekiyor her gün,
yapmak istediğim;
ekteki belge içersindeki her sayfayı bir butona basarak yeni belgeye kaydetmek istiyorum(kaydederken belge ismi ne olsun diye sorabilir yada sayfanın ismini yeni belge ismine verebilir farketmez)
yardımcı olursanız sevinirm.

 

[Ömer]

Merhaba,

Sub Kaydet()
    Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
    Application.PathSeparator & ActiveSheet.Name & ".xls"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=Ad
    ActiveWorkbook.Close
End Sub

Bu şekilde deneyin. 2007 yüklü olmadığı için deneyemedim. Kodlar Sayın veyselemre'nin çalışmasından alıntıdır.

 

[energy34]

teşekkür ederim Ömer
tam istediğim buydu ama bunu yapınca bir soru aklıma geldi
burdaki kayıt folder yerindeki desktop alanına bilgisayardaki herhangi bir adresi yazıyorum kaydetmiyor nedendir sizce?
yani
yukarıdaki kodda

Ad = CreateObject("wscript.Shell").SpecialFolders.Item("C:\Documents and Settings\Administrator\Belgelerim\personeltakip") & _

satırını bu şekilde değiştiriyorum ama belgelerimin altındaki personel takip klasörüne kaydetmiyor
hata ise konumda dosya var diyor o klasörde o dosya olmamasına rağmen

soru 2:
bu şekilde sayfayı başka belgeye attığımda sayfadaki buton da yeni belgeye aktarılıyor çalışmıyor ama görüntü olarak orada var
bunun olmaması için ne yapmam gerekiyor
yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Kaydet()
    Ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & _
    "\personeltakip" & Application.PathSeparator & ActiveSheet.Name & ".xls"
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each myshape In ActiveSheet.Shapes
            myshape.Delete
        Next myshape
        .SaveAs Filename:=Ad
        .Close
    End With
End Sub

.

 

[MURATYALCIN1978]

Öncelikle kolay gelsin
Yapmış olduğunuz kodlamayı inceledim ve benim de ihtiyacım olan bir kodlama yalnız farklı kaydet olarak yaptığımda isim vermemiyor ve kendisi otomatik olarak boş diye bir isim veriyor. Kendim farklı kaytet dediğimde nasıl isim verebilirim. Yardımlarınız için teşekkürler

İyi çalışmalar

 

[Ömer]

Merhaba,

Yukarıdaki kod çalışmadaki sayfa ismi ne ise dosyayı o isimde kaydeder. Sizin sorunuzu anlayamadım daha detaylı açıklayınız. İsim sabitmi olacak yoksa değişken olacak ve her seferinde sizmi belirleyeceksiniz. Yada ismi herhangi bir hücreden mi alacak.

.

 

[energy34]

ömer hocam çok teşekkür ederim

 

[energy34]

hocam bişi daha sorayım yüzü bulup astarına kaldı tarzında
bir butona basarak sayfayı kaydettik istediğimiz şekilde çok saolun
bir butona basarak sayfayı kaydetmek yerine belirlediğimiz bir adrese mail gönderebilirmiyiz?

 

[Ömer]

hocam bişi daha sorayım yüzü bulup astarına kaldı tarzında
bir butona basarak sayfayı kaydettik istediğimiz şekilde çok saolun
bir butona basarak sayfayı kaydetmek yerine belirlediğimiz bir adrese mail gönderebilirmiyiz?

Linki inceleyin.

http://www.excel.web.tr/showthread.php?t=75068&highlight=mail+g%F6nderme

.

 

[MURATYALCIN1978]

Ömer bey
İsim değişken olacak ve benim yapmış olduğum shetlerde dat1 ve data 2 diye ayrı bir sayfa var. Bu sayfalarıda kaydetmesini istiyorum. çünkü diğer sayfalardan da veri alıyor. diğer sayfaları da kaydetmesi için kodda nasıl bir değişiklik yapmalıyım.
Yardım ederseniz sevinirim.

iyi çalışmalar,

 

[Ömer]

Merhaba,

Çalışma kitabının tamamınımı kaydetmek istiyorsunuz.

.

 

[energy34]

Ömer hocam aktarılan belgelerin ismini o günün tarihini otomatik yazdırmamız mümkün?
yani belge ismi sheet ismiydi o gunun tarihi olsun yani ornegin 07012010.xls gibi bir dosya oluşsun
iyi çalışmalar

 

[Ömer]

Ömer hocam aktarılan belgelerin ismini o günün tarihini otomatik yazdırmamız mümkün?
yani belge ismi sheet ismiydi o gunun tarihi olsun yani ornegin 07012010.xls gibi bir dosya oluşsun
iyi çalışmalar

Sub Kaydet()
    Ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & _
    "\personeltakip" & Application.PathSeparator & [COLOR=red][B]Date[/B][/COLOR] & ".xls"
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each myshape In ActiveSheet.Shapes
            myshape.Delete
        Next myshape
        .SaveAs Filename:=Ad
        .Close
    End With
End Sub

Bu şekilde deneyin.

Eğer tarihin 07.01.2010 olarak değilde 07012010 olarak görünmesini isterseniz kırmızı işaretli Date yi silerek aşağıdaki gibi yazınız.

Format(Date, "ddmmyyyy")

 

[energy34]

Tamam çok çok teşekkür ediyorum ömer hocam
hacam bi sorum daha vardı farklı konu olduğu için yeni bir başlık altında sordum
yardımcı olursanız sevinirim

http://www.excel.web.tr/showthread.php?t=79256

 

[MURATYALCIN1978]

Ömer hocam dediğiniz gibi çalışma kitabının tamamını kaydetmek istiyorum.
Yardımcı olursanız sevinirim.

 

[MURATYALCIN1978]

Merhaba,

Çalışma kitabının tamamınımı kaydetmek istiyorsunuz.

.

Ömer hocam
dediğiniz gibi çalışma kitabının tamamını kaydetmek istiyorum. Ama sizin yaptığınız gibi kaydederken VBA kodlarını almasın

Yardımcı olursanız çok sevinirim.

Teşekkürler