Avatar billede dj-sejler Praktikant
17. februar 2012 - 11:12 Der er 4 kommentarer og
1 løsning

VBA - Vælg den sidste linie og indsæt række

Hej

Jeg har et excel ark hvor jeg har en masse data.

De nederste 2 linie skal forblive de nederste, men jeg vil meget gerne kunne sætte en linie ind over dem og skrive en formel i celle A (cellen over +1) og celle G skal der bare skrives "T"

Og det hele må meget gerne adlyde genvejen CTRL+SHIFT+N

Det haster desværre lidt...
Avatar billede supertekst Ekspert
17. februar 2012 - 11:57 #1
Her er koden:

Sub indsætLinje()
Dim sidsteRække As Long, nyRække As String
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    nyRække = sidsteRække - 1 & ":" & sidsteRække - 1
   
    Rows(nyRække).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G" & Selection.Row) = "T"
End Sub
Avatar billede supertekst Ekspert
17. februar 2012 - 11:58 #2
obs - glemte lige celleA
Avatar billede supertekst Ekspert
17. februar 2012 - 12:57 #3
Sub indsætLinje()
Dim sidsteRække As Long, nyRække As String
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    nyRække = sidsteRække - 1 & ":" & sidsteRække - 1
   
    Rows(nyRække).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"
    Range("G" & Selection.Row) = "T"
End Sub
Avatar billede dj-sejler Praktikant
21. februar 2012 - 09:04 #4
ja tak det virker perfekt!
MEN

er det muligt at i stedet for den nederste linie, så gå ud fra den linie der står eks: "Indsæt herover!" den står i kolonne A

Toste
Avatar billede supertekst Ekspert
21. februar 2012 - 09:37 #5
Jeg synes vi skal afslutte dette spørgsmål.

Så kan du oprette et nyt..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester