Regel invoeren werkt prima, maar datavalidatie krijg ik niet mee gekopieerd

Status
Niet open voor verdere reacties.
V

Vieri

Gebruiker
Lid geworden
12 jan 2013
Berichten
64
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

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!
 
probeer dit eens:

Code: 
With Selection
      .PasteSpecial xlPasteValidation
End With
 
Meer heb je niet nodig.
Code: 
sub hsv()
 ActiveCell.EntireRow.Insert xldown, xlbelow
end Sub
 
Thanks, ik was al aan het proberen met xlPasteValidation maar kreeg het niet kloppend. Nu dus wel.

HSV, bedankt. Met jouw code worden alleen bepaalde cellen niet samengevoegd, wat wel gebeurt met mijn code aangevuld met de oplossing van SjonR.

Erg bedankt voor het oplossen van mijn probleem.
 
Laatst bewerkt:
Samenvoegen en centreren geven vroeg of laat problemen.
Gebruik in de eigenschap 'uitlijnen centreren over selectie', dan doet die code het prima.

Anders.
Code: 
Sub hsv_2()
 With ActiveCell.EntireRow
  .Insert
  .Copy .Offset(-1)
  .Offset(-1).ClearContents
End With
End Sub
 
Een echte tabel gebruiken en dan met de rechtermuisknop een rij invoegen zal waarschijnlijk hetzelfde doen maar dan zonder VBA.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan