Раз по правилам нужно под каждый вопрос заводить тему, так и буду делать.
У меня многостраничный .xls-файл. На первой странице ("Данные") я ввожу данные заказа (пластиковые карты, по работе), включая тираж и то, по сколько карт будет в коробке. Другая страница ("Этикетки") формируется сама, собирая данные с первой. Если тираж 1000 карт, а в коробке их будет по 250, то этикеток должно быть 4. Соответственно мне нужно удалить на странице с этикетками все строки, начиная с 6 (2,3,4,5 - этикетки, 1-заголовки для дальнейшего импорта в .txt и объединение с Индизайном).
Если бы мне всегда было нужно удалять с 6-й, я бы использовал такой код: [vba]
Но мне надо, что бы вместо "6" бралась цифра, которая будет зависеть от тиража и высчитываться в, допустим, ячейке A2. Взять эту цифру я могу: [vba]
Код
Dim x x = Application.ActiveWorkbook.Sheets("Этикетка").Cells(2, 1)
[/vba]
Но вот если я в верхнюю формулу вместо "6" вставлю "x", то это ошибка кода. Подскажите, пожалуйста, что поменять в коде?
Раз по правилам нужно под каждый вопрос заводить тему, так и буду делать.
У меня многостраничный .xls-файл. На первой странице ("Данные") я ввожу данные заказа (пластиковые карты, по работе), включая тираж и то, по сколько карт будет в коробке. Другая страница ("Этикетки") формируется сама, собирая данные с первой. Если тираж 1000 карт, а в коробке их будет по 250, то этикеток должно быть 4. Соответственно мне нужно удалить на странице с этикетками все строки, начиная с 6 (2,3,4,5 - этикетки, 1-заголовки для дальнейшего импорта в .txt и объединение с Индизайном).
Если бы мне всегда было нужно удалять с 6-й, я бы использовал такой код: [vba]
[/vba] Но это думаю неправильный подход... Хотя всю задачу мы не видим, но я бы лишнее или скрывал, или менял цвет шрифта, или менял область печати...
[vba]
Код
Rows(x & ":5000")
[/vba] Но это думаю неправильный подход... Хотя всю задачу мы не видим, но я бы лишнее или скрывал, или менял цвет шрифта, или менял область печати...Hugo
Почему подход не правильный? Эта страничка потом экспортируется в .txt (вы мне в соседней теме с этим помогли) и в ней должно быть нужное количество строк. Иначе у меня потом при объединении в Индизайне будут лишние страницы.
Прикрепил .xlsm-файл.
Hugo, большое спасибо. Так работает.
Почему подход не правильный? Эта страничка потом экспортируется в .txt (вы мне в соседней теме с этим помогли) и в ней должно быть нужное количество строк. Иначе у меня потом при объединении в Индизайне будут лишние страницы.
Посмотрел - ну да, если удаляются строки, зкспортируется, а потом закрывается без сохранения, то можно и так. Просто иначе откуда затем будете снова брать исходный вариант бланка...
Посмотрел - ну да, если удаляются строки, зкспортируется, а потом закрывается без сохранения, то можно и так. Просто иначе откуда затем будете снова брать исходный вариант бланка...Hugo
Hugo, да. Я допишу макрос так, что бы он сохранял таблицу в .xlsm, затем удалял лишнее и производил экспорт нужных листов в .txt. В итоге таблица останется с данными этого заказа и если клиент захочет еще тираж, то нет проблем.
Hugo, да. Я допишу макрос так, что бы он сохранял таблицу в .xlsm, затем удалял лишнее и производил экспорт нужных листов в .txt. В итоге таблица останется с данными этого заказа и если клиент захочет еще тираж, то нет проблем.Vadissimus