Just nu i M3-nätverket
Gå till innehåll
Loka_2012

Flytta om rader

Rekommendera Poster

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.)

Redigerad av Loka_2012

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

 

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) ???

Redigerad av Loka_2012

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...