Yanyana Veriler alt alta koşullu gelsin.

[lasera]

Merhabalar hayırlı günler iyi ki burası varmış diyerek sorumu soruyorum

Yaklaşık 100 satır verim var hergün değişiyor bu satır sayısı. Şöyle bir bilgi ediniyorum.


Kod No Adı No2 Adı No3 Adı
550 255 isim 369 isim2 758 İsim3
575 125 isimb 450 isimdf 585 İsimpo
595 697 isimc 927 isimsd 999 İsimdfd
547 673 isimd 345 isimas 356 isimjhy

Bunları alt alta aşağıdaki gibi sıralatmak istiyorum, acaba nasıl yapabiliriz yardımlarınızı rica ediyorum.

550 255 isim
550 369 isim2
550 758 isim3
575 125 isimb
575 450 isimdf
575 585 isimpo
595 697 isimc
595 927 isimsd
595 999 isimdfd

bu şekilde olmasını istiyoruz

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

Sub Emre()
    Dim i%, a%, b%
    Application.ScreenUpdating = False
    Range("K:M").ClearContents
    For i = 2 To Range("A65536").End(3).Row
        For a = 1 To 7 Step 2
            b = b + 1
            Cells(b, "K") = Cells(i, 1)
            Cells(b, "L") = Cells(i, a + 1)
            Cells(b, "M") = Cells(i, a + 2)
            If Cells(b, "L") = "" Then
                Range("K" & b & ":M" & b).Delete Shift:=xlUp
            End If
        Next a
    Next i
    Range("K1:M" & Range("K65536").End(3).Row).SpecialCells(4).Delete Shift:=xlUp
    Application.ScreenUpdating = True
End Sub

 

[lasera]

Teşekkürler fakat bu işimi görmedi olmuyor.


Runtime Error Type mismatch hatası

If Cells(b, "L") = "" Then