kopieren en plakken zonder selecteren

Status
Niet open voor verdere reacties.

jofred

Gebruiker
Lid geworden
16 dec 2006
Berichten
172
Ik probeer een formule te kopieren vanuit een cel (A5) en te plakken in een aantal andere cellen (A5 t/m A42943).
Dit wil ik doen zonder de cellen te selecteren, omdat deze routine deel uitmaakt van een groter geheel met verschillende werkbladen en bestanden.
Echter loop ik tegen een foutmelding aan : Methode Range van object _Worksheet is mislukt.

Ik heb al een aantal aanpassingen geprobeerd, maar niets lijkt te helpen.
Hieronder heb ik een deel van de code geplakt. De variabele ws is een gedefinieerd werkblad.

Code:
With ws
    .Columns(1).Insert Shift:=xlToRight
    .Cells(4, 1).Value = "Sleutel"
    .Cells(5, 1).FormulaR1C1 = _
            "=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
    .Cells(5, 1).Copy
    .Range(Cells(5, 1), Cells(42943, 1)).PasteSpecial xlPasteFormulas
End With

Wie helpt?
 
Code:
With ws
    .Columns(1).Insert Shift:=xlToRight
    .Cells(4, 1).Value = "Sleutel"
    .Cells(5, 1).FormulaR1C1 = _
            "=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
   [COLOR="#FF0000"] .Cells(5, 1).AutoFill Range("A5:A42943"), xlFillCopy[/COLOR]
 End With
 
HSV

Dank voor je antwoord,
Ik kon daar verder mee. Er zat echter nog een klein foutje in.
Voor de volledigheid nog werkende code
Code:
With ws
    .Columns(1).Insert Shift:=xlToRight
    .Cells(4, 1).Value = "Sleutel"
    .Cells(5, 1).FormulaR1C1 = _
            "=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
    .Cells(5, 1).AutoFill [B][U]ws.[/U][/B]Range("A5:A42943"), xlFillCopy
 End With
 
Of gewoon een punt voor Range(.....
Code:
.Cells(5, 1).AutoFill [COLOR="#FF0000"][B].[/B][/COLOR]Range("A5:A42943"), xlFillCopy
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan