BELİRLİ SAYFALARI AYRI AYRI EXCEL YAPMAK

[bydogannn67]

Üstadlarım Kolay gelsin

Sizden bir ricam olucak,

ekteki excelde A1,A2,A3,A4,A5 sayfaları mevcut, bunlar arasından A1,A2,A3 isimli sayfaları mevcut excelin olduğu konuma yeni excel olarak ayrı ayrı kopyalayarak, excel isimlerinide her sayfanın içindeki E5 hücresinden alabilirmiyiz

 

[halit3]

Bu dosyayı bir dene

 

[bydogannn67]

Hocam çok şahane olmus teşekkurler

Bir ricam daha olsa kopyalanan sayfalardaki formullerin verileri bozmaması için değer olarak kopyalaması mumkunmudur

 

[halit3]

2 nolu mesajdaki dosyayı günvelledim.

 

[bydogannn67]

Hocam

dosya isminin aldığı yeri değiştirmek için aşağıdaki yerleri değiştirdim fakat oluşturduğu dosyayı excel olarak kaydetmiyo

eksik bişimi yapıyorum

yeni_dosya_adı = Cells(2, "B") 'ActiveWorkbook.Name
Windows(dosya_adı).Activate

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then

yeni_dosya_adı = Sheets(Sheets(i + 1).Name).Cells(2, "B")

 

[halit3]

Sadece burayı degiştireceksiniz
yeni_dosya_adı = Sheets(Sheets(i + 1).Name).Cells(5, "E")
B2 de ne yazıyor.

 

[bydogannn67]

Hocam yine hata alıyorum

çalışmamın kopyasını inceleme şansınız varmıdır

 

[halit3]

Bunu bir dene

 

[bydogannn67]

Şimdi oldu tesekkurler hocam nerde hata yapmısım

 

[bydogannn67]

Hocam gelir tablosu sayfasını ayırırken hata veriyo bu arada

 

[halit3]

Sayfa koruması olduğundan hata alıyorsunuz

 

[halit3]

Dosyanızda aşagıdaki iki kodun arasını bunu ekleyiniz.

ActiveSheet.Unprotect

Sheets(Sheets(i + 1).Name).Copy

Cells.Copy

Sheets(Sheets(i + 1).Name).Copy

ActiveSheet.Unprotect
Cells.Copy

 

[bydogannn67]

Hocam yakışıklı oldu teşekkurler son olarak kopyaladığım excelin dosya boyutunu düşürme durumumuz varmıdır

 

[halit3]

Dosya boyutu hücrelerdeki biçimlerden, birleştirmelerden dolayı büyük olmaktadır.