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

• #2957 Delila_1 veterán vilag #2956

  Új Válasz 2017-12-13 11:37:10 #2957

  Ú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 vilag #2956 üzenetére

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim elozo Long

Rows(Target.Row).Interior.Color = vbYellow
If Range("AA1") <> "" Then
elozo = Range("AA1").Value
Rows(elozo).Interior.Color = xlNone
End If
Range("AA1") = Target.Row
End Sub

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