son pencereyi kapatıp yenisini açmak

[kemal-75]

Arkadaşlar Merhaba ;
Ben bir form oluşturmak istiyorum formun çoğu kısmını hallettim ancak bir noktada takıldım kaldım. soruyu maddeler halinde yazarsam herhalde daha iyi anlaşılır.

1- Elimizde bir userform var ve bu user formda 31 adet textbox (excelde hücrelerle ilişkilendirilmiş) ve 2 adet düğme var (gerekli olduğu taktirde sayı artabilir.) düğmelerden biri kayıt ve yazdırma diğeri yeni bir giriş yapmak için

2- Kaydet ve yazdır butonuna basılınca dosya kaydedilecek (burada bir sıkıntı yok) ve exceldeki seçili alanı yazıcıdan yazdıracak. burada sorunum şu dosyayı kaydediyor ancak kaydedilen dosya açık kalıyor.

3- yeni giriş tuşuna basılınca yukarıda bahsettiğim açık kalan dosya kapanacak asıl dosya açılacak ve yeni bir giriş yapılacak.

yukarıda bahsettiğim gibi sorun saveas komutu ile server içine başka bir klasöre farklı bir isimle kaydettiğim dosya ekranda aktif olarak kalıyor. ben bunu kapatıp masaüstündeki asıl dosyayı açmak (çalıştırmak istiyorum. biraz uzun oldu ama anlatabilmişimdir umarım.

Dosyayı bilerek eklemedim ki yaparak öğrenmek istiyorum bu işi ama illa ekle bakalım diyorsanız onuda eklerim. Saygılarımla.

 

[Huseyinkis]

işleminizi yapmak için ekteki gibi bir formül kullanmanızı tavsiye ederim..

Farklı kaydedeceğiniz sayfaları kopyalar ve kaydeder. Böylelikle asıl dosya kapanmamış olur.

Birden fazla sayfayı kaydetmek istiyorsanız. copy kısmını ekteki gibi yapınız.


Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Copy

Sub Kopyala_Kaydet()
Sheets("Sayfa1").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\Deneme.xls", FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub

 

[kemal-75]

Kusura bakmayın ilginiz için ayrıca Teşekkür ederim ancak yazmayı atladığım bir nokta var o da dosyayı kaydederken başka bir yere kaydedecek yani kendi bilgisayarıma değil de server içinde bir klasörün içine farklı bir isimle.

 

[Huseyinkis]

Yukarıdaki kodları tam incelemediniz galiba

 

[kemal-75]

Özür dilerim hüseyin kardeş atlamışım sayfayı kopyala filan deyince oruç kafaya 9 saat aynı işle uğraşınca sapıtıyorum bazen. ellerine sağlık tam istediğim gibi oldu. Ancak senden bir şey daha rica edebilir miyim ? Bu dosyamızı kaydederken ismini kendimiz versek yada bir hücredeki değeri isim olarak kaydetmesi için nasıl bir eklemeliyim? benim bildiğim bir kod var onu uyarlamaya çalıştım hata verdi.

 

[Huseyinkis]

Merhaba kodu ekteki gibi değiştirin.


Dosyaad=Cells(1,1).value yada Dosyaad=Range("A1").value



Sheets("Sayfa1").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\"&Dosyaad&".xls", FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub

 

[kemal-75]

Hüseyin kardeş ellerin dert görmesin çok teşekkür ederim. sayende bir şeyler daha öğrendim. Hakkını helal et.