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

• #1561 Baboka tag

  Új Válasz 2011-12-23 11:53:15 #1561

  Ú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

  

  Baboka

  tag

  Sziasztok!

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub
  If Selection.Cells.Count > 1 Then Exit Sub
  If Target <> "" Then
  Rows(Target.Row).Interior.ColorIndex = 10
  Else
  Rows(Target.Row).Interior.ColorIndex = xlNone
  End If
  End Sub

  ezt a programot szeretném úgy átalakítani hogy ha kijelölök egy cellát akkor az egész sort beszinezze, de ha másik cellát jelölök ki akkor az előző sor visszaálljon az előző állapotába.

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