2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • 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

  • #43309 ROBOTER addikt Fferi50 #43303
    Új Válasz #43309
    Ú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

    ROBOTER

    addikt

    válasz Fferi50 #43303 üzenetére

    Köszi!

    Kipróbáltam, de valami mással van a baj.
    Érvényesíteni próbálok egy cellában, lista hozzáadásával. És csak ezt nem engedi.
    A cella nem zárolt. Kézzel enged hozzányúlni.

    s = "=AUX2!$A$2:$A$" + CStr(rowCount)
    With Range("PARTNER").Cells(Target.Row, 1)
        .Interior.Color = RGB(0, 200, 0) 'csak próba, működik
    End With
    With Range("PARTNER").Cells(Target.Row, 1).Validation
        .Delete
      ' a következő sorra hibát ad:
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=s
    End With

    De makróból csak akkor engedi a validationt állítani, ha unprotected a sheet. Viszont engedi átszínezni vagy hasonlót.

    Ha beteszem a fenti kód elé, hogy ActiveSheet.Unprotect... akkor megy, és jól megy. Megcsinálhatom, hogy minden makró elejére és végére beteszek 1-1 protect/unprotectedet, de nem túl elegáns.

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