excel terse çevirme yöntemi(farklı)

[Karahisar03]

[TR][TD]
merhab excelde çevirme ile igili problemim var yardımcı olursanız sevinirim
[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

İndir soru

Dosyayı indir soru

dosya.co

[/TD]
[TD]

[/TD][/TR]

 

[Merhum İdris SERDAR]

.

Dosyanız burada.

İndir soru

Dosyayı indir soru

dosya.co

.

 

[veyselemre]

Sub test()
    veri = Sheets("Sayfa1").Range("A1").CurrentRegion.Value
    If UBound(veri, 2) < 2 Then Exit Sub
    With Sheets("Sayfa2")
        .Range("A:B").Clear
        sat = 0
        For i = 2 To UBound(veri, 2)
            For ii = 1 To 4
                .Cells(sat + ii, 1).Value = veri(ii, 1)
                .Cells(sat + ii, 2).Value = veri(ii, i)
            Next ii
                .Cells(sat + 1, 1).Resize(4, 2).Interior.Color = Array(rgbLightSteelBlue, rgbAliceBlue)(i Mod 2)
            sat = sat + 4
        Next i
    End With
End Sub

 

[Karahisar03]

İlginiz için teşekkürler.

hata verdi sürükleme yaptığımda doyada gösterdim bakabilirmisiniz

İndir soru xlsx

Dosyayı indir soru xlsx

dosya.co

 

[Karahisar03]

Sub test()
    veri = Sheets("Sayfa1").Range("A1").CurrentRegion.Value
    If UBound(veri, 2) < 2 Then Exit Sub
    With Sheets("Sayfa2")
        .Range("A:B").Clear
        sat = 0
        For i = 2 To UBound(veri, 2)
            For ii = 1 To 4
                .Cells(sat + ii, 1).Value = veri(ii, 1)
                .Cells(sat + ii, 2).Value = veri(ii, i)
            Next ii
                .Cells(sat + 1, 1).Resize(4, 2).Interior.Color = Array(rgbLightSteelBlue, rgbAliceBlue)(i Mod 2)
            sat = sat + 4
        Next i
    End With
End Sub

açıkcası exceli bukadar iyi bilmiyorum nereye kopyalamam gerektiğine bakıcam ve oldu olmadı bakcam.teşekkürler

 

[Merhum İdris SERDAR]

.

Sayfa1'deki verileri devam ettirin ve tanımlanmış alanları da uzatın. O zaman hata vermez..

.

 

[Karahisar03]

Çok Teşekkürler oldu