Flytta om rader

[Loka_2012]

kan någon hjälpa mig att flytta om rader i vba, ex. första raden byter med sista och andra med näst sista, det blir väll någon slags loop och en temp plats eller??? (ex. B:B bli K:K, C:C till J:J osv.)

[Monshi]

Något i stil med detta kanske?

Sub MyMover()
    Dim rnStart As Range
    Dim rnEnd As Range
    Dim rwCount As Integer
    
    Set rnStart = Me.Range("A1")
    Set rnEnd = Me.Range("a1").End(xlDown)
    rwCount = Int(rnEnd.Row / 2)
    Dim i As Integer
    For i = 1 To rwCount
        rnEnd.Cells(-i + 2, 1).EntireRow.Copy rnEnd.Offset(1)
        rnStart.Cells(i, 1).EntireRow.Copy rnEnd.Cells(-i + 2, 1)
        rnEnd.Offset(1).EntireRow.Copy rnStart.Cells(i, 1)
    Next
    rnEnd.Offset(1).EntireRow.Clear
End Sub

[Loka_2012]

 

Något i stil med detta kanske?

Sub MyMover()
    Dim rnStart As Range
    Dim rnEnd As Range
    Dim rwCount As Integer
    
    Set rnStart = Me.Range("A1")
    Set rnEnd = Me.Range("a1").End(xlDown)
    rwCount = Int(rnEnd.Row / 2)
    Dim i As Integer
    For i = 1 To rwCount
        rnEnd.Cells(-i + 2, 1).EntireRow.Copy rnEnd.Offset(1)
        rnStart.Cells(i, 1).EntireRow.Copy rnEnd.Cells(-i + 2, 1)
        rnEnd.Offset(1).EntireRow.Copy rnStart.Cells(i, 1)
    Next
    rnEnd.Offset(1).EntireRow.Clear
End Sub

Det blir konstigt, något stämmer inte i koden... raden försvinner... (tror det har med de tomma cellerna) ???

[Monshi]

Vilken rad?

 

Jag testar skriva in dels 1 till 22 i A1 och nedåt och även 1 till 21 och testar. Den flyttar om så hela tabellen blir omvänd.

Du måste kanske uppdatera referenserna så att de blir rätt.

Notera att koden utgår från att raden under dina värden är ledig och använder den som temporär plats för den rad som kopieras.

Och koden utgår från att din tabell startar i A1. Anpassa denna referens efter där dina värden, dina rader börjar.

 

Samt området måste vara kontinuerligt i A-kolumnen, dvs värde på varje rad.

[Monshi]

MH, det missade jag.

 

men koden lätt att ändra för att skyffla om kolumner istället för rader.