Makroer, indspilling

Dette er teksten i visual basic:

    Rows("7:7").Select
    Selection.Copy
    Rows("10:10").Select
    Selection.Insert Shift:=xlDown
    Range("A10:G10").Select
    Application.CutCopyMode = False
    Selection.ClearContents

Det er bare ikke A10 der skal være til indsætning, det er det man har markeret inden man aktiverer makroen.

Hvis du først skal markere den række du vil kopiere, så starte makroen, så markere den rækkedu vil indsætte over, og så fortsætte makroen må det være nemmere at foretage kopieringen manuelt.

Er det altid række 7, du vil kopiere?

Sub Test()
    Range("A7:k7").Copy
    ActiveCell.Offset(-1, 0).Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Hvis det hele række 7 kan du bruge
Rows("7:7").Copy i stedet for
Range("A7:k7").Copy

Nej det er ikke alltid række 7, det skal være sådan at brugeren af regnearket kan markere en række uafhængig af hvilket nummer, og så bliver der indsat en ny række foran eller bag denne.......

A7:k7 skal alstå erstattes med en formel der betyder at dette er den der er markeret i regnearket.

Altså en kopi af den markerede række ovenover denne?

Jeg forstår vist ikke helt ....
Hvad er det så for en række, som skal kopieres?

Så kan du prøve denne variant af janvogts kode:

Sub Test()
    ActiveCell.EntireRow.Copy
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

I dit eksempel ser det ud til, at det er række 7 som skal kopieres til et brugervalgt sted ...

janvogt-> Det var derfor jeg spurgte om det altid var række 7, der skal kopieres. Hvis det er en valgfri række, der skal kopieres til et valgfrit sted vil jeg fastholde mit oprindelige svar. Så ER det nemmere at gøre det manuelt.

Enig, jeg forstod godt dit spørgsmål :-)

Hvis det er foran skal koden se sådan ud:

Sub Test()
    ActiveCell.EntireRow.Copy
    Selection.Insert Shift:=xlUp
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

.

Om det er ovenover eller nedenunder er vel ret beset ligegyldigt, hvis de to rækker er fuldstændigt ens :-)

Tjah, bare bygget på richards formulering "indsat en ny række foran eller bag denne ...."

Jooo det er lidt vanskelig at forklare....... Men det hele drejer sig om nogle data der skal kopieres, f.eks hele række A7. (det kan selvfølgelig osse være flere rækker.

Det det egentlig drejer sig om er at man på en måde i visual basic kan bestemme placeringen ved at markerer en område på regnearket som det kopierede skal blive sat ind.

Det er alltid den samme række jeg skal kopiere, det eneste der varierer er placeringen.......

Nu forstår jeg ikke helt længere. Føst siger du, at det kan væøre en eller flere rækker, der skal kopieres. Men bagefter siger du, at det altid er den samme række.

Lad mig så prøveat spørge:

1. Er det altid den/de samme rækker (rækkenumre), der skal kopieres, eller kan det være forskellige rækkenumre?

2. Er det altid det samme sted, disse data skal indsættes, eller er det her du ønsker at kunne variere.

Hvis der skal kunne varieres to steder, altså både i det der skal kopieres, og det sted, hvor der skal sættes ind, er der efter min mening ikke vundet noget ved at lade en makro gøre arbejdet.

1. Det er alltid de samme data der skal kopieres.....

2. Ønsker at variere hvor dataen indsættes.

Så må janvogts løsning da også være god nok. Du skal bare rette

Rows("7:7").Copy

til den/de rækker, hvor data rent faktisk står.

Står de fx altid i række 7,8 og 8 skal du skrive

Rows("7:9").Copy

VBA-kommandoen ActiveCell tager udgangspunkt i det stedt man nu engang befinder sig på arket.

ActiveCell.Offset(-1, 0).Select går én række op i forhold til dette sted.