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

• #29751 Delila_1 veterán Zimmy88 #29749

  Új Válasz 2015-12-08 13:51:28 #29751

  Ú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

  

  Delila_1

  veterán

  válasz Zimmy88 #29749 üzenetére

  Nem érdemes a teljes sorokat megadni, mert egy halom üres cellán is végig kellene mennie a ciklusnak. Ehelyett területet adj meg.

  Sub mm()
  Dim lap As Integer, r As Range, nev As String, utvonal As String
  Dim terulet As Range
  
  utvonal = "C:\Temp\"
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Set terulet = Range("A4:J4,A9:J11,A16:J16")
  For Each r In terulet
  Range(r.Address) = r.Value
  Next
  nev = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
  ActiveWindow.Close
  Next
  End Sub

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