Beste,
Ik wil cellen copieren van een shiftrooster en plakken in een range met dropdownlist en daarbij de kleuren behouden maar niet de voorwaardelijke opmaak.
Komt goed Piet, we gaan er mee aan de slag.
Lees hier wat handige tips voor het plaatsen van een vraag over Excel & VBA
Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!
Blij met de oplossing? Klik dan hier en maak onze penningmeester blij!
Bestudeer dit eens.
https://www.helpmij.nl/forum/showthr...=1#post6356731
____________
Met vriendelijke groet,
Harry
Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
(Grunnegs-Gronings)
Mvg,
Piet
Heb de onderstaande code gevonden en gebruikt welke voor mij perfect werkt.
Gezocht op vervangen van dynamische voor statische opmaak, zie code:
Sub FreezeConditionalFormattingOnSelection()
Dim Rng As Range, cel As Range, rng2 As Range
On Error GoTo Step102
Step101:
Set Rng = Application.Selection
Set Rng = Application.InputBox(Prompt:="Select range to check for conditional formatting", Title:="Select range", Default:=Rng.Address, Type:=8)
If Rng.Rows.Count < 2 Or Rng.Columns.Count < 2 Then
MsgBox "Please select a range containing more than 2 cells. Reselect range!!", vbCritical, "Range selection error"
GoTo Step101
End If
Set rng2 = Rng.Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each cel In rng2
With cel
.Interior.Color = .DisplayFormat.Interior.Color
.Font.Color = .DisplayFormat.Font.Color
.Font.Bold = .DisplayFormat.Font.Bold
.Font.Italic = .DisplayFormat.Font.Italic
End With
Next
Rng.FormatConditions.Delete
Exit Sub
Step102:
MsgBox "No conditional formatting cells found in selected range.", vbInformation, "No conditional formats found"
End Sub
Berichtenregels
