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

• #32384 Sprite75 tag Sprite75 #32383

  Új Válasz 2016-08-20 13:39:02 #32384

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

  Ilyet már találtam de ez ugye minden változáskor figyelmeztet jelenleg A1 és C10 között. Ez lehet úgy átírni hogy csak akkor figyelmeztessen ha az adott cellában már volt valami szám 1-300ig?

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:C10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub

  Ez a táblázat minden reggel egyébként üres lenne, úgy vennék fel az aznapi rendeléseket.

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