Opgelost Macro regel toevoegen

[henrie008]

Ik gebruik een macro om een regel toe te voegen die:
- de opmaak van de regel erboven meeneemt
- de tekst uit de regel niet meeneemt
Nu wil ik dat de tekst uit kolom C wel meeneemt van bovenliggende regel (dus alle tekst leeg maken m.u.v. kolom C )

Dit is de macro die ik nu gebruik:

Sub RijToevoegen()
    ActiveCell.EntireRow.Insert
    ActiveCell.FormatConditions.Delete
    ' =EN($C$14>"";$B$14=0)
    ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:="AND($B$15=0;$C$15>"")"
    'ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:="$C$15>''"
    ActiveCell.FormatConditions(1).Interior.ColorIndex = 3

    'Dim condition1 As Excel.FormatCondition
    'condition1 = ActiveCell.FormatConditions.Add( _
    '    Excel.XlFormatConditionType.xlCellFormula, _
    '    Excel.XlFormatConditionOperator.xlAnd, _
    '    "$C$14>"";$B$14=0")

    'condition1.Font.Bold = True
    'condition1.Interior.Color = xlblue

      End Sub

 

[snb]

Gebruik een dynamische tabel, dan gebeurt het automatisch zonder formules of VBA.

 

[AHulpje]

Sub RijToevoegen()
    r = ActiveCell.Row
    Rows(r).Copy
    Rows(r + 1).Insert Shift:=xlDown
    Rows(r + 1).ClearContents
    Cells(r + 1, 3) = Cells(r, 3)
End Sub

 

[henrie008]

Het werkt nog niet zoals ik wil
in bijlage een voorbeeld bestand
Ik heb de knop "regel invoegen"aangemaakt. nu wil ik graag:
- de opmaak van de regel erboven mee wordt genomen
- de tekst uit de regel erboven niet meeneemt
Nu wil ik dat de tekst uit kolom C en U (groen) wel meeneemt van bovenliggende regel (dus alle tekst leeg maken m.u.v. kolom C en U )

een ander probleem is nu, als ik tussen de regels ga staan wordt de opmaak wel gekopieerd, maar als ik onder de laatste regel ga staan (in voorbeeld regel 8 ) niet, en dat moet ook

 

[AHulpje]

Voor kolom U het volgende regeltje toevoegen:

    Cells(r + 1, 21) = Cells(r, 21)

Als je in een willekeurige rij gaat staan wordt die netjes gekopieerd, ik zie geen enkele reden waarom je daar voor de onderste rij van zou willen afwijken.

 

[emields]

Wees slim en vul uw tabel met een userform.

 

[henrie008]

Sub RijToevoegen()
    r = ActiveCell.Row
    Rows(r).Copy
    Rows(r + 1).Insert Shift:=xlDown
    Rows(r + 1).ClearContents
    Cells(r + 1, 3) = Cells(r, 3)
End Sub

Bijna goed, maar hij copieerd de tekst "keuze" in colom C, in plaats van de formule die er in staat

 

[AHulpje]

    Cells(r + 1, 3).Formula = Cells(r, 3).Formula

 

[henrie008]

Helemaal top, bedankt allemaal

 

[CorVerm]

Zou je zo vriendelijk willen zijn om jouw vraag op opgelost te zetten?
Je kunt dat doen in je eerste post.
Thanks.