Sutunlari belirli bir aralikla atlatip veri cekme

[TolgaaaTR]

Herkese selam,

Location

Raw 1

Raw 2

Raw 3

Raw 4

Raw 5

Spent Material

Raw 1

Raw 2

Raw 3

Raw 4

Raw 5

Type:

Raw 1

Raw 2

Raw 3

Raw 4

Raw 5

Quantity:

Raw 1

Raw 2

Raw 3

Raw 4

Raw 5

1.gun

1L1

1L2

1L3

1L4

1L5

1.gun

1S1

1S2

1S3

1S4

1S5

1.gun

1T1

1T2

1T3

1T4

1T5

1.gun

1Q1

1Q2

1Q3

1Q4

1Q5

2.gun

2L1

2L2

2L3

2L4

2L5

2.gun

2S1

2S2

2S3

2S4

2S5

2.gun

2T1

2T2

2T3

2T4

2T5

2.gun

2Q1

2Q2

2Q3

2Q4

2Q5

3.gun

3L1

3L2

3L3

3L4

3L5

3.gun

3S1

3S2

3S3

3S4

3S5

3.gun

3T1

3T2

3T3

3T4

3T5

3.gun

3Q1

3Q2

3Q3

3Q4

3Q5

4.gun

4L1

4L2

4L3

4L4

4L5

4.gun

4S1

4S2

4S3

4S4

4S5

4.gun

4T1

4T2

4T3

4T4

4T5

4.gun

4Q1

4Q2

4Q3

4Q4

4Q5

5.gun

5L1

5L2

5L3

5L4

5L5

5.gun

5S1

5S2

5S3

5S4

5S5

5.gun

5T1

5T2

5T3

5T4

5T5

5.gun

5Q1

5Q2

5Q3

5Q4

5Q5

1. gun Raw1'ler farkli hucrelerde yanyana olacak sekilde
1. gun Raw2'ler farkli hucrelerde yanyana olacak sekilde
1. gun Raw3'ler farkli hucrelerde yanyana olacak sekilde
1. gun Raw4'ler farkli hucrelerde yanyana olacak sekilde
1. gun Raw5'ler farkli hucrelerde yanyana olacak sekilde.
1.gun listeleme bittikten sonra 2. gun de ayni duzende olacak gibi listeleme yapmak icin hangi komutlari kullanabilirim.
Tesekkurler.

farkindayim biraz karisik, gidilmesi gereken yolu bulamadim bir turlu.

 

[Necdet]

Merhaba,
Dosya.tc, dosya.co gibi paylaşım sitelerinden birine örnek dosyanızı yükleyin ve olması gereken durumu da belirtin.
Çözüme ulaşmanız daha hızlı olacaktır.

 

[TolgaaaTR]

Merhaba,
Dosya.tc, dosya.co gibi paylaşım sitelerinden birine örnek dosyanızı yükleyin ve olması gereken durumu da belirtin.
Çözüme ulaşmanız daha hızlı olacaktır.

Tesekkurler

 

[TolgaaaTR]

Merhaba,
Dosya.tc, dosya.co gibi paylaşım sitelerinden birine örnek dosyanızı yükleyin ve olması gereken durumu da belirtin.
Çözüme ulaşmanız daha hızlı olacaktır.

Satir_ve_Sutun_atlama.xlsx dosyasını indir - download

Satir_ve_Sutun_atlama.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Hocam bu sekilde yukledim.

 

[Necdet]

Merhaba,

Konu fonksiyon bölümünde soralmasına rağmen ben makrolu bir çözüm önerecem.
Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Public Sub DuzenleListele()

Dim ar1 As Variant, _
    ar2 As Variant, _
    i   As Long, _
    j   As Long, _
    k   As Integer, _
    m   As Integer, _
    n   As Integer, _
    s   As Integer, _
    grp As Integer
    
ar1 = Range("A1").CurrentRegion

grp = UBound(ar1, 2) / 6
ReDim ar2(1 To (UBound(ar1, 1) - 2) * (grp + 1), 1 To grp + 1)

For i = 3 To UBound(ar1, 1)

    For k = 2 To 6
        j = j + 1
        ar2(j, 1) = ar1(i, 1)
        m = k
        n = 1
        For s = 1 To 4
            n = n + 1
            ar2(j, n) = ar1(i, m)
            m = m + 6
        Next s
    Next k
    
Next i

Range("A" & UBound(ar1, 1) + 4).Resize(j, UBound(ar2, 2)) = ar2

End Sub