Just nu i M3-nätverket
Jump to content

Flytta rad


Loka_2012

Recommended Posts

Hur gör man för att flytta hela raden automatiskt?

 

man mata in värden i A2:E2 och det lägger sig i

A4:E4 och om det fanns värden i A4:E4 flyttas de till

A5:E5 osv. :unsure:

Link to comment
Share on other sites

Det låter som om du vill skapa en form av formulär. Det vill säga fast plats för inmatning som sparas undan fint i tabellen per automatik.

 

För det krävs det VBA-kod och en knapp.

 

En knapp som fyrar av koden, VBA-kod som vet vad som ska kopieras och som vet var den ska leta efter plats att kopiera det till.

 

Inget svårt i sig men jag frågar innan jag gör något mer:

är detta vad du vill?

Link to comment
Share on other sites

Vill ha funktionen som ni säger båda.... skriver in ex. på rad 2 och det flyttas ner. antingen i ett formulär eller med en knapp hade varit bra.....

Link to comment
Share on other sites

Du får en bok av mig, med följande kod

Sub Knapp1_Klicka()
    Dim rnTarget As Range
    Set rnTarget = Blad1.Cells(Blad1.Rows.Count, 1).End(xlUp).Offset(1, 0)
   
    If Blad1.Range("A2") <> "" Then
        rnTarget.Resize(1, 5).Value = Blad1.Range("a2:E2").Value
    End If
End Sub

Ja, bäst att klistra in som bild även eftersom Eforum har ett javascript som sabbar kod:

post-8996-0-10184200-1437547444_thumb.png

Koden kopierar helt enkelt det som står på rad 2 till första lediga rad. Inte infogar, det här är enklare.

 

Fast att göra så den infogar istället går givetvis om du kräver det.

Kopiera.xls

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...