• 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.

kopieren naar sheets zonder te openen

  • Onderwerp starter Onderwerp starter vrouw
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

vrouw

Terugkerende gebruiker
Lid geworden
27 mrt 2010
Berichten
1.525
Hoi,

Als ik Rij1 wil kopieren naar alle andere bestaande sheets (behalve sheet1) zonder die sheets te openen, hoe doe ik dat?
 
Wellicht zo:
Code:
Sub cobbe()
For Each ws In ThisWorkbook.Sheets
Application.ScreenUpdating = False
 If ws.Name <> "Blad1" Then
  Rows(1).Copy ws.Range("A1")
 End If
Next
Application.ScreenUpdating = True
End Sub
 
Code:
Sub M_snb()
    Sheets.FillAcrossSheets Sheet1.Rows(1), xlFillWithAll
End Sub
 
Verschil moet er zijn, men merkt goed dat ik geen IT universiteit heb gedaan.
 
@Cobbe

Maar nu kun je toch wel die indruk gaan wekken. ;)
 
Ik denk dat iets anders niet werkt.....
 
Laatst bewerkt:
Vertel het maar dan :d
 
Laatst bewerkt door een moderator:
Je moet 'Sheet1' uiteraard wijzigen in de correcte codenaam van je werkblad waar de te kopieëren gegevens opstaan.
 
Sheet1 dan weer Blad1.
Lastig met die nederlandse versie. De ene keer maakt het niet uit als opdrachten in het nederlands staan en een andere keer weer wel. :shocked:+

maar bedankt voor de tip. :thumb:
 
Wellicht zo:
Code:
Sub cobbe()
For Each ws In ThisWorkbook.Sheets
Application.ScreenUpdating = False
 If ws.Name <> "Blad1" Then
  Rows(1).Copy ws.Range("A1")
 End If
Next
Application.ScreenUpdating = True
End Sub

Toch nog een probleempje :o
de data die gecopieerd word moet dmv Transpose:=True geplakt worden vanaf A30.(wel gewoon naar alle tabbladen zoals al eerder gemeld.
 
Dan zet je dat er ook in:
Code:
Sub cobbe()
Application.ScreenUpdating = False
 For Each ws In ThisWorkbook.Sheets
   If ws.Name <> "Blad1" Then
     Rows(1).Copy
      ws.Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
   End If
 Next
Application.ScreenUpdating = True
End Sub
 
Thanks, had zelf al geprobeerd maar de regel verkeerd "gsplitst"
Nu moet die kolom A ook nog een EntireColumn.AutoFit hebben maar ik krijg dat niet in de regel:
ws.Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
 
Met autofit ingebouwd:

Code:
Sub cobbe()
Application.ScreenUpdating = False
 For Each ws In ThisWorkbook.Sheets
   If ws.Name <> "Blad1" Then
     Rows(1).Copy
      With ws
         .Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
         .Columns(1).EntireColumn.AutoFit
      End With
   End If
 Next
Application.ScreenUpdating = True
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan