Új hozzászólás Aktív témák

• #29597 m.zmrzlina senior tag Digital #29594

  Új Válasz 2015-11-24 10:32:52 #29597

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz Digital #29594 üzenetére

  Nem látom ugyan a sor és oszlopazonosítókat de tételezzük fel hogy B1-C1-D1 cellákban van a dátum. Ez a kód a munkafüzet összes munkalapjának B1:D1 artományába bemásolja az aktív munkalapodnak a B1:D1 tartományát.

  Sub copy()
  
  For Each ws In ThisWorkbook.Worksheets
  Range("B1:D1").copy Destination:=ws.Range("B1")
  Next
  
  End Sub

  [ Szerkesztve ]

Új hozzászólás Aktív témák