Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #20946 Mutt senior tag alfa20 #20934
    Új Válasz #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