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

• #12990 VGYke addikt Delila_1 #12973

  Új Válasz 2012-02-23 16:23:02 #12990

  Ú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

  

  VGYke

  addikt

  válasz Delila_1 #12973 üzenetére

  Ismét köszönöm!
  Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
  Sub Kitolt()
  Lap = "Lekérdezés"
  smax = Sheets(Lap).UsedRange.Rows.Count
  For L = 1 To smax - 1
  Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
  szla = Sheets(Lap).Cells(L, 2)
  b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
  Cells(L + 1, 2) = b
  '......hasonló 8. oszlopig
  Next L
  End Sub
  Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg?

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