Soru D Sütünuna göre Kitaplara ayırmak

[bulentkars]

Merhaba,

Surum = 51 yaptım düzeldi. Çok teşekkür ederim..

 

[Necdet]

Merhaba,

Surum = 51 yapın.

Dosyayı SaveAs yaparken aşağıdaki ile değiştirin, bir de böyle deneyelim, bende xlsx olarak çalıştı.

            ActiveWorkbook.SaveAs Filename:=Yol & DosyaSy & liste(i) & DosyaUz, _
                 FileFormat:=Surum, CreateBackup:=False

 

[yenilik025]

Hocam bu kodda PDF olarak kaydedilse çok iyi olacak kodu nasıl düzenlemeliyiz ?

Açılması gerek, neden açılmıyor anlamadım.

Buyrunuz Kodlar :

Sub Dosyalara_Sayfalara_Ayır()

   
End Sub