rij invoegen met behoud van voorwaardelijk opmaak ?

[grema]

Kan je een rij invoegen in een bestand met behoud van voorwaardelijke opmaak ?

De rij invoegen lukt me .

De voorwaardelijke opmaak meenemen niet .

Is dit haalbaar ?


grema

 

[tilpi]

Als je een rij invoegt ONDER de rij met voorwaardelijke opmaak dan wordt dat gewoon meegenomen.

Mvg

Piet

 

[Wigi]

Je moet wel een vinkje plaatsen bij Extra > Opties > Bewerken > Extend data range formats and formulas (in het Nederlands)

Wigi

 

[grema]

Bijgevoed voorbeeldje

Rij bijvoegen gaat ; Maar via de aangemaakte knop " rij +1 "
lukt het niet .

Daar geef ik het commando rij +1.
inhoud verwijderen

maar dan is het de bedoeling dat de voorwaardelijke opmaak niet mee verdwijnt.

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

'k zit weer even vast.

Kan iemand nog even inspringen ?? Alvast dank .

grema

 

[grema]

in bijlage bestandje

in bijlage bestandje.

probleem zit het in een vba code waarbij de voorwaardelijke opmaak dient te worden overgenomen.

Zolas je zal zien kan de rij bijgevoegd worden door op knop " + rij " te drukken ;
maar de voorwaardelijk opmaak van de cellen gaan niet mee .

Hoe kan ik dit verhelpen ????

 

[tilpi]

Het probleem zat hem voornamelijk, dat de voorwaardelijke opmaak absolute celadressen hadden. Dat heb ik verholpen.
Verder heb ik de macro herschreven (zal nog wel mooier kunnen)
Maar nu hoef je ook niet meer de cursor te positioneren.
Op de knop drukken is genoeg.

Mvg

Piet

 

[grema]

tilpi ,


bedankt :thumb: ; dit is wat ik zocht .

Nu kan ik m'n idee verder uitwerken.

Alvast dank aan " de help-mij-ers " voor de steun voor de steeds weer moedige inzet om
al de lastige vraagjes op te helpen oplossen; :thumb: :thumb: :thumb:

grema

 

[LucB]

Als de code korter mag, probeer deze dan eens.

 

[tilpi]

Hij is dan wel korter, maar hij kopieert de formules niet mee.

Mvg

Piet

 

[grema]

tilpi,

De formule werkt perfekt en voegt telkens een lijn bij.

Wat als je nu een totaal maakt van bepaalde kolommen .

Dan gaat hij onder de totalen een lijn bijvoegen. Het was m'n bedoeling om tussen te voegen (( " insert row " )) .

Kan dit ook . ??

 

[grema]

invoegen van lijn met behoud van eigenschappen

bijlage met fout op invoegen .

Bij lijn kopieren ; wordt de lijn onderaan bijgevoegd.

Wat met invoegen .

Probeerde reeds verschillende combinaties ( voor zover ik er al iets van snap)

Wie weet meer ?

grema

 

[tilpi]

Volgens mij doet'ie het.

Mvg

Piet

 

[grema]

piet


Krijg een gek fenomeen .

De lijn wordt wel degelijk tussengevoegd maar de formule voor kolom M ; K; H
gaan niet mee.


Tevens komt het totaal niet uit ( verschuift geen lijn lager )

bekijk je dit nog even

alvast dank

grema

 

[tilpi]

Vreemd. Bij mij gaat alles foutloos.

Je hebt toch wel acht geslagen op de opmerkingen??

Dus eventueel alle regels zonder formules in M, K en H verwijderen en zorgen dat er slechts één blanco regel aanwezig is.
Als je dan zorgt, dat minstens kolom B (Aantal) ingevuld is kan er weinig fout gaan.

Mvg

Piet

 

[grema]

Piet of collegas

kom weer even raad vragen :

in bijlage de VBA aangepast om de formule BRUTTO-%= netto

mee te krijgen in volgende lijn.

Dit lukt niet === Ik doe iets verkeerd. Wat ???

Kan je tevens uitleggen wat ik in het groen aanduidde in de VBA a.u.b

Dank


grema

 

[tilpi]

Ik heb een formule in kolom H gemist. Is aangepast.

'Bereik " M65000" tot einde ----??? Offset (-4,0 ) ????? wat wil dit zeggen.??
Da wil zeggen: Hij gaat eerst naar M65000 (Kan maximaal 65536 zijn maar 65000 lijkt ver genoeg) en EndxlUp kijkgt dan naar boven naar de eerst gevulde cel (in dit geval M33)
Offset (-4,0 ) wil zeggen dat vanaf deze plaats 4 rijen naar boven en 0 kolommen maar links of rechts moet kijken. Dus op die hoogte moet hij de cel selecteren en één regel lager (ActiveCell.Offset(1, 0).Select) kopieren

Mvg

Piet

 

[grema]

piet,

super deluxe uitvoering. :thumb:

Prachtig .

Bedankt voor de snelle reactie en de uitleg .

groetjes

grema