Excel 2007 автоматическое удаление старых строк при потоковом поступлении новых

[Swindler_1]

Доброго раннего!
Ваш код в динамике зарекомендовал себя великолепно, при всей его "прозрачности" и простоте (посидел с букварем и... разобрался).

Прислали мне еще такой вариант:

код:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngEndRow As Long
With Me
lngEndRow = .Cells(.Rows.Count, 1).End(xlUp).Row
If lngEndRow > 501 Then
If Not IsEmpty(.Cells(501, 1)) And Not IsEmpty(.Cells(501, 9)) Then _
Range(.Cells(2, 1), .Cells(lngEndRow - 500, 9)).Delete Shift:=xlUp
End If
End With
End Sub

Тоже работает, промигиваний нет, но я пока не смог понять "откуда у него что растет". Потому, для дальнейшей разработки пока приму Ваш вариант.

[doober]

Смысл кода-после обновления данных,строки начиная с 502 и до последней заполненой вниз удаляются

[Swindler_1]

Сообщение от doober

Смысл кода-после обновления данных,строки начиная с 502 и до последней заполненой вниз удаляются

Значит не зря я сомневался и показал Вам этот код.
Есть вопрос. Лично к Вам. Куда мне обратиться?

[doober]

В личку,асю.На мыло сегодня нет,сервер на профилактике

[Swindler_1]

Сообщение от doober

В личку,асю...

Тогда прошу немного подождать, скоро выйду на асю.
/не пользуюсь я ею. Сейчас номер сделаю.../

[TovSah]

Сообщение от doober

Смысл кода-после обновления данных,строки начиная с 502 и до последней заполненой вниз удаляются

Насколько я понимаю, из программы: Range(.Cells(2, 1), .Cells(lngEndRow - 500, 9)).Delete Shift:=xlUp следует, что удаляются верхние строки, начиная со второй. 500 нижних остаются на месте.