[Løst] Kopiere celler til et annet ark

[Betong]

Har spilt inn en makro for å kopiere D11:D27 fra arket Sikteanalyse til Ark1:

 

Sub Overføring_til_samleark()

'

' Overføring_til_samleark Makro

' Overfører data til et samleark

'

 

'

    Range("D11:D27").Select

    Selection.Copy

    Sheets("Ark1").Select

    Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

 

 

Dette fungerer, men jeg ønsker at neste gang jeg trykker på knappen "Overfør", skal cellene kopieres til første ledige kolonne. Ikke kolonne A.

 

Noen som kan hjelpe meg?

 

 

 

[Horten Market]

Siste brukte kolonne i rad 1 kan du finne slik:

 

        With Worksheets("Ark1")
            SisteKolonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
        End With

 

SisteKolonne vil gi 1 for A, 2 for B osv. Det blir da enklere for deg å bytte:

       

        Range("A1").Select

 

med:

 

        Cells(1, SisteKolonne+1).Select

Endret 23. november 2016 av Horten Market

[Betong]

Siste brukte kolonne i rad 1 kan du finne slik:

 

        With Worksheets("Ark1")

            SisteKolonne = .Cells(1, .Columns.Count).End(xlToLeft).Column

        End With

 

SisteKolonne vil gi 1 for A, 2 for B osv. Det blir da enklere for deg å bytte:

       

        Range("A1").Select

 

med:

 

        Cells(1, SisteKolonne+1).Select

 

 

Jippi, dette fungerer!

Min første makro

Takk for hjelpen

Endret 23. november 2016 av Betong