Onkel

Клетка А1 въвеждате 25 (цената на стоката), клетка В1 въвеждате 7% (размера на отстъпката). И двете клетки оже да сменяте стойността им. В клетка С1 въвеждате следната формула без кавичките: "=A1-A1*B1". Ако сменяте стойностите в А1 и В1 може да си смятате разни стоки с разни отстъпки

Темата е формула, а не VBA. Доста опит имам с VBA и мога да направя почти всичко (възможно) с него. С формули файлът става малко по голям по размер, но и човек без опит в блок-схеми и алгоритми може да съобрази (ако помисли повечко). В случая на първата страница е мястото, където ще се пише. Примерно на реда над антетките може да има една формула от рода на =Counta($b$3:$b$20000), която да сметне колко реда данни са удянати. Трябва да се разберем предварително да няма празни редове, в колона А да има номер по ред например в клетка А3 да има =row(a2)+1 и т.н. Данните в колона B трябва да са от текстов вид. След края на колоните с данни трябва да добавите n (колкото са следващите шийтове) колони със служебни ифове. Те показват низа, който се търси в съответния шийт ако го има и празно, ако го няма. Във всеки от шийтовете трябва да има едно поле с търсения низ, например B1. С формулата =offset (прочетете хелпа) как по номера на реда (колона 1 в първия шийт) може да изведете в друг шийт която и да е клетка от реда. Тоест проблемът е да познаете има ли даден низ в реда, ако има - с offset спрямо първа колона извеждате стойността. Ако няма - извеждате спейс. Остава в първа колона на следващите шийтове да има в последователни клетки номерата на редовете, в които се среща низа. Търсенето става в ония допълнителни колони с ифове от първия шийт. В ред 3 се търси от ред 3 до ред 20000. Вместо до 20000 може чрез address и indirect да се търси до действителния край на шийт 1 (нали си спомняте, че отгоре направихте една клетка с броя на редовете. В следващия ред - (само ако в първия има нещо) - от реда, посочен в предходия ред до ред 20000 и т.н. Ако в предходния ред няма нищо - и в този нищо. Трябва да се копират формулите в толкова на брой реда, колкото има в шийт 1, или толкова, колкото мислим, че не може да надхвърлят - и това във всеки от следващите шийтове. От полза за търсенето ще са формулите =Vlookup, с която става откриването и indirect(address(3,2) & ":" & address(2+Sheet1!$a$1)), с която вътре във Vlookup се посочва откъде и докъде да се търси. С пробите и неизбежните грешки имате около час и полоина, два работа. Има добър хелп за функциите. С VBA е до половин час с коментарите, за тези които пишат коментари, ама трябва повечко знания и опит с алгоритми и VBA.