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

• #43312 Delila_1 veterán ROBOTER #43309

  Új Válasz 2020-03-21 10:07:24 #43312

  Ú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

  

  Delila_1

  veterán

  válasz ROBOTER #43309 üzenetére

  Az érvényesítésben szereplő adatokhoz adj címsort, majd a Beszúrás | Táblázat menüben alakítsd táblázattá. A kép szerint adj nevet az adatokat tartalmazó soroknak.

  

  Rendeld a lenti makrót a lapodhoz, ahol az A oszlopba be akarod vinni az érvényesítést.
  Ügyelj rá, hogy az az oszlop, ahova írni akarsz, ne legyen zárolt.
  Szerek.: Mivel táblázattá alakítottad az érvényesítéshez szükséges adatokat, a táblázat bővülésekor automatikusan bővül a Lista nevű tartomány, nem kell külön gondoskodni róla.

  Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
With Cells(Target.Row, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Lista"
End With
Cells(Target.Row, 1).Activate
ActiveSheet.Protect
End Sub

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