Keresés

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

  • Fferi50

    Topikgazda

    válasz bteebi #25180 üzenetére

    Szia!

    Egyrészt, ha eseménykezelést végzel, akkor ki kell kapcsolni az eseményeket:
    Application.EnableEvents=False
    majd a végén visszakapcsolod:
    Application.EnableEvents=True
    Ha nem így teszel, akkor jó esetben csak meghosszabodik a program futása, rossz esetben más cellákat is átír, nem csak azokat, amelyeket szeretnéd.

    Továbbá van két képlet benne, ami formailag ugyan helyes (nem kiabál érte a fordító), de teljesen blőd eredményt ad, rossz helyre került a záró zárójel:

    If Sheets("proba").Cells(sor - 72, 5) < Sheets("proba").Range("S130") Or WorksheetFunction.IsNumber(Sheets("proba").Cells(sor - 72, 5)) = True

    A Te kódodban a True után volt a zárójel, az előréb kell hozni az egyenlőség jel elé, ahogyan itt is látod.

    Ugyanez van az oszlopos vizsgálatánál is, ott is az egyenlőség jel után kell a zárójel és nem a False után.

    Üdv.

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

Hirdetés