Soru Excell sayfa taşıma

yildirimtimur

New member
Üye
#1
Hocalar, ustalar. elimde 75 adet Excel sayfa var (Hukukçuyum). Bu sayfaları tek bir sayfaya taşımak ve birleştirmek mümkün müdür?
 
Moderatör tarafında düzenlendi:

yildirimtimur

New member
Üye
#3
Hayır, bu sendikal nedenlerle işakdi fesih incelemesi. Bakanlık belgeleri cd içinde bu şekilde göndermiş. ben ad ve soyad bölümlerinin altındaki bütün işçi isimlerini sair sendikalı olma sendikadan çıkma tarihleri de dahil alt alta tek bir excell sayfasına taşımak ve personel listesi ile bu listeyi düşey ara ile eşleştirmek istiyorum. Özet kural yok. Ama tüm sayfalardaki ad ve soya ad karşılıkları alt alta gelecek lşekilde tek bir liste oluşturmak zorundayım. Saygı ve sevgiler. İyi çalışmalar. Not:sizlerden çok yaşlıyım 62 yaşındayım. Bunu aylardır yapamadım.
 

yildirimtimur

New member
Üye
#8
İş hukuku, tazminat hukuku (İş kazası, meslek hastalığı, trafik kazası) konularında uzmanım. Bende bana ihtiyaç duyduğunuzda elimden geleni yaparım.
 

metehan8001

Moderator
Yönetici
Moderatör
#11
Hocalar, ustalar. elimde 75 adet Excel sayfa var (Hukukçuyum). Bu sayfaları tek bir sayfaya taşımak ve birleştirmek mümkün müdür?
Dosyanızın kod bölümüne aşağıdaki kodları yazıp, çalıştırın hocam.

Kod:
Sub birleştir_Sayfa()
'www.ExcelDepo.Com
son = Sheets("PAGE2").Cells(Rows.Count, "H").End(xlUp).Row + 1
For Each sayfalar In Worksheets
sayfa = sayfalar.Name
If Not sayfa = "Page1" And Not sayfa = "Page2" Then
For i = 7 To Sheets(sayfa).Cells(Rows.Count, "H").End(xlUp).Row
Sheets(sayfa).Rows(i).Cut Destination:=Sheets("PAGE2").Rows(son)
son = son + 1
Next i
End If
Next sayfalar
End Sub
 
Üst