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

• #13355 Oly őstag

  Új Válasz 2012-04-01 22:38:11 #13355

  Ú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

  

  Oly

  őstag

  Sziasztok

  Van egy hosszabb makróm, amiből kivettem most egy pár sort:

  s = s + 1
  Cells(s + 1, 11).Value = DateValue(Now)
  Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
  Cells(s + 1, 13).Value = "A"
  Cells(s + 1, 14).Value = 48
  s = s + 1
  Cells(s + 1, 11).Value = DateValue(Now)
  Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
  Cells(s + 1, 13).Value = "A"
  Cells(s + 1, 14).Value = 49
  s = s + 1
  Cells(s + 1, 11).Value = DateValue(Now)
  Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
  Cells(s + 1, 13).Value = "A"
  Cells(s + 1, 14).Value = 31
  Cells(s + 1, 15).Value = "ID"
  s = s + 1
  Cells(s + 1, 11).Value = DateValue(Now)
  Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
  Cells(s + 1, 13).Value = "A"

  A félkövérrel kiemelt rész ismétlődik elég sokszor.
  Van arra lehetőség, hogy ez csak egyszer szerepeljen a kódban, amit mindig meghívok a megfelelő helyen?

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