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

• #24829 Fferi50 Topikgazda tgumis #24827

  Új Válasz 2015-01-03 19:52:06 #24829

  Ú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 tgumis #24827 üzenetére

  Szia!

  Az utolsó üres sort megkapod a következőképpen:
  az A oszlopban
  usor=cells(rows.count,1).end(xlup).row+1

  ha más oszlopban szeretnéd, akkor az oszlopszámot átírod.

  Transzponálni nem kell erőlködnöd. Simán átveszed az értékeket:

  pl.
  Munka2.cells(usor,1).value=Munka1.cells(1,4).value
  Munka2.cells(usor,2).value=Munka1.cells(2,4).value
  Munka2.cells(usor,3).value=Munka1.cells(3,4).value
  
  Sőt:
  For xx= 1 to 3
  Munka2.Cells(usor,xx).value=Munka2.cells(xx,4).value
  Next

  Ez a kód a Munka1. D1:D3 cellájának értékét átteszi a Munka2 utolsó sorának első -második és harmadik cellájába. Az oszlopszámokat szükség szerint állítsd át.

  Üdv.

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