Sayfa ismine göre kayıt etmek _?

[evren_01]

Arkadaşlar bir kac sorum olacaktı

1- Sayfa ismi örneğin " haziran 2005 " ise bu bu sayfayı haziran 20005.xls olarak kayıtettirmek istiyorum

2-Makrodaki sayfa sonu ön izleme seceneğini nasıl elde ederiz..

3-İstediğim aralıktaki hücreleri ( yazdırma alanı dışındaki hücreleri gizletmek) nasıl oluyor makro da ..

4-Sayfayı kopyalayım aktic sayfanın ön tarafına kayıt ettirmek sitiyorum
Sadece formatı ( yani hücre arası değerlerin bozulmasın )


Yardımlarınızı bekliyorum

Þimdiden Tüm Arkadaşlara başarılar dilerim

 

[Nazmi YAZICI]

Þimdiden Tüm Arkadaşlara başarılar dilerim

Forum üyeleri arasındaki cevap yarışındaki iyi dileklerinizden ötürü öncelikle teşekkür ederim. :lol:
Ayrıca kusura bakmayın Türkçeniz ya çok kötü yada yazmaya üşendiğinizde birçok sorunuz net olarak anlaşılamıyor.

Sorularınıza gelince;

1- Sayfa ismi örneğin " haziran 2005 " ise bu bu sayfayı haziran 20005.xls olarak kayıtettirmek istiyorum

Buradaki kırmızı ile kastettiğiniz sayfa adını macro ile değiştirmek ise;

Sheets("haziran 2005").Name = "haziran 20005.xls"

yok eğer sadece ilgi sayfayı o dosyadan alıp ayrı bir excel dosyası olarak kaydettirmek ise;

Sub Sayfa_Kitap()
Sheets("haziran 2005").Copy
ActiveWorkbook.SaveAs Filename:="C:\FTP\haziran 20005.xls"
End Sub

2-Makrodaki sayfa sonu ön izleme seceneğini nasıl elde ederiz..

Bu sorunuzu net olarak anlayamadım

3-İstediğim aralıktaki hücreleri ( yazdırma alanı dışındaki hücreleri gizletmek) nasıl oluyor makro da ..

Diyelim ki yazdırma alanınız Range("A110") ve siz 11 ile 15'nci satırları gizlemek istiyorsanız;

Sub Sayfa_Gizle_Göster()
ActiveSheet.Rows("10:15").EntireRow.Hidden = True 'GİZLER
ActiveSheet.Rows("10:15").EntireRow.Hidden = False 'GÃ?STERİR
End Sub

Yok eğer istediğiniz belli hücrelerin içeriğini gizlemek ise :dua: o zaman hücre biçimlendirme-->İsteğe Uyarlanmış-->Tür alanına ;;; yazarak macrosuz yapabilir yada macrolu çözüm için aşağıdaki kod kullanılabilir:

Sub Sayfa_Icerik_Gizle()
Range("C8").NumberFormat = ";;;"
End Sub

4-Sayfayı kopyalayım aktic sayfanın ön tarafına kayıt ettirmek sitiyorum
Sadece formatı ( yani hücre arası değerlerin bozulmasın )

En karışık sorunuz da bu
İstediğiniz Sheet3'deki A110 aralığındaki verileri Sheet1'de mesela A25'den itibaren sadece içerik olarak kopyalamak ise;

Sub Kopyala()
Sheets("Sheet3").Range("A1:D10").Copy
Sheets("Sheet1").Select
Range("A25").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

gibi bir kod işinize yarayabilir.

Yok eğer istedikleriniz bunlar değil ise lütfen ne istediğinizi tam ve anlaşılır bir dil ile yazınız. Bakınız sorunuzu tam 24 saat önce yazmışsınız ve bu kadar bilgili insanın yer aldığı bir forumda bu saate kadar cevap veren olmamış. :hey:

 

[evren_01]

Sn Nazmi YAZICI Yardımlarınızdan ötürü teşekkür ederim
:arkadas:

Kusura bakmayın Sorularım biraz bozuk fakat bunun nedeni birkaç sorumun hepsini birden sormak istememden kaynaklandı....

Birinci sorunun daha acıkcasını yazmak istersem şöyle
Aktif olan sayfanın kopyalayıp sayfa ismi ne ise ona göre isim vermesini sitiyordum yapmaya calıştığım code aşağıda incelerseniz sevinirim

ActiveSheet.Copy
Range("a1:g65536").Copy
Range("a1").PasteSpecial xlPasteValidation
Range("a1").PasteSpecial xlPasteValuesAndNumberFormats
Range("h1:ı65536").Delete
DosyaAdi = "AYLIK RAPORLAR & Sheets("HAZİRAN 2005").Name &.xls"
ActiveWorkbook.SaveAs "C:\Aylık Raporlar\" & DosyaAdi
Workbooks("AYLIKRAPORLAR "& Sheets("HAZİRAN 2005").Name &.xls".Close True

İkinci sorumda ise görünüm - sayfa sonu önizleme seçeneğinin olayını makrodaki durumu hakkında bilgi sitiyordum...

Dördüncü soru için özür dilerim sorumun acıklamaya calışacağım hücre boyutlarını ve biçimlendirmeleri kasdetmiştim

Teşekkürler...:dua: :dua:

Bu arada

Ayrıca kusura bakmayın Türkçeniz ya çok kötü

sözüne cook kırıldım

 

[Levent Menteşoğlu]

1.sorunuz için aşağıdaki kodu deneyin.

[vb:1:c615cd423d] ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\" & Sheets(1).Name & ".xls"[/vb:1:c615cd423d]

2.sorunuz için

[vb:1:c615cd423d]ActiveSheet.PrintPreview[/vb:1:c615cd423d]

 

[evren_01]

Sn Levent bey

Birinci soruma vermiş olduğunuz makro kodu hata verdi....

 

[isakarakus]

belgelerim kalsörü mevcut mu?
mevcut değilse hata verir

 

[evren_01]

Ã?zür dilerim beyler Kusura bakmayın

arada bir işaret kalmış o yüzden hata veriyormuş

Teşekküreler ... :arkadas:

:icelim:
k:: k:: k:: k:: k::