• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

catalinastrap

Özgür
Destek Ekibi
Katılım
19 Ağustos 2006
Mesajlar
644
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
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
 
dosya eklemeyi unutmuşum pardon
 

Ekli dosyalar

Konu günceldir arkadaşlar,
 
Gruplara otomatik ayırma

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

Ekli dosyalar

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.
 
Son düzenleme:
sanırım böyle bişey istediniz
 

Ekli dosyalar

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.
 
Son düzenleme:
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.
 
Geri
Üst