Liste birleştirme

[vedat1905]

ili ayrı sayfada İki listem var birinde kızlar birinde erkekler ben bu iki listeyi başka bir sayfada 2 erkek öğrenci sonrasında 2 kız öğrenci gelecek şekilde EEKKEEKK gibi birleştirmek istiyorum yardımcı olur musunuz?

 

[muygun]

Merhaba;
İsimleri tek hücrede birleştirmek mi yoksa alt alta sıralamak mı istiyorsunuz. Tam anlamadım ama yinede eki deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server26/5h7abi/vedat1905-karma_liste_olusturma-alt_alta.zip.html

 

[muygun]

Bu tabloda hem alta hem yana listeleme mevcut.

Link:
https://s2.dosya.tc/server26/dl59su/vedat1905-karma_liste_olusturma-alt_alta_ve_yana.zip.html

 

[vedat1905]

evet istediğim bu fakat satırın tamamı sıralanacak öğrencinin adı soyadı sınıfı şubesi okul no var her satırda 6 sütün var yani bunu nasıl yaparız.

 

[Korhan Ayhan]

Merhaba,

Rica etsem profilinizde yazan "Excel Vers. ve Dili excel" bilgisini linki inceleyerek güncelleyebilirmisiniz.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[alicimri]

Alternatif

Sub karma_liste_oluştur()
Application.ScreenUpdating = False
Set s3 = ThisWorkbook.Worksheets("RAPOR")
Set s1 = ThisWorkbook.Worksheets("ERKEK").Range("A1").CurrentRegion
Set S2 = ThisWorkbook.Worksheets("KIZ").Range("A1").CurrentRegion
sut = S2.Columns.Count
sa = 4
s1.Copy s3.Range("A1")
For i = 2 To S2.Rows.Count
If i Mod 2 = 1 Then
S2.Range(S2.Cells(i - 1, 1), S2.Cells(i, sut)).Copy
s3.Range("A" & sa).Insert Shift:=xlDown
sa = sa + 4
ElseIf i = S2.Rows.Count And i Mod 2 = 0 Then
S2.Range(S2.Cells(i, 1), S2.Cells(i, sut)).Copy
s3.Range("A" & sa).Insert Shift:=xlDown
sa = sa + 4
End If
Next
End Sub

 

[vedat1905]

Teşekkür ederim bu sorunum halloldu fakat yeni oluşan bu listeyi üç sayfaya bölmek istiyorum örneğin K1 hücresinde 30
K2 32 K3 30 yazsam listeyide buna göre liste1-2-3 sayfalarına otomatik yazdırsam nasıl yapabilirim.

 

[alicimri]

K1 hücresinde 30 K2 32 K3 30 yazsam

Sayfalara ayırırken, 4'e tam bölünebilir olması gerekmiyor mu? (2 kız 2 erkek eşleştiğine göre)
Not: Yukarıda yazdığım kod çalışırken, kız ve erkek öğrenci sayısı eşit değilse, Rapor sayfasının son satırlarında sorun çıkabilir.

 

[vedat1905]

Alternatif

Sub karma_liste_oluştur()
Application.ScreenUpdating = False
Set s3 = ThisWorkbook.Worksheets("RAPOR")
Set s1 = ThisWorkbook.Worksheets("ERKEK").Range("A1").CurrentRegion
Set S2 = ThisWorkbook.Worksheets("KIZ").Range("A1").CurrentRegion
sut = S2.Columns.Count
sa = 4
s1.Copy s3.Range("A1")
For i = 2 To S2.Rows.Count
If i Mod 2 = 1 Then
S2.Range(S2.Cells(i - 1, 1), S2.Cells(i, sut)).Copy
s3.Range("A" & sa).Insert Shift:=xlDown
sa = sa + 4
ElseIf i = S2.Rows.Count And i Mod 2 = 0 Then
S2.Range(S2.Cells(i, 1), S2.Cells(i, sut)).Copy
s3.Range("A" & sa).Insert Shift:=xlDown
sa = sa + 4
End If
Next
End Sub

Peki listeleri birer satır olacak şekilde nasıl birleştiririz. bir bir sayfadan bir diğer sayfadan.