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

• #32337 Sprite75 tag Sprite75 #32336

  Új Válasz 2016-08-18 12:33:37 #32337

  Ú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

  

  Sprite75

  tag

  válasz Sprite75 #32336 üzenetére

  Delila egy korábbi írását felhasználva használva
  [link]

  csináltam egy olyan oszlopot ahová kiírja egy sorban történt utolsó módosítás idejét.
  Így:
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C4:AY108"), Target) Is Nothing Then
  Cells(Target.Row, 52).Value = Time
  End If
  End Sub

  Aztán ezt továbbgondolva szerettem volna megoldani hogy az épp kijelölt cella más színű legyen (a cellába íratott 1-est felhasználva a feltételes formázással) de nem teljesen jó a dolog.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("C4:AY108"), Target) Is Nothing Then
  Cells(Target.Row, 54).Value = "1"
  End If
  End Sub

  Vagy teljes nem jó az elképzelés?

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