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

• #16709 Mutt senior tag ruan #16705

  Új Válasz 2013-02-13 21:43:42 #16709

  Ú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

  

  Mutt

  senior tag

  válasz ruan #16705 üzenetére

  Hali,

  A hiányzik (és további hibaüzeneteket) ezzel tudod eltávolítani:

  Selection.SpecialCells(xlCellTypeFormulas, 16).Select
  Selection.ClearContents

  Az 1900.01.00 pedig valójában 0-t tartalmazó dátumformátumú cella, ezt használhatod.

  'kiválasztjuk a számokat tartalmazó cellákat
  Selection.SpecialCells(xlCellTypeConstants, 1).Select
  
  'végigmegyünk rajtuk
  For Each cella In Selection
  If cella.Value = 0 Then cella.Clear
  Next cella

  üdv.

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