Excel Başka Sayfada Sıralama

[enginerdogan]

Merhaba,lar çok acil yardıma ihtiyacım var ama bir türlü yapamadım.
Yardımcı olursanız sevinirim.

Sayfa 1 de örneğin ülke almanya Sayfa 2 ye Almanya isimlerinin yazılı olduğu kısmı yan yana yazdırmasını istiyorum
Örneğin Arjantin 1 tane sadece 1 kayıt aktarsın
2 kayıt varsa o ülkeye ait iki kayıt aktarmasını istiyorum .

Lütfen yardımlarınızı bekliyorum

 

[PLİNT]

Merhaba
Aşağıdaki kodu deneyin

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.[a2:az10000] = Empty
s3 = s1.Cells(Rows.Count, "A").End(3).Row
For a = 2 To s3
s = 2
If WorksheetFunction.CountIf(s1.Range("B1:B" & a), s1.Cells(a, "b")) = 1 Then
b2 = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(b2, 1) = s1.Cells(a, "B")
s2.Cells(b2, 2) = s1.Cells(a, "C")
For b = a + 1 To s3
If s1.Cells(a, "B") = s1.Cells(b, "B") Then
s = s + 1
s2.Cells(b2, s) = s1.Cells(b, "C")
End If
Next
End If
Next

s2.Select

End Sub

 

[enginerdogan]

Malesef Çalışmadı"

Aktarma kodu istediğim gibi çalışmadı malesef

Resimdeki gibi birinci sayfada Örneğin Almanya Girilenler Diğer sayfaya Yatay olarak yazdırılacak ...
Fransa dan 2 kayıt varsa sadece ikisini aktaracak
Arjantin örneğin 1 tane ise birini aktaracak 3 taneyse üçünü aktararak yatay olarak sütunlara koyucak

 

[PLİNT]

Ülke isimlerinin "A" sütununda olacağını düşünmüştüm,
yukarıdaki değişen kodları ve ek dosyayı deneyin
http://s3.dosya.tc/server7/mue7eo/YENI.zip.html

 

[sakman26]

selam,
alternatif olarak,
formüllerle yapılmış dosya link ile verilmektedir.
İnceleyiniz..
Kolay gelsin..
link : http://s3.dosya.tc/server7/6djiwx/enginerdogan.xlsx.html

 

[enginerdogan]

PLİNT ve SAKMAN26 çok teşekkürler . Her ikiside çok güzel olmuş ve tamda aradığım çalışma. Özellikle SAKMAN26 harika bir uygulama olmuş.