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

• #27979 szatocs1981 aktív tag rebb #27978

  Új Válasz 2015-07-30 12:44:57 #27979

  Ú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

  

  szatocs1981

  aktív tag

  válasz rebb #27978 üzenetére

  Igazából nem nagyon látom át a problémát.
  Az segít, ha kiszüröm a kijelölésböl az üres cellákat és avval nem fog történni semmi?

  Megvan még az eredeti doksi?

  EDIT:
  Igy a kijelölt cellákból az üreseket békén hagyja:
  Sub Makro1()
  
  Dim rng As Range
  
  For Each rng In Selection
  
  sString = rng.Text
  
  If sString <> "" Then
  
  rng.NumberFormat = "@"
  rng.Value = sString
  
  End If
  
  
  Next

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