Sayfa Kopyalama

bage · 3 Temmuz 2007

Merhaba,
arkadaşlar bir konuda yardımıza ihtiyacım var.
Bir çalışma kitabım var ve bunun içersinde 20 tane çalışma sayfası var.
Bu her sayfaya ait rapor yazmak ve hesaplama yapmak için 20 tane de UserForm var.
Benim burada yapmak istediğim, UserForm1'deki kaydet tuşuna basınca sadece bu Sayfa 1'i Belgelerim klasöründeki "Raporlar" adlı klasöre hiçbir kodu ve formülü almadan sadece bilgileri ile beraber bir kopyasını kaydetmek istiyorum.Dosya ismi olarak da Sayfa 1'deki A1 ve A2 hücrelerindeki bilgileri birleştirip (A1 ve A2 nin birleşimi Rapor numarasını içeriyor) bunu Dosya adı olarak kullanmasını istiyorum.
Bu konuda yardımı olabilecek arkadaşlardan yardımlarını bekliyorum.
Şimdiden teşekkür ediyorum...

emrexcel123 · 3 Temmuz 2007

aşağıdaki kodu dener misiniz >>

Kod:

Private Sub CommandButton1_Click()
Sheets("sayfa1").Range("a1:&#305;v65536").Copy
Workbooks.Add
Range("a1").PasteSpecial xlPasteValues
adr = Range("a1") & " " & Range("a2")
ActiveWorkbook.SaveAs "Belgelerim\Raporlar" & adr
End Sub

dosya yolunu kendinize göre revize ediniz...
____________________________________

bage · 3 Temmuz 2007

Sayfa formatı bozulmadan kopyalama/taşıma

Öncelikle teşekkür ederim,
sayfayı kopyalarken sayfanın bütün formatı bozuluyor ve bazı şekil/grafik
taşıması yapmıyor.
Örneğin, şirket logosunu almıyor ve hücre genişliklerini standart Excel'in
hücre genişliğine çeviriyor.
Sayfayı olduğu gibi taşıyamaz mıyız?

emrexcel123 · 3 Temmuz 2007

sn bage benim bildiğim kadarı ile sayfa kopyalanırken istenilen öğeler seçilemiyor ve siz sadece değerleri istediğiniz için de böyle bir kod yazdım ancak olduğu gibi isterseniz çözüm yolunu buluruz...

bage · 3 Temmuz 2007

Kopyalama/Taşıma

Sayın emrexcel123;
Excel'de herhangi bir çalışma sayfası sekmesinin üzerine sağ klik yapınca "Taşı veya kopyala" seçeneğinin yaptığı işlemi kod sayfasında yapmak istiyorum.
Fakat bu işlemde sadece sayfanın kopyasını alıp orjinalinin taşınmasını istemiyorum.

emrexcel123 · 3 Temmuz 2007

aşağıdaki kodu deneyiniz >>

Kod:

Sub kopyala()
Sheets("Sayfa1").Copy
adr = Range("a1") & " " & Range("a2")
ActiveWorkbook.SaveAs "Belgelerim\Raporlar\" & adr
End Sub

______

bage · 3 Temmuz 2007

Hata kontrolü

Sayın emrexcel123 çok teşekkür ederim,
tam istediğim şey gerçekleşmiş.
Fakat aynı isimde bir başka kayıt var ise, hata mesajı veriyor.
Aynı isimli bir kayıt bulduğunda bunu uyarıp, yenisiyle değiştirmek
isteyip istemediğimiz sorup, eğer cevap evet ise üzerine kayıt yapmasını sağlayabilir miyiz?

Bir de kayıt işleminden sonra dosya açılıyor.Dosyanın açılmayıp sadece
kayıt işleminiz başarıyla tamamlanmıştır gibi bir mesajla işlemi yapabilir miyiz?
Şimdiden ilgi ve alakanıza çok teşekkür ederim...

baydeniro · 17 Ekim 2007

Paylaşım İçin Teşekkürler

Sayın emreexcel123 Paylaşım İçin Teşekkürler.

mt621 · 2 Aralık 2007

sayın emre
yedek alırken sadece a1 ve o anki tarih ve saati yazdırabilirmiyiz.Birde buton eklemek istiyorum işlem bittikten sonra butona bastığımda o anki a1 de yazı ve tarih saatle kaydetmesini istiyorum mümkünse.

hsayar · 2 Aralık 2007

mt621' Alıntı:
sayın emre
yedek alırken sadece a1 ve o anki tarih ve saati yazdırabilirmiyiz.Birde buton eklemek istiyorum işlem bittikten sonra butona bastığımda o anki a1 de yazı ve tarih saatle kaydetmesini istiyorum mümkünse.

http://www.excel.web.tr/showthread.php?p=222156#post222156

svorm · 2 Aralık 2010

Peki birden fazla sayfa kopyalamak istesek aynı dosyaya dosyayı kayıt etmeden nasıl yaparız?