mehanika

Не стана Намира съвпадение във всеки номер който съдържа търсената цифра - А те може да са и 100.Изтрих работните номера и оставих само тези който в номера си имат само различни цифри.И оппп стана - изкарва ми съобщението за не намерен номер.Лошото е че раб.№ са с дублиращи числа в съдържанието си. Ако натисна ctrl+f изкача прозореца за търсене - Там ако не укажеш да търси цялото точно съдържание на клетката - става същото прескача си от номер на номер

Не става, спира пак на същото място.Възможно ли е да се сложи условие стойността да съвпада с цялото съдържание на клетката ? Имам предвид нещо като : mathc entire cell contents - Съвпадение на цялото съдържание на клетката

Има известен проблем : Ако въведеният номер в клетка Y271 съществува като номер в Sheet телефони - записа се осъществява и клетките се зануляват както трябва. Ако обаче въведа номер 4 който го няма - Вместо да изведе съобщението "Value Not Found!" зацикля на реда Set r = Range("телефони!B:B").Find(Range("Y271").Value, After:=r, MatchByte:=True, MatchCase:=True) и програмата иска рестарт. Пробвам с № 14 примерно - Всичко е ок !!! Ето и какво изкарва ако стойноста в Y271 не съществува в списъка с раб.№ ра http://prikachi.com/images/498/6133498I.png при натискане на Debug - Set r = Range("телефони!B:B").Find(Range("Y271").Value, After:=r, MatchByte:=True, MatchCase:=True) става жълт П.П Току що направих следното : 1.Направих друг файл в който разиграх ситуацията но направих списък с раб.№ само 4 на брой / 14 ,10,33,20 / при въвеждане на 14,10,20 всичко е ок. При въвеждане на 8 ми изкарва съобщение "Value Not Found!" Но при въвеждане на 3 , всичко зацикля - което ме навежда на мисълта ,че проблема става когато въведеният номер 3 се открие два или повече пъти в една клетка или това е №33 Или най-кратко казано при въвеждане на несъществуващ раб.№ примерно 6 - се извършва търсене и стойноста 6 се открива в клетки като 2660 или 1660 или 6666 - и проблема започва

Задача над която се мъча вече 3 ден е следната : Искам да присвоя макрос към даден бутон,който да извършва следното: http://prikachi.com/images/563/6128563g.png http://prikachi.com/images/564/6128564J.png 1 . Въвеждаме раб.№ в клетка Y271 и два телефона в съответните клетки К271 и К272 2 . Натискаме бутон " Запиши номерата" 3. В Sheet "телефони" работният номер да бъде намерен и съответно записани номерата в съответните клетки / в случая клетките за телефоните към раб.номер 5 са C2 i D2 / 4.След което въведените стойности в Y271 , К271 и К272 да бъдат изтрити От всичко написано Аз мога единствено след записа да направя клетките - Y271 , К271 и К272 в Sheet "МАЙ 2013" да се изчистят от данните. Дано съм обяснил както трябва проблема си. Може би е по удачно това да се извършва с UserForm където да се въвеждат данните за запис. Но и в двата случая не знам нужният макрос.