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.
 

metehan8001

Feyzullah - Www.ExcelDepo.Com
Yönetici
Moderatör
#7
@yildirimtimur hocam, istemiş olduğunuz çalışmayı size ileteceğim. Konu ile ilgili makro kodu yazıp sizin kullanabilceğiniz hale getirip dosyanızı size ileteceğim.
 

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

Feyzullah - Www.ExcelDepo.Com
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
 

metehan8001

Feyzullah - Www.ExcelDepo.Com
Yönetici
Moderatör
#15
Rica ederim iyi çalışmalar ayrıca her türlü excel konusunda yardımcı olmaya çalışırız.
 
Üst