Listeleme

[kilnamaz]

Çok sayıda excel sayfasında ayni hücrelerdeki bilgileri tek listede toplamanın bir yolu

 

[thinker]

hangi bilgileri?


Soru çok belirsiz. Örnek dosynız varsa gönderin. Ona göre çözüm bulunsun.

 

[kilnamaz]

örnek dosyayı gönderdim ilgine teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanabilirsiniz.

[vb:1:7ec72de9d7]Sub listele()
Set s1 = Sheets("sayfa5")
For a = 1 To Sheets.Count
If Sheets(a).Name <> "Sayfa5" Then
s1.Cells(a + 1, "a") = Sheets(a).[b1]
s1.Cells(a + 1, "b") = Sheets(a).[b4]
s1.Cells(a + 1, "c") = Sheets(a).[b6]
s1.Cells(a + 1, "d") = Sheets(a).[b7]
s1.Cells(a + 1, "e") = Sheets(a).[b8]
s1.Cells(a + 1, "f") = Sheets(a).[b9]
End If
Next
End Sub
[/vb:1:7ec72de9d7]

 

[kilnamaz]

Çözüm için teşekkürler, 150 öğrencinin OSS Sonuç bilgilerini tek tek kopyala yapıştır zahmetinden kurtardın beni.