Mevcut tablodan 50 tane farklı isimde kayıt açmak

[taltinok]

Merhaba

Elimde 50 adetlik bir liste var ve örnek bir form var.Örneğin AAA BBB CCC diye gidiyor liste.İstedğim şey AAA BBB CCC diye elimde bulunan formdan ayrı ayrı 50 adet sayfa oluşturması ancak bu sayfalar tek kitapda olmayacak.Konuyla ilgili yardımcı olmanızı rica ederim.

 

[Merhum İdris SERDAR]

.
Buradaki örneği inceleyin.

http://www.excelgurusu.com/sayfa-cogaltma-ve-icindekiler/


.

 

[taltinok]

Merhaba

Burada aynı kitap içine farklı sayfalar açıyor örnek formdan ayrı kitaplar oluşturmak istiyorum bu mümkün mü yan yana değilde bir klasor içinde farklı excel sayfaları yani

 

[Merhum İdris SERDAR]

.

Açılan bu sayfaları da aşağıdaki kodla dosyalara çevirin.

Sub SayfadanDosya()

    Dim syf As Worksheet
    Application.ScreenUpdating = False
        
    For Each syf In ThisWorkbook.Worksheets
    syf.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.path & "\" & syf.Name
    ActiveWorkbook.Close SaveChanges:=True

    Next syf

    Application.ScreenUpdating = True
    
End Sub

.

 

[taltinok]

Merhaba

Malesef açacağım dosya ismi uzun olduğu için yan sekmeleri oluşturamıyorum isimleride kısaltmam mümkün değil.Şehir lokasyonun ismi ve tarih yazıyor çünkü