Dataların kendi sayfalarına aktarılması hk. yardım

[ozijikanu]

Merhaba ekteki dosyada personeli bölümlerine göre ayırmak ve özelliklerini bu ayrılan dosyada bulmak istiyorum.
karışık sırayla personeli ilk sayfaya yazdığımda seçerek 2. 3. 4. dosyalara kendi bölümlerine göre bilgileriyle beraber atmasını istiyorum.Yardım rica ediyorum.

 

[Ömer]

Merhaba,

Linki inceleyiniz..

http://www.excel.web.tr/f48/verileri-sayfalara-daoytmak-t88422.html

.

 

[ozijikanu]

makro yazmayı bilmiyorum.bana başlangıç için yol gösterirseniz gerisini getirebilirim sanırım.Nasıl başlayabilirim.

 

[Excelmy]

Ekli dosyayı inceleyiniz.

 

[ozijikanu]

Ekli dosyayı inceleyiniz.

Kardeşim eline sağlık kod açıklmasını senden istesem bu tür basit kodları yazmak istiyorum bana açıklaman mümkün mü ? zamanını alacağım ama eğer mümkünse tabi ? Bana bu konuda yardımcı olursan sevinirim balık yerine balık tutmayı öğrenmek istiyorum.

 

[ozijikanu]

Ekli dosyayı inceleyiniz.

bu dosyada yeni bölümler eklersek makroda nereleri düzeltmemiz gerekir 3 bölüm daha eklemem gerekiyor da
Sub BOLUMLER()
Dim Sayfa As Variant, i As Long, son As Long, S1 As Worksheet
Set S1 = Sheets("DATA")
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "DATA" Then
Sheets(i).Range("A2:E65536").ClearContents
End If
Next i

For i = 2 To S1.[F65536].End(3).Row
Sayfa = S1.Cells(i, "F")
son = Sheets(Sayfa).[A65536].End(3).Row + 1
Sheets(Sayfa).Cells(son, "A") = son - 1
S1.Range("A" & i & ":E" & i).Copy Sheets(Sayfa).Cells(son, "A")
Next i

MsgBox "Kayıtlar İlgili Bölümlere Aktarıldı.", vbInformation, " BİLGİ"
End Sub

kendim geliştirmek istiyorum bu makroyu yardımlarınızla