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

• #12027 Delila_1 veterán torment #12026

  Új Válasz 2011-11-15 07:32:11 #12027

  Ú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 torment #12026 üzenetére

  Perfag makrójába írtam be a
  lap = "gép" & Range("X15") & "_heti" sort, és a másolásnál a lap helyét ennek megfelelően módosítottam.

  Sub Másol()
  Sheets("Lemez_Spc").Select
  Dim lap As String, sor As Integer, oszlop As Integer
  
  lap = "gép" & Range("X15") & "_heti"
  sor = Range("Y21")
  oszlop = Range("Y6")
  
  Range("B35:F42").Copy Sheets(lap).Range("B3").Offset((sor - 1) * 8, (oszlop - 1) * 5)
  End Sub

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