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

• #3110 Delila_1 veterán Ziog #3109

  Új Válasz 2008-02-03 15:15:10 #3110

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

  Itt egy kis makró, ami mindegyik sorba, ami DVD-t tartalmaz, beállítja az igen-nem legördülőt (adatérvényesítést). R1-be és R2-be írd be az igent és a nemet. Ha foglalt a két cellád, a maróban az új hely címére írd át a $R$1:$R$2-t.

  Sub DVD()
  Range("A1").Select
  Selection.End(xlDown).Select
  usor = Selection.Row
  For sor = 2 To usor
  If Cells(sor, 3) = "DVD" Then '***
  Cells(sor, 4).Select '***
  With Selection.Validation
  .Delete
  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  xlBetween, Formula1:="=$R$1:$R$2" '***
  .ShowInput = True
  .ShowError = True
  End With
  End If
  Next
  End Sub

  Három sort "csillagoztam". Ez a makró azt feltételezi, hogy a 3. (C) oszlopban szerepel a DVD kifejezés. Az If kezdetű sorban javítsd ki a 3-at annyira, ahányadik oszlopban van a szöveged. A következő csillagos sorban a 4-et annyira, ahányadik oszlopba akarod tenni a legördülőt.

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