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

• #2955 Delila_1 veterán vilag #2954

  Új Válasz 2017-12-13 09:35:20 #2955

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

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

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

  Színezi a kiválasztott területet, majd az AA1-be beírja a jelenlegi területet. A következő kijelölésnél a színezésen kívül az AA1-ben tárolt cím (terület) színezését megszünteti.

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