Çözüldü Excell sayfa taşıma

yildirimtimur

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
7
Tepki puanı
3
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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ün son düzenlenenleri:

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Sayfalar neye göre taşınacak yani herhangi bir şart, koşul var mı ?
 

yildirimtimur

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
7
Tepki puanı
3
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
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

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
7
Tepki puanı
3
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Bana öğretirseniz bu işlemi gereksiz yere konu açmam
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
@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

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
7
Tepki puanı
3
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
İş hukuku, tazminat hukuku (İş kazası, meslek hastalığı, trafik kazası) konularında uzmanım. Bende bana ihtiyaç duyduğunuzda elimden geleni yaparım.
 

yildirimtimur

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
7
Tepki puanı
3
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
elinizde düşeyara ile ilgili "eğer, indis say vs" ile birleşik can kurtaracak formüller varsa talibim ustam saygılar.
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
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.

PHP:
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
 
Son düzenleme:

yildirimtimur

Yeni Üye
Üye
Katılım
3 Eki 2018
Mesajlar
7
Tepki puanı
3
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Konu ÜSTADIN/HOCANIN başarılı bir katkısıyla çözülmüştür. Hayat kurtardı. Konu kapanmıştır. Herkese saygı ve sevgiler.
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Rica ederim iyi çalışmalar ayrıca her türlü excel konusunda yardımcı olmaya çalışırız.
 
Üst