Marker B15:F15, kopier, marker A15, paste : med makro

Sub test()
' Makro1 Makro
' Genvejstast:Ctrl+m
    række = ActiveCell.Row
   
    Range("B" + CStr(række) + ":F" + CStr(række)).Select
    Selection.Copy
    Range("A" + CStr(række)).Select
    ActiveSheet.Paste
    Range("A" + CStr(række)).Select
End Sub

ja det ser jo nem ud ... :-)
jeg glemte at spørge om det virker på kolonner også
så man kan stå et vilkårligt sted, køre makro
og så kopieres 5 celler til højre og paste 1 til venstre?
kan ikke lige gennemskue om den kan det !
giver gerne flere point om nødvendigt
på forhand tak
ellers blot skriv et svar og point er på vej
v.h. Poul

En lille udvidelse - måske kan du så tilpasse koden til det du ønsker- hvis du kan se systemet?

Sub test()
' Makro1 Makro
' Genvejstast:Ctrl+m
    række = ActiveCell.Row
    kolonne = ActiveCell.Column
    kolonnenr = Asc(kolonne)
    kolonnebogstav = Chr(kolonnenr + 48)
    kolonnebogstav2 = Chr(kolonnenr + 52)
   
    Range(kolonnebogstav + CStr(række) + ":" + kolonnebogstav2 + CStr(række)).Select
    Selection.Copy
    Range("A" + CStr(række)).Select
    ActiveSheet.Paste
    Range("A" + CStr(række)).Select
End Sub


Her er også et svar - men giv blot signal hvis du skal have yderligere hjælp

MVH
Supertekst
v/Peter Braagaard

lidt kortere

Sub makro2()
  ActiveCell.Resize(, 5).Copy ActiveCell(1, 0)
End Sub