Hallo, lang gezocht naar een oplossing, maar in onderstaande code krijg ik het maar niet voorelkaar om de aanwezige datavalidatie in de rij mee te kopieren met het invoegen van een nieuwe regel.
Boven de actieve cel wordt een nieuwe regel ingevoerd die qua opmaak identiek is, binnen een naambereik valt, maar ontbreekt de datavalidatie
Iemand de laatste aanvulling?
Alvast bedankt!
Boven de actieve cel wordt een nieuwe regel ingevoerd die qua opmaak identiek is, binnen een naambereik valt, maar ontbreekt de datavalidatie
Code:
With ActiveCell
.EntireRow.Select
.EntireRow.Insert
.EntireRow.Copy
End With
With Selection
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Iemand de laatste aanvulling?
Alvast bedankt!