Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketTilføj række med værdier

 Besvar Besvar
Forfatter
kevinbs96 Se dropdown
Forum Begynder
Forum Begynder


Medlem: 14.Maj.2018
Land: Danmark
Status: Offline
Point: 1
Direkte link til dette indlæg Emne: Tilføj række med værdier
    Sendt: 14.Maj.2018 kl. 18:25
Hejsa. Første indlæg, og ny bruger. Håber i kan hjælpe, da jeg står på bar bund. Jeg skal indsætte specifikke værdier i hver celle, f.eks. "TOM" i kollone A, osv. op til kollone "F". Jeg har fundet nedenstående makro, som virker fint, men dog tilføjer en blank række. Nogen måde at indsætte definerede værdier i den nye række vha. makro?

  • Sub Macro4()

  • Dim lRow As Long
  • For lRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row To 3 Step -1
  •     If Cells(lRow, "F") <> Cells(lRow - 1, "F") Then Rows(lRow).EntireRow.Insert
  • Next lRow

  • End Sub
Venligste hilsner, Kevin. 
Til top



Til top
TheSunner Se dropdown
Forum Begynder
Forum Begynder


Medlem: 15.Okt.2013
Land: Danmark
Status: Offline
Point: 8
Direkte link til dette indlæg Sendt: 05.Jun.2018 kl. 10:20
Hej

En simple måde kunne være nedenstående.

' Sæt kolonne F til 1
    Range("F2").Select
    ActiveCell.FormulaR1C1 = 1
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F25"), Type:=xlFillCopy
    Range("F2:F25").Select

God fornøjelse

Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk