bilgileri gruplarına göre diğer sayfaya kopyalama

[catalinastrap]

Merhaba Arkadaşlar;
bilgileri gruplarına göre diğer sayfaya kopyalama yapmak istiyorum ama data sayfasındaki veriler de data sayfasında kalacak şekilde

 

[catalinastrap]

dosya eklemeyi unutmuşum pardon

 

[catalinastrap]

Konu günceldir arkadaşlar,

 

[sevtap01]

Gruplara otomatik ayırma

Arkadaşlar yardımınıza ihtiyacım var. Ekte açıklamaya çalıştım. şimdiden teşekkürler.

 

[Muhammet Okumuş]

Merhaa,

Sub Aktar()
Range("A2:H1000") = ""
Application.ScreenUpdating = False
Set d = Sheets("data")
son = d.Cells(Rows.Count, "B").End(3).Row
For i = 2 To son
kac = WorksheetFunction.Match(d.Cells(i, 2), Range("A1:H1"), 0)
sat = Cells(Rows.Count, kac).End(3).Row + 1
Cells(sat, kac) = d.Cells(i, 1).Value
Next
Set d = Nothing
End Sub

Dosyayı inceleyiniz.

 

[catalinastrap]

sanırım böyle bişey istediniz

 

[Muhammet Okumuş]

Arkadaşlar yardımınıza ihtiyacım var. Ekte açıklamaya çalıştım. şimdiden teşekkürler.

Ayrı başlık açsanız daha güzel olur. Konu güncel olduğu için güncel konulara kendi sorunuzu sormayınız.
Birleştirmiş hücreleri kaldırdım. Dosyayı inceleyiniz.

 

[sevtap01]

sanırım böyle bişey istediniz

çok çokkkk teşekkür ederim aynen buydu istediğim. Elleriniz sağlık.

 

[sevtap01]

ayrı başlık açsanız daha güzel olur. Konu güncel olduğu için güncel konulara kendi sorunuzu sormayınız.
Birleştirmiş hücreleri kaldırdım. Dosyayı inceleyiniz.

sayın muhammet okumuş bey, özürdiliyorum, ayrı başlık açmayı denedim ama nerden yeni başlık açıldığını bulamadım. Tekrar kusuruma bakmayın. Elinize sağlık.