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

• WildBoarTeam senior tag

  #23331

  #23319 Delila_1

  2014-09-19 09:21:24

  Új Válasz

  Ú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

  

  WildBoarTeam

  senior tag

  #23319 Delila_1

  #23319 Delila_1

  A kérdéses laphoz (mindegyikhez, ahol működtetni akarja) kell rendelni a lenti makrót, amit nem én írtam, de nagyon tetszik.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells.FormatConditions.Delete
  With Target
  With .EntireRow
  .FormatConditions.Add Type:=xlExpression, Formula1:="1"
  With .FormatConditions(1)
  With .Borders(xlTop)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
  End With
  With .Borders(xlBottom)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
  End With
  .Interior.ColorIndex = 20
  End With
  End With
  With .EntireColumn
  .FormatConditions.Delete
  .FormatConditions.Add Type:=xlExpression, Formula1:="1"
  With .FormatConditions(1)
  With .Borders(xlLeft)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
  End With
  With .Borders(xlRight)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .ColorIndex = 5
  End With
  .Interior.ColorIndex = 20
  End With
  End With
  
  .FormatConditions.Delete
  .FormatConditions.Add Type:=xlExpression, Formula1:="1"
  .FormatConditions(1).Interior.ColorIndex = 36
  End With
  End Sub

  Köszönöm, működik.
  Kicsit megvariáltam benne a formázásokat, így az illető, akinek kellett, maximálisan elégedett.

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