Periyodik olarak atlayarak veri yazdırma

[ehliyetsizsurucu]

Merhaba benim sorunum şu, sitede olan çözüm yollarını denedim fakat bir türlü başaramadım

https://drive.google.com/open?id=0B764HGlfpRKpWlNEU0N3bVRvUTg

bu dosya içerisinde yer alan sol tarafta ki tablo değerlerini sağdaki gibi düzenlemek istiyorum sağ taraftaki tablo periyodik olarak 17 satırda bir değer alması gerekiyor bunu bir türlü başaramadım, yardımcı olursanız sevinirim

 

[exceluygulamalari]

Merhaba benim sorunum şu, sitede olan çözüm yollarını denedim fakat bir türlü başaramadım

https://drive.google.com/open?id=0B764HGlfpRKpWlNEU0N3bVRvUTg

bu dosya içerisinde yer alan sol tarafta ki tablo değerlerini sağdaki gibi düzenlemek istiyorum sağ taraftaki tablo periyodik olarak 17 satırda bir değer alması gerekiyor bunu bir türlü başaramadım, yardımcı olursanız sevinirim

Merhabalar,
Chaninage bilgilerini en solda yeni bir sutün gibi yazarsanız (0+340.00 verisi 17 kere tekrar edecek ilk sutün olarak, sonra diğeri vs..) daha pratik şekilde çözüme ulaşabilirsiniz.

Bu şekilde oluşturacağınız tablo ile pivot tablo yardımıyla istediğiniz özeti çekebilirsiniz veya ÇOKETOPLA (SUMIFS) formülü ile istediğiniz özeti elde edebilirsiniz.

Umarım faydalı bulursunuz.
Saygılarımla.

 

[ehliyetsizsurucu]

Tam anlatmak istediğimi sanlatamadım sanırım

https://drive.google.com/open?id=0B764HGlfpRKpVkFwcV9wTy1NY2M

tablonun sol tarafı aşağıya doğru devam ediyor her bir station değeri için sağ taraftaki özet tabloyu oluşturmak istiyorum, ama bu tabloya yazdırmak istediğim değerler yine sol taraftaki kesitlerden gelecek olan değerler, sağ taraftaki yeni yapacağım tabloda iki satırın arasında 17 satır var sol tabloda bu sebeple bu 17 satır atlayarak sağ tabloya veri alma işini nasıl becerebilirim

 

[veyselemre]

Sub TEST()
    lst = Range("A3:B" & Cells(Rows.Count, 1).End(3).Row).Value
    sat = 4
    Range("h4:O" & Rows.Count).ClearContents
    s = Array(1, 2, 14, 6, 7, 9, 12)
    For i = 1 To UBound(lst) Step 17
        If lst(i, 1) = "" Then Exit For
        sut = 9
        Cells(sat, 8).Value = lst(i, 1)
        For ii = 0 To 6
            Cells(sat, sut + ii).Value = lst(i + s(ii), 2)
        Next ii
        sat = sat + 1
    Next i
End Sub

 

[ehliyetsizsurucu]

Anlatmaya açlıştığım şey söyle mesela sağdaki tabloda ilk satırdaki verileri

A4- B5- B6- B18-B10-B11-B13-B16 dan alıyor ben ikinci satırda 17 şer satır atlayarak
A21-B22-B23-B35-B14-B25-B30-B33 den almasını istiyorum

 

[ehliyetsizsurucu]

bunu nasıl kullanacağımı anlayamadım

 

[veyselemre]

bunu nasıl kullanacağımı anlayamadım

Forumdaki kodu kopyalayın...
Sayfa1 üzerinde sağ tıkla KODU GÖRÜNTÜLE kısmını tıkla
açılan pencereye kodu yapıştır F5 'e bas..

 

[sakman26]

selam,
alternatif olarak formüllerle yapılmış eki inceleyin..
kolay gelsin..

link : http://s6.dosya.tc/server6/p9f6e7/ANAYOL_KUBAJ_TABLOSU.xlsx.html

 

[ehliyetsizsurucu]

çok teşekkür ederim, bayağı işime yaradı fakat farklı tablolar da var, mesela aralık 17 değil de 16 olduğu zaman step 17'yi değiştirdim ve değerler uygun biçimde geldi fakat buna eğer ek satır eklemek ya da çıkarmak istersem bunları s=array kısmındaki sayılarla mı halledeceğim?