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

• #11233 m.zmrzlina senior tag pitman #11231

  Új Válasz 2011-09-05 18:24:21 #11233

  Ú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

  

  m.zmrzlina

  senior tag

  válasz pitman #11231 üzenetére

  Én is ezen gondolkoztam, hogy viszonylag jól körülhatárolt feltételek alapján lehet a bevihető adat 1 vagy 2 akkor minek az érvényesítés de ha ez kell ám legyen.

  Ezt tedd a képletbe:

  =VAGY(HA(ÉS(B1<>"M";SZÁM(HOL.VAN(B2;H2:I2;0)));B5=1);HA(ÉS(B1="M";SZÁM(HOL.VAN(B2;J2:K2;0)));B5=2))

  A kérdés második felére:
  Van a Workbook objektumnak SheetChange eseménye:

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  MsgBox "A(z) " & ActiveSheet.Name & " munkalapon a " & Target.Row & ". sor és a(z) " & Target.Column & ". oszlop" & Chr(10) & " metszéspontjában lévő cella módosult!"
  End Sub

  Sosem használtam még de kipróbáltam és úgy tűnik működik.
  Jobbklikk a ThisWorkbook-on majd View Code helyre másolni.

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