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

• #10501 m.zmrzlina senior tag Delila_1 #10490

  Új Válasz 2011-06-14 14:57:01 #10501

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Delila_1 #10490 üzenetére

  Igen kell mert nem csak egyszerűen átmásolni akarom egyben az egészet, hanem egyenként minden cellát megcsócsálni.

  Sub kiemel()
  
  Dim cella As Range, kiemeles As String
  
  For Each cella In Selection.Cells
  
  kiemeles = WorksheetFunction.Substitute(Mid(cella.Value, WorksheetFunction.Search("(", cella.Value) + 1, WorksheetFunction.Search("%", cella.Value) - WorksheetFunction.Search("(", cella.Value) - 2), ".", ",")
  Worksheets("riport").Cells(cella.Row - 10, cella.Column).Value = kiemeles * 1
  
  Next
  
  End Sub

  Az útvonalas munkafüzet sikerén felbuzdulva szeretném kicsit emberi formára hozni egy régebbi munkafüzetemet amivel kapcsolatban itt érdeklődtem.

  Ez a ciklus hamarabb lefut 13000 cellán mint amennyi idő alatt az eredeti fájl betöltődik.

  A fájl mérete így kb 1/3-a az eredeti fájlnak de az UDF-es megoldásnál is gördülékenyebben működik.

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