Merhaba

Örnek dosyamda personel bilgileri mevcuttur. Bu listede bulunan personelleri "Çalıştığı Yer" sütünündaki bilgilere göre liste dışında ayrı ayrı Excel dosyasının oluşturulmasını istiyorum. Örnek Çalıştığı Yer "Gövde Makine Grubu" Gövde Makine Grubu.xls yada "Etüd Proje 1. Kısım" Etüd Proje 1. Kısım.xls adında dosya oluşturması mümkün müdür.

...Link...

    

    Dim XL As Excel.Application,    WB As Excel.Workbook, WKS As Excel.Worksheet

  

    Set XL = New Excel.Application

    XL.Visible = True

    Set WB = XL.Workbooks.Add

    Set WKS = WB.Worksheets(1)

 

    WB.SaveAs Filename:=kaydedilecekyer & sutundegeri &  ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook

(12/11/2019, 18:34)berduş yazdı:

    

    Dim XL As Excel.Application,    WB As Excel.Workbook, WKS As Excel.Worksheet

  

    Set XL = New Excel.Application

    XL.Visible = True

    Set WB = XL.Workbooks.Add

    Set WKS = WB.Worksheets(1)

 

    WB.SaveAs Filename:=kaydedilecekyer & sutundegeri &  ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook

Merhaba
Aşağıda belirttiğim şekilde yapmayı denedim ama hata verdi. 

Atölyede 3 kişi çalışıyor 3 farklı Excel dosyası mi oluşturulacak yoksa 1 dosya mi?

    Dim XL As Excel.Application, WB As Excel.Workbook, WKS As Excel.Worksheet



    Set XL = New Excel.Application

    XL.Visible = True

    Set WB = XL.Workbooks.Add

  'Cells(satirno,sutunno)

    WB.SaveAs Filename:="C:\izinler\"  &  cells(8,6) & ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook

ÇAĞLIŞTIĞI YERDE KAÇ TANE BİRİM VARSA O KADAR Excel DOSYASI OLUŞTURMASINI İSTİYORUM. 

ÖRNEK : ÇALIŞTIĞI YER ATÖLYE 2. KISIM I SEÇTİĞİM ZAMAN KAÇ KİŞİ VAR 20 KİŞİ ONLARI TEK BİR Excel DE TOPLAMASINI İSTİYORUM. TOPRAK İŞLERİ 1. KISIM DA 50 KİŞİ VAR ONLARI AYRI BİR EXCEL'DE ATMASINI İSTİYORUM.