Macro til at indsætte tom række (med formler)

Det er jo sådan noget Access er god til ;-)

---> bitphil

Checkede lige Access spørgsmålene uden at lede efter en løsning, men så næsten lutter gule flag!

Men måske har du ret! Jeg har bare ingen erfaring i at danne en fornuftig liste/udskrift i Access.

Jeg er ikke helt sikker på om dette er hvad du leder efter, men prøv det i en kopi af din fil. Funktionen benytter sig af subtotaler:

Sub SubTot()

    Range("a2").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Cells.Replace What:="* Total", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    For Each c In ActiveSheet.UsedRange.Cells
    If c.Column = 1 Then
    If c.Row > 1 Then
        c.Offset(-1, 0).Activate
        a = ActiveCell.Address
        If c = "" Then
            c.Formula = "=VLOOKUP(" & a & ",deb!a1:b10,2)"
        End If
    End If
    End If
    Next c
    ActiveWindow.DisplayOutline = False
End Sub

VLOOKUP skal naturligvis rettes til A1:B1500, men jeg orkede ikke at indsætte så mange data :-)

Jeg mente også mere generelt, at Access eller en anden database, er god til sådan nogle ting som at have kunder, varer, bestillinger, totaler og nye oprettelser af disse. Og så så det også ud som om at du var ved at nå 'grænsen' af hvad der er lettest at håndtere i Excel.
Og Access er ikke så farlig at komme i gang med - og så har de jo faktisk at det der firmasjov med kunder, varer og bestillinger liggende i deres eksempeldatabase Northwind. Men det hjælper selvføli' ikke noget lige nu hvor man står og har behov for det i Excel.

Har du prøvet om makroen løser dit problem?

Makroen virker fint.

Har udbygget den lidt ved tilføje ",4,5" i argumentet "TotalList:=Array(3,4,5)".

"5" er summering af dækningsbidraget, nu ville det være KANON, hvis jeg i kollonne 6/F kunne beregne dækningsbidragsprocenten med =F/C (=6/3).

Jeg har bladret/søgt i hjælpeteksten for at forstå makroen, men kan ikke finde: xlsum, SummaryBelowData etc. Hvor kommer de kommandoer fra?

tobler: Det er faktisk mere simpelt end du tror. Optag en macro, og gør præcis det du ønsker. Herefter kan du rette en smule i macroen, og du har hvad du ønsker :o)

De to kommandoer du søger kommer fra den indbyggede funktion Subtotal.

Prøv at se på denne kode om ikke det er noget i den retning du søger:

Sub Subtot()
    Range("a2").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Cells.Replace What:="* Total", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    For Each c In ActiveSheet.UsedRange.Cells
    If c.Column = 1 Then
    If c.Row > 1 Then
        c.Offset(-1, 0).Activate
        a = ActiveCell.Address
        If c = "" Then
            c.Formula = "=VLOOKUP(" & a & ",deb!a1:b10,2)"
            ro = ActiveCell.Row
            ActiveCell.Offset(1, 5).Formula = "=E" & ro + 1 & "/C" & ro + 1 & "*100"
        End If
       
    End If
    End If
   
    Next c
    ActiveWindow.DisplayOutline = False

End Sub