[Excel 2003] Opmaak meenemen in Vlookup macro *

[3xNix]

Goede middag,

Ik probeer uit een oud bestand data te halen, en dat lukt perfect.
Het enige probleem dat ik heb is dat de opmaak(cel kleur) niet meegenomen wordt.

Is hier een oplossing voor?

Macro

Visual Basic .NET:

Sub info()

    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],[Sheet2]Sheet2!C8:C11,4,0)"
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Range("K2").AutoFill Destination:=Range("K2:K" & LastRow)
   
    Columns("K:K").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("K:K").EntireColumn.AutoFit
    
End Sub

[Dirk]

Office 2007 heeft de volgende PasteSpecial optie: xlPasteValuesAndNumberFormats, werkt die ook in 2003? Anders zul je 2x moeten plakken, 1x waardes en 1x numberformat.

Alhoewel, die autofill kan de oorspronkelijke opmaak al wel eens overschrijven, iets wat in office 2007 ook te voorkomen is. Waar gaat het precies fout?

[ Voor 31% gewijzigd door Dirk op 13-10-2010 16:30 ]

[3xNix]

Nouja, de vlookup kopieert de opmaak niet, alleen de cel waarde...

[Dirk]

Je bedoeld dat de VLOOKUP-functie de opmaak van die cel moet overnemen, waar hij de data ook uit haalt? Dat kan hij niet. Dan zul je de VLOOKUP-functie moeten vervangen door een macro-functie die de VLOOKUP-functionaliteit namaakt en daarbij ook de opmaak kopieert.