Помогите сравнить два прайса.

[LSD]

Помогите если кто знает.
Есть два прайса их надо сравнить.
Из старого удалить строки которых нет в новом и добавить строки которые есть в новом.

[RayShade]

ОбщО большо как то. Прайс то в чем?

[LSD]

ОбщО большо как то. Прайс то в чем?

Прайсы в *.xls.

[RayShade]

Ха! Так задача как я понял сводится к простому копированию нового прайса

Worksheets("NewPrice").Copy

[LSD]

Ха! Так задача как я понял сводится к простому копированию нового прайса
Worksheets("NewPrice").Copy

Спасибо за помощ.
Лучше, если я опишу проблему точнее.
Дело в том что есть два прайс листа:
1-старые цены и оборудование(строки)
2-новые цены и старое оборудование или цена и новое оборудование(варианты строк).
Как можно сделать построчное сравнение двух этих прайсов с изменением цен,добавлением недостающих строк?
Или хоть подскажите как определить что строка пусая?
Зарание благодарен.

[RayShade]

Сейчас нет особо много времени, поэтому вот вариант функции по определнию пустой строки:



function isrowempty(lsheet, rowindex as long) as boolean

isrowempty = false

for each cll in sheets(lsheet).range("A" & rowindex & ":IV"&rowindex).cells

if cll.value <>"" then exit function

next cll

isrowempty = true

end function

[LSD]

Сейчас нет особо много времени, поэтому вот вариант функции по определнию пустой строки:

function isrowempty(lsheet, rowindex as long) as boolean
isrowempty = false
for each cll in sheets(lsheet).range("A" & rowindex & ":IV"&rowindex).cells
if cll.value <>"" then exit function
next cll
isrowempty = true
end function

СПАСИБО!!!