правя една програма в която се налага разместване на редове за да се подредят по дата, която е в 3тата колона. Проблема е ,че някои клетки имат Comments а други не и при простото разместване Comment-a си остава в клетката която е бил и не се размества. Как може да преместя него? Тоест да разбера дали има или няма дадена клетка щото ако няма и правя операция с него програмата дава грешка.
Благодаря

Смятам, че това "EXEL" в заглавието на темата всъщност е excel. И изхождайки от това защо не опиташ със сортиране? Така се местят клетките без промяна на формат и т.н.
а ето и един макрос, ако държиш да стане по програмен път
ако в колона С от 1 до 8 ред са ти датите
а в D са ти клетките с коментарите опитай това

Range("C1:D8").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

много благодаря оправих вече проблема точно по този начин като записах макроса разбрах и всички параметри само това Key1:=Range("C1") за мен остава загадка - работи си и с "C3" , "C50" или каквото друго це да избера Но важното е че работи и е много по-бързо отколкото да ги сортирам с метод на мехурче

Key1:=....... това е аргумента. Виж сега. Когато извикваш някоя функция или процедура, която изисква задаване на аргументи (параметри), ти можеш да изпишеш само стойностите на аргументите без да ги описваш коя стойност за какво е, но трябва да спазваш строго последователността им. Втория вариант - за всяка стойност да описваш и името на аргумента, за да можеш да пропуснеш тези аргументи, за които не задаваш стойности, но тези, които ти трябват са след тях.

Действай сега. Ако има нещо ясно - питай. ;о))))

Съдържаниет е скрито
Влезте за да го видите