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

• #23456 Fferi50 Topikgazda gyu84 #23453

  Új Válasz 2014-09-25 12:58:09 #23456

  Ú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

  

  Fferi50

  Topikgazda

  válasz gyu84 #23453 üzenetére

  Szia!

  A ciklus(ok) kb. így néznének ki:
  sub masolom()
  set m1=sheets("Munka1") ' ahonnan másolok
  set m2=sheets("Munka2") ' ahova másolok
  m2sor=2 'ide jön a másolás első sora
  for xx= 2 to m1.usedrange.rows.count
  if not isempty(cells(xx,1)) then
  for yy=2 to 13
  m2.cells(m2sor,1).value=m1.cells(xx,1).value
  m2.cells(m2sor,2).value=m1.cells(xx,yy).value
  m2.cells(m2sor,3).value=yy-1
  m2sor=m2sor+1
  next
  endif
  next
  end sub

  Elvileg a Munka1 munkalap minden sorát átmásolja a Munka2-be függőlegesen, az első oszlopba beírja mindig a terméknevet, a második oszlopba a hónap adatát, a harmadik oszlopba a hónap számát.

  Üdv.

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