Başka bir Sayfada Listeleme yapmak

[Cibali]

Merhaba,
Üstadlarımdan bir isteği olacak,
Örnek dosya içinde,
Günlük Çalışma sayfasındaki verileri Sıra ile Tarih Açıklama olarak İndex çalışma sayfasına aktarmak istiyorum,
3-4 senelik verileri tek bir sayfada En son Tarihden geriye doğru sıralamak istiyorum,
Yardımlarınız için şmdiden TTeşekkür ederim


http://s7.dosya.tc/server14/wgu2je/Deneme.rar.html

 

[ÖmerBey]

Merhaba,
Örnek dosyanız için aşağıdaki kodu deneyiniz.

Sub kod()
Dim G As Worksheet, I As Worksheet
Dim a As Integer, b As Integer, x As Integer
Set G = Sheets("Günlük ")
Set I = Sheets("İndex")
x = 2
For b = G.Cells(1, Columns.Count).End(xlToLeft).Column - 1 To 2 Step -3
    For a = 4 To G.Cells(Rows.Count, b).End(3).Row
        If G.Cells(a, b) <> "" Then
            x = x + 1
            I.Cells(x, 2).Value = x - 2
            I.Cells(x, 3).Resize(, 2).Value = G.Cells(a, b).Resize(, 2).Value
        End If
    Next
    x = x + 1
Next
End Sub

 

[Cibali]

Hocam Teşekkür ederim,
Şöyle bir sorun var,
Çalışma sayfasında Kod Görüntüle dedikten sonra
RUN dediğimizde güncelleme yapıyor,
Ayrıca Veri başlangıcı J ve K sütunları,
Her Ayın başlangıcında 1 boşluk ya da hangi ay yazabilirmi,
Bunu kendiliğinden Otomatik aktarım yapabilirmi,

Teşekkürler

 

[ÖmerBey]

Kod görüntülemeye girmeden Alt+F8 ile de çalıştırabilirsiniz.
Otomatik olması için yukarıdaki kodu boş bir modüle kopyalayınız.
Daha sonra İndex sayfasının kod bölümüne aşağıdaki kodu kopyalayın. Böylece İndex sayfasına her girdiğinizde kod otomatik olarak çalışacaktır.

Private Sub Worksheet_Activate()
Call kod
End Sub

 

[Cibali]

Hocam çok teşekkür ederim,
Çok güzel çalışıyor,
İlave bir sorum olacak,
Sizi fazla yormak da istemiyorum,
İndex taramasında İndex sayfasının sonunda G sütunu içeriğini yazıyor,
ben ise J Sütunu ve sonrasının yazmasını istiyorum
ayrıca 1 ve 3 ncü satırları da ekeleyebilirmiyiz index lemede

 

[ÖmerBey]

İndex taramasında İndex sayfasının sonunda G sütunu içeriğini yazıyor,
ben ise J Sütunu ve sonrasının yazmasını istiyorum

Sizin örnek dosyanızla işlem yaptığınız dosya farklı mı?

 

[Cibali]

Evet Hocam,
Asıl dosyanın Ebadı ve içeriği fazla,
Kusuruma bakmayın

 

[ÖmerBey]

Ebat ve içerik önemli değil dosya yapısını soruyorum.
Örnek dosyanızın J sütununda veri yok. Israrla J sütunundan bahsediyorsunuz.
Size yardımcı olabilmem için örnek dosyanızın yapısının asıl dosyanızla aynı olması gerekiyor.

 

[Cibali]

Ömer Hocam ,
Öncelikle kusuruma bakmayın 1-2 gündür PC başında değildim,
For b = G.Cells(1, Columns.Count).End(xlToLeft).Column - 1 To 1 Step -3
For b = G.Cells(1, Columns.Count).End(xlToLeft).Column - 1 To 8 Step -3
yapınca sorun çözülmüş oldu
Desteğiniz için çok Teşekkür ederim,
Saygılarımla