voorwaardelijke opmaak doortrekken

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Hallo,

Ik wil een voorwaardelijke opmaak van B2:Y2 doortrekken tot de laatste regel van het bestand.
Nu heb ik een beetje zitten proberen, maar is niet gelukt.
Ik had dit in gedachten, maar dit werkt helaas niet.
Code: 
Sub voorwaardelijke_opmaak_doortrekken()

Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2:Y2" & lr).xlPasteFormats = Range("B2:Y").xlPasteFormats
End Sub
 
Dit kun je heel makkelijk regelen in de ingebouwde VO van Excel.
 
Het is geen vast bestand.
ik haal een bestand uit de databas binnen met vba, zet er formules in + voorwaardelijke opmaak. (die afwijkingen kleurt).
 
Code: 
Sub jj()
Range("B2:Y2").Copy
Range("B3", Cells(Rows.Count, 25).End(xlUp)).PasteSpecial xlPasteFormats
End Sub
 
Je code klopt niet.
Ik denk dat je dit bedoelt:
Code: 
Sub voorwaardelijke_opmaak_doortrekken()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("B2:Y" & lr).xlPasteFormats = Range("B2:Y2").xlPasteFormats
End Sub

Maar je kan beter een voorbeeld bestandje plaatsen.
Want ik denk niet dat er gaat gebeuren wat je verwacht.
 
Laatst bewerkt:
Edmoor, klopt, ik heb van een bestaande vba code (formula) vervangen door xlPasteformats, maar dat bestaat waarschijnlijkt niet :)
Ik heb het bestand toegevoegd, normaal heeft het meer regels. B2 t/m Y2 hebben een voorwaardelijke opmaak. Deze wil ik doortrekken met een VBA formule.
 

Bijlagen

  • voorwaardelijke opmaak.xlsx
    30,6 KB · Weergaven: 16
Heb je de suggestie van jveer in #4 getest?
 
Maak er een echte tabel van dan gaat het vanzelf.
 
1 opmaakregel is voldoende. Daarnaast is het niet handig om opmaakregels te kopiëren omdat je dan nog meer versplintering krijgt. Nog beter is het om de suggestie in #8 te volgen.

Code: 
Sub VenA()
  With Range("B2:Y" & Cells(Rows.Count, 1).End(xlUp).Row).FormatConditions
    .Delete
    .Add 2, , "=B2<>Z2"
    .Item(1).Interior.Color = 49407
  End With
End Sub
 
VenA, ik neem deze ook mee zoals zo velen van jou. Sla ze altijd op en gebruik ze regelmatig.
Dank je wederom.
Gr. Peter
 
Of ?

Code: 
Sub M_snb()
  Cells(2, 2).FormatConditions(1).AppliesTo = Cells(2, 2).CurrentRegion.Resize(, 24)
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan