Ú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.

• #16707 Excelbarat tag ruan #16705

  Új Válasz 2013-02-13 18:21:57 #16707

  Ú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

  

  Excelbarat

  tag

  válasz ruan #16705 üzenetére

  valószínű azért nem fut le rendesen a makród mert "type mismatch"
  ezzel a módszerrel viszon megkerülheted ezt és az eredmény ugyan az
  ezt írd be a makródba:

  Cells.Replace What:="#hiányzik", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  Cells.Replace What:="1900.01.00", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False

  (makrórögzítéssel készült , csodákra képes)

• #16706 Excelbarat tag ruan #16705

  Új Válasz 2013-02-13 17:51:36 #16706

  Ú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

  

  Excelbarat

  tag

  válasz ruan #16705 üzenetére

  Ezt egyszerű cserével is megoldhatod! Valami olyasmit keress hogy: keresés és csere
  lecseréled őket és a csere helyére semmit nem írsz be majd mehet az összes cseréje.

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