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

• #20946 Mutt senior tag alfa20 #20934

  Új Válasz 2014-03-15 20:43:31 #20946

  Ú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 alfa20 #20934 üzenetére

  Hello,

  Olyan makrót tudok készíteni ami megkérdezi melyik oszlop(ok)ból szeretném törölni a nullákat és szépen kitörli?

  Ezt tudod használni, csak a kijelölt cellában/oszlopban/sorban töröl:
  Sub NullaTorles()
  Dim rngTartomany As Range
  Dim rngAdatok As Range
  
  On Error GoTo NullaTorles_Error
  'kérjük be a tartományt
  Set rngTartomany = Application.InputBox("Honnan szeretnéd törőlni a nullákat?", "Választás", , , , , , 8)
  
  'szűkítsük csak a használatban lévő részre
  Set rngAdatok = Intersect(rngTartomany, ActiveSheet.UsedRange)
  
  If Not rngAdatok Is Nothing Then
  Application.ScreenUpdating = False
  rngAdatok.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
  SearchOrder:=xlByRows, MatchCase:=False
  Application.ScreenUpdating = True
  End If
  
  On Error GoTo 0
  Exit Sub
  
  NullaTorles_Error:
  
  MsgBox "Kilépés"
  
  End Sub

  Ha további nullákat akarsz keresni, akkor esetleg nézd meg így:
  WorksheetFunction.CountIf(ActiveSheet.UsedRange, "=0")

  üdv

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