Farklı yere kaydetme

[mustafa155]

sevgili arkadaşlar, sorum bir sayfayı başka bir yere kaydetmekle ilgili, sorunun geniş biçimdeki hali dosya içerisindedir. Cevaplandırırsanız mmnun olurum saygılarımla

 

[newmoonstar]

Farklı Kaydet

ThisWorkbook.SaveAs "d:\Klasör\Dosya_adı\" & [B4] & ".xls"

eklerseniz olur...
Saygılar...

 

[mustafa155]

KArdeş zahmetin için sağol ancak olmadı
gönderdiğim dosya üzerinde D sürücüsünde kayıt isimli klasör içine kaydedecek şekilde yapabilirmisin. Yalnız önemli olan klasöre kayıt yaptığında formüller geçerli olmayacak yani giriş sayfasına başka bir bilgi girildiğinde bu sayfadaki bilgiler değişmeyecek

 

[newmoonstar]

Farklı Kaydet

Oradaki klasör yerini değiştirmeniz gerekir... Ben EK'te yolladım.. İyi Çalışmalar...

 

[mustafa155]

Hocam istediğimiz yere kaydetme olayı tamam yalnız kaydedildiği zaman formüllerin kalkması lazım.
Bu dosyaya giriş yapmıyoruz. Bu sayfadaki bilgiler Bir başka sayfadan otomatik atanıyor ( eşittir, büyükharf, yazım.düzeni gibi formüller ile) Bu nedenle kayıt yaparken formüllerin kaldırılmış olması lazım. Bu şekilde birşey yapabilirmisin

 

[Ali]

Formüller kaç sayfada var ve hangi aralıklar formül içeriyor.

 

[mustafa155]

Ali Hocam B3 B4 ve B5 te formül var

 

[Ali]

Sub kaydet()
ad = [B4]
Sheets("Sayfa1").Range("B3:B5").SpecialCells(xlCellTypeVisible).SpecialCells(xlFormulas, 23).ClearContents
ThisWorkbook.SaveAs "d:\" & [ad] & ".xls"
End Sub

 

[mustafa155]

Ali hocam istediğim tam bu değil. Soruyu biraz daha açıklayayım.
Şimdi bir çalışma sayfasında alt alta bilgileri yazıyorum.
TC NO
ADI SOYADI
BABA ADI gibi

bu alanların karşısına yazdığım bilgiler başka bir çalışma kitabında oluşturduğum form üzerine otomatik olarak yazılıyor.
Bu durumda giriş sayfasında girilen her değişik bilgi ile birlikte form sayfasındaki alanlarda değişmektedir.
Diyelim TC No Form sayfasında C12 Adı soyadı D 15 BAba adı da E 13 denk gelsin.
Benim istediğim form sayfasına ekleyeceğimi bir buton ile bu form sayfası istediğimiz bir klasör içine kaydedilecek ancak, klasör içine kayıt yaparken formüller kaldırılmalı çünkü, giriş sayfasındaki alanlara değişik bilgiler girildiğinde klasöre aldığımız yedek değişmesin. Sizin verdiğiniz makroyu ekleyince istediğim yere kayıt yapıyor ama formüllü hücreler boş gözüküyor. Saygılarımla

 

[Ali]

Bu nedenle kayıt yaparken formüllerin kaldırılmış olması lazım

Formüller kaldırılsın diyorsunuz bu durumda elbette boş gelecektir.

 

[Ali]

Eklediğiniz örnek dosyadaki B3:B5 aralığındaki formüllerin kaldırılıp B4'teki değere göre formülsüz kaydedilmesi için aşağıdaki gibi değiştirin.

Sub kaydet()
    Range("B3:B5").Select
    Selection.Copy
    Range("B3:B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ThisWorkbook.SaveAs "d:\" & [B4] & ".xls"
End Sub

 

[mustafa155]

sağolasın ali hocam