dosyalara dağıt

[arşivist1]

bir excel tablom var.
tablomda açıklamaları yaptım

forumda bulduklarım işimi göremedi. gömülü formülleri de kendime uyarlayamadım

ilginiz için şimdiden teşekkür ederim.


http://www.dosya.tc/server34/eIarWd/Desktop.rar.html

 

[Emir Hüseyin Çoban]

. . .

http://www.excel.web.tr/f48/filtreye-gore-verileri-sayfa-sayfa-ayyrma-t142694.html

. . .

 

[arşivist1]

güzel çalışma olmuş
32 karakterle sınırlandırılmış sanırım kitap isimleri kurum isimlerini değiştirmekle çözümleyeceğim başka bir önerin olmazsa.

Function SayfaVarMi(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function


Sub Kod()
    Application.ScreenUpdating = False
    Dim S1 As Worksheet
    Set S1 = Sheets("Sayfa1")
    Dim Sayfa As String
    
    For a = 2 To S1.Cells(Rows.Count, "B").End(3).Row
        Sayfa = S1.Cells(a, "B")
        If Not SayfaVarMi(Sayfa) Then
            Sheets.Add
            ActiveSheet.Name = Sayfa
            Sheets(Sayfa).Move After:=Sheets(Sheets.Count)
            S1.Range("A1:H1").Copy Range("A1")
            
        End If
        sonsatır = Sheets(Sayfa).Cells(Rows.Count, "A").End(3).Row + 1
        S1.Range(S1.Cells(a, "A"), S1.Cells(a, "H")).Copy _
        Sheets(Sayfa).Cells(sonsatır, "A")
    Next a
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

 

[Emir Hüseyin Çoban]

. . .

Excelde sayfa isimleri en fazla 31 karakter ile sınırlıdır.
Kurumlara firma kodu tanımlayabilirsiniz.

. . .

 

[arşivist1]

ilave yardım alabilir miyim
verileri dağıttım dosya oluştu.
bu dosyayı word dosyasına otomatik olarak atabilir mi

... devlet hastanesi excel sayfasındaki veriler
... devlet hastanesi word sayfasına

http://www.dosya.tc/server34/3M4GYA/DEVLETHASTANES_Y_NET_C_L___NE-2.doc.html

word dosyasında değişiklik yapabilirsiniz önemli olan tablonun şekli.
ilginiz için teşekkür ederim.