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

• #43204 Delila_1 veterán ROBOTER #43203

  Új Válasz 2020-03-09 14:12:58 #43204

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

  Csak makróval tudom megoldani. A makrót a lapodhoz kell rendelned.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value = "igen" Then '*
With Cells(Target.Row, "B").Validation '**
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=$J$1:$J$7" '***
End With
End If
End Sub

  3 sorhoz tettem *-ot.
  * nálam az igen-nem választás az A oszlopban van, ezért Column=1. Nálad a te oszlopod sorszámát add meg helyette.
  ** a B oszlopba viszem be a választási lehetőséget az érvényesítéshez, a B helyett ad meg a saját oszlopod betűjelét.
  *** a $J$1:$J$7 helyébe a saját listád címét add meg.

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