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

• #31060 Delila_1 veterán Reinhardt #31059

  Új Válasz 2016-03-19 14:05:52 #31060

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

  A 6 választható adatot a Z1:Z6 tartományba írtam.

  A makrót a laphoz kell rendelned. Erről olvashatsz a Téma összefoglalóban.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
  Application.EnableEvents = False
  With Range(Target.Address)
  .HorizontalAlignment = xlRight
  .Font.ColorIndex = 10
  .Offset(1) = Range("Z" & Int(Rnd() * 6) + 1)
  .Offset(1).Font.ColorIndex = 5
  .Offset(1).HorizontalAlignment = xlLeft
  End With
  Application.EnableEvents = True
  End If
  End Sub

  Az A oszlopba beírt adat alá írja a véletlen kiválasztott értéket.

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