создание макроса привязанного к фигурке

[bize]

условие и пример вложен,интирестная задумка.

[EducatedFool]

Вот вам макрос:

Sub test()
    On Error Resume Next
    Range("f11:f18").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Привяжете его к звёздочке самостоятельно

[bize]

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

Вот вам макрос:

Sub test()
    On Error Resume Next
    Range("f11:f18").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Привяжете его к звёздочке самостоятельно

Благодарю-у меня получилось(с вашей помощью) и работает)

[bize]

стрелка отмены на действие макроса не работае,как возращать действие если будет два нажатия или случайное?Возможно можно повторным нажатием его вернуть(дописать)?

[doober]

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

стрелка отмены на действие макроса не работае,как возращать действие если будет два нажатия или случайное?Возможно можно повторным нажатием его вернуть(дописать)?

Возможно,если есть машина времени.
Только резервное копирование

[bize]

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

Возможно,если есть машина времени.
Только резервное копирование

Добый вечер doober)

[VictorM]

Способов не так уж много, посмотрите здесь Как отменить действия совершённые макросом
Также можно выводить при нажатии кнопки MsgBox с предупреждением .

[kuklp]

Ну, макрос Игоря можно запускать хоть триста раз. Больше, чем в первый раз не удалит. Если пустые клетки каким-то чудесным способом не размножаются.

[bize]

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

Благодарю-у меня получилось(с вашей помощью) и работает)

а тут получается что если в ходе работы мне нужно будет добавить еще строки то макрос сработает не правильно,ведь в заданном диапазоне получются другие значения и он не учтет что диапазон изменился.Тоесть нужно будет менять в ручную в VBA диапазон,он сам не учтет разширение диапазона.

[bize]

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

Ну, макрос Игоря можно запускать хоть триста раз. Больше, чем в первый раз не удалит. Если пустые клетки каким-то чудесным способом не размножаются.

но почемо-то он и ниже пытается удалить пустые строки