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

• #22255 Delila_1 veterán Mittu88 #22250

  Új Válasz 2014-07-02 17:52:18 #22255

  Ú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

  

  Delila_1

  veterán

  válasz Mittu88 #22250 üzenetére

  Jelöld ki a tartományt, és indítsd a makrót.

  Sub Konyveloi()
  Dim cella As Object
  
  For Each cella In Selection
  If cella.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" Then _
  cella.NumberFormat = "General"
  Next
  Range("A1:F17").Select
  Columns("A:A").EntireColumn.AutoFit
  End Sub

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