kopieren naar sheets zonder te openen

[vrouw]

Hoi,

Als ik Rij1 wil kopieren naar alle andere bestaande sheets (behalve sheet1) zonder die sheets te openen, hoe doe ik dat?

 

[Cobbe]

Wellicht zo:

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

 

[vrouw]

Top, Dank jewel :thumb:

 

[snb]

Sub M_snb()
    Sheets.FillAcrossSheets Sheet1.Rows(1), xlFillWithAll
End Sub

 

[Cobbe]

Verschil moet er zijn, men merkt goed dat ik geen IT universiteit heb gedaan.

 

[snb]

@Cobbe

Maar nu kun je toch wel die indruk gaan wekken.

 

[vrouw]

Sub M_snb()
    Sheets.FillAcrossSheets Sheet1.Rows(1), xlFillWithAll
End Sub

Maar deze werkt niet en die van Cobbe wel

 

[Cobbe]

aï !!

 

[snb]

Ik denk dat iets anders niet werkt.....

 

[vrouw]

Vertel het maar dan :d

 

[Warme bakkertje]

Je moet 'Sheet1' uiteraard wijzigen in de correcte codenaam van je werkblad waar de te kopieëren gegevens opstaan.

 

[vrouw]

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:

 

[vrouw]

Wellicht zo:

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
de data die gecopieerd word moet dmv Transpose:=True geplakt worden vanaf A30.(wel gewoon naar alle tabbladen zoals al eerder gemeld.

 

[Cobbe]

Dan zet je dat er ook in:

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

 

[vrouw]

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

 

[Cobbe]

Met autofit ingebouwd:

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