• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

in vba formule kopiëren naar meerdere sheets

Status
Niet open voor verdere reacties.
R

Ropw

Gebruiker
Lid geworden
12 apr 2017
Berichten
192
nu heb ik 3 acties nodig:

Worksheets("sheet1").Range("A1").Copy _
Destination:=Worksheets("sheet2").Range("d3")
Worksheets("containers").Range("A1").Copy _
Destination:=Worksheets("sheet3").Range("d3")
Worksheets("containers").Range("A1").Copy _
Destination:=Worksheets("sheet4").Range("d3")

Is dit te combineren in 1 regel ? b.v. (geeft foutmelding)
Worksheets("sheet1").Range("A1").Copy _
Destination:=Worksheets("sheet2").Range("d3") =Worksheets("sheet3").Range("d3") =Worksheets("sheet4").Range("d3")

bedankt vast
groet rop
 
Zo misschien?
Code: 
Sub cobbe()
For ws = 2 To 4
 Sheets("sheet" & ws).Cells(3, 4) = Sheets("Sheet1").Cells(1, 1)
Next
End Sub
 
zo?

Code: 
Sub test()
Worksheets("Sheet1").Range("A1").Copy
    For i = 2 To 4
        Worksheets("Sheet" & i).Range("D3").PasteSpecial xlPasteAll
    Next
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan