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

• #15059 Fire/SOUL/CD félisten #05304832 #15057

  Új Válasz 2012-10-01 12:35:43 #15059

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz #05304832 #15057 üzenetére

  Dim MyDestRange As Range
  Dim MyCell As Range
  
  'Itt van beállítva, hogy G2-ben van az első cella
  'és egybefüggően az M oszlopig tart
  'Hogy az M oszlopban melyik az utolsó használt cella, azt a kód meghatározza
  Set MyDestRange = Range("G2:" & "M" & Cells(Cells.Rows.Count, "M").End(xlUp).Row)
  
  Application.ScreenUpdating = False
  For Each MyCell In MyDestRange
  With MyCell
  If Not IsEmpty(MyCell) And IsNumeric(MyCell) Then
  .Value = Replace(.Value, ".", ",", vbTextCompare)
  .Value = .Value * 1#
  MyCell.NumberFormat = "General"
  End If
  End With
  Next MyCell
  Application.ScreenUpdating = True

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