Dosyadaki verileri parçalayıp kaydetme

[karacakamil]

Ekteki deneme ana sayfayı yine klasör içinde gözüken parçalanmış dosyalara ayırma yapmam lazım . Acil yardım

 

[karacakamil]

Acil arkadaşlar; deneme ana sayfasına bir makro yazarak klasör içindeki dosyalar gibi parçalama yapıp kaydetmek istiyorum.

 

[karacakamil]

acil desteğe ihtiyacım var.

 

[Asri]

acil desteğe ihtiyacım var.

dosya.tc ye dosyanızı yükleyiniz.

Konuyu biraz daha detaylandırabilir misiniz.

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin
Olmazsa Sn.asri' nin belirttiği gibi; bir dosya sitesine örneğinizi yükleyip indirme adresi bildiriniz

Sub dosya()
For v = 1 To ThisWorkbook.Sheets.Count
 ChDir ThisWorkbook.Path
kayıt = CreateObject("wscript.Shell").SpecialFolders.Item(ThisWorkbook.Path) & _
ThisWorkbook.Sheets(v).Name & ".xlsm": Sheets(v).Copy
    ActiveWorkbook.SaveAs Filename:=kayıt, FileFormat:=xlNormal
    ActiveWorkbook.Close
Next
End Sub

 

[karacakamil]

link: http://s6.dosya.tc/server8/pzbdoe/DOSYA_PARCALAMA-ACIL_ACIL_ACIL.rar.html

 

[karacakamil]

Öncelikle ilgi ve alakanız için çok çok teşekkür ederim.
Konu şöyle;
DENEME ANA SAYFA dosyasını parçalayacağız. bu dosyada denemeler "tüm kurumlar" birlikte sıralı şekilde.
Amacımız bu denemeleri kurumlar için ayrı ayrı "kurumun isimiyle" parçalamak. Her kurumun listesinde sadece kendi öğrencileri olacak. Zaten dosyanın yanında bir de "OLMASI İSTENEN AYRILMIŞ HALLİ DOSYA ÖRNEĞİ" diye olmasını beklediğim son halini de elle oluşturup gönderdim. Amacım bunu makro ile yapmak
Şimdiden teşekkür ederim.
( Dosyalar örnektir. Bu dosyalara bakarak daha büyük dosyalar üzerinde çalışacağım.)