Variabel bereik

[Ericssport]

Ik heb al veel geleerd dankzij de hulp van dit forum en kan ook steeds meer zelf maken en/of uitvogelen. Helaas loop ik nu weer tegen een probleem op waar ik niet uitkom..

Middels een dubbelklik functie kopieer ik een rij en voeg ik een lege rij toe. In de lege rij moet een subtotaal stand komen van de cellen daarboven. Alleen waar deze regels moeten komen verschilt nogal eens. Wie kan me helpen de formule zote maken dat hij alleen de cellen boven het subtotaal meerekend. Zodanig dat hij niet de totaalstand beinvloed..

 

[snb]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Rows(Target.Row)
      .Offset(1).Insert
      .Resize(2).FillDown
    End With
End Sub

 

[Ericssport]

Bedankt voor je reactie,

Jammer genoeg gebeurd er niet wat ik voor ogen had. Waarschijnlijk omdat ik het ook een beetje chaotisch omschreven had.

Middels een dubbelklik moet er twee rijen ingevoegd worden, de eerste regel is leeg en moet een subtotaal stand geven in kolom J. Deze variabele formule is mij nog niet gelukt.

De tweede regel moet een kopie zijn van de regel waar de cel is aangeklikt, maar alleen tot de aangeklikte cell !!

Ik hoop de het beetje duidelijk is..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Cancel = True
    Target.EntireRow.Copy
    Cells(Target.Row + 1, 1).EntireRow.Insert
    Cells(Target.Row + 1, 1).EntireRow.Insert

        Cells(Target.Row + 1, "J").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)" 'Hier zou een variabele formule moeten komen, afhankelijk welke cel/regel je je aanklikt
        Cells(Target.Row + 1, "J").Font.Bold = True
        
            Application.CutCopyMode = False

                Range("J17").Select
                Selection.FormulaR1C1 = ""
                ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C,R[-15]C:R[-10]C)" 'Ook hier zou een variabele formule moeten komen, afhankelijk welke cel/regel je je aanklikt
                Range("J18").Select
    
    On Error Resume Next

End Sub

 

[Wigi]

Zo dan, DENK ik te kunnen opmaken uit je uitleg.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Rows(Target.Row)
        .Offset(1).Resize(2).Insert
        Range("J" & .Row).Resize(2).FillDown
        Range("A" & .Row, Target).Offset(2) = Range("A" & .Row, Target).Value
    End With
End Sub

Wigi