Tüm sayfalardaki bir hücreyi alıp liste oluşturmak

[chevas]

Çalışma kitabım içinde 700 sayfa var,bu 700 sayfanın a3 hücrelerini başka bir sayfada alt alta listelemek istiyorum.örnek olarak hazırladığım çalışma kitabı daha iyi anlatacaktır.Þİmdiden çok teşekkür ederim

 

[iggydarsa]

bu kodu yazmayi deneyin

Sub aktar()
Dim x As Long
x = 0
Dim rng As Range
Set rng = Sheets("Liste").Range("A1")

For Each sayfa In Worksheets
If Not sayfa.Name = "Liste" Then
rng.Offset(x, 0).Value = sayfa.Name
rng.Offset(x, 1).Value = sayfa.Range("a3").Value
x = x + 1
End If
Next sayfa
End Sub

 

[chevas]

maalesef bende çalışmadı bu makro. Yardımı olacak bir arkadaş olursa çok makbule geçecek

 

[zafer]

Merhaba

Makro çalışıyor ve liste sayfasına A sütununa sayfa adlarını B sütünunada a3 hücrelerinin değerlerini getiriyor.


Sizde liste adlı sayfa olmadığı için çalışmıyor , liste adlı sayfa açın deneyin

 

[chevas]

Bende çalışmıyor , Excel small business kullanıyorum ondan mı acaba

 

[chevas]

tamam oldu liste sayfasının adıda liste olması gerekiyormuş
Çok teşekkür ederim sayın iggydarsa başarılar dilerim.

 

[iggydarsa]

"Liste" adinda bir sayfa yaratmaniz gerektigini soylemedigim icin ozur dilerim. Ayrica hazirda dusnmus oldugunuz bir isim varsa
Set rng = Sheets("Liste").Range("A1") satirinda "Liste" kelimesini istediginiz bir sayfa adiyla degistirebilirsiniz...