Макрос для экспорта данных

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

ronik710

Дата: Четверг, 08.09.2011, 23:15 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Помогите, пожалуйста, написать макрос. Задана смена курса валют по кассам. Касс достаточно много и нужно, чтобы при смене курса доллара или евро или и то и другое, на каждую смену курса печаталось определенное распоряжение, подтягивая наименование кассы, курс валют, адрес данной кассы и ФИО кассира. Первоначальный номер распоряжения задан в ячейке А2, остальная нумерация идет +1 и так далее, например 542, 543, 544,545....

К сообщению приложен файл: 2176520.xlsx (8.6 Kb)

Ответить

RAN

Дата: Четверг, 08.09.2011, 23:34 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Не похожее?
http://www.excelworld.ru/forum/2-529-1

Быть или не быть, вот в чем загвоздка!

Ответить

ronik710

Дата: Пятница, 09.09.2011, 00:14 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Не совсем, а номер распоряжения как будет меняться и печататься?

Ответить

RAN

Дата: Пятница, 09.09.2011, 09:47 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Quote (ronik710)

Не совсем, а номер распоряжения как будет меняться и печататься?

Первоначальный номер распоряжения задан в ячейке А2, остальная нумерация идет +1

Быть или не быть, вот в чем загвоздка!

Ответить

ronik710

Дата: Пятница, 09.09.2011, 21:34 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Посмотрел сайт, что-то не совсем понятно как работает программа. Когда в ней печатаю выдает пустые листы.

Чуть-чуть переделал файл и внёс туда некоторые пометки как должно быть. Посмотрите, пожалуйста.

К сообщению приложен файл: 4553969.zip (50.4 Kb)

Сообщение отредактировал ronik710 - Пятница, 09.09.2011, 22:10

Ответить

RAN

Дата: Пятница, 09.09.2011, 23:56 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Как много всего в архиве... biggrin

К сообщению приложен файл: 4323655.xls (46.0 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

ronik710

Дата: Суббота, 10.09.2011, 00:08 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Quote (RAN)

Как много всего в архиве... biggrin

Спасибобольшое RAN. Это то что нужно.

Ответить

ronik710

Дата: Понедельник, 12.09.2011, 23:39 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Не могли бы Вы помочь написать для второго варианта?

К сообщению приложен файл: primer1.xls (86.0 Kb)

Ответить

RAN

Дата: Вторник, 13.09.2011, 10:40 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Помочь, или за вас написать?

Быть или не быть, вот в чем загвоздка!

Ответить

ronik710

Дата: Вторник, 13.09.2011, 14:53 | Сообщение № 10

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Quote (RAN)

Помочь, или за вас написать?

Если сможете объяснить как сделать так что бы он ссылался на нужные вкладки Я смогу дописать на базе Вашего кода. Вро ди бы я понял как менять счётчик и как делать так, что бы подтягивались данные с нужной строчки.

Ответить

RAN

Дата: Вторник, 13.09.2011, 15:59 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Quote (ronik710)

Если сможете объяснить как сделать так что бы он ссылался на нужные вкладки

В коде так (на второй по счету лист)

Code

With Sheets(2)

Остальные аналогично
Если обращаться по имени листа, то так

Code

With Sheets("USD")

Быть или не быть, вот в чем загвоздка!

Ответить

ronik710

Дата: Вторник, 13.09.2011, 17:05 | Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 51

Репутация: 0 ±

Замечаний: 0% ±

Не могли бы Вы пояснить несколько строчек кода?

Code

For i = 4 To Cells(Rows.Count, 4).End(xlUp).Row - 1 Step 2
If IsNull(Range(Cells(i, 5), Cells(i, 5).Offset(1, 1)).Text) Then

Code

.Range("C11:D12").Value = Range(Cells(i, 5), Cells(i, 5).Offset(1, 1)).Value

Каков смысл этих строк? Моих знаний к сожалению капитально нехватает.
Здесь я понимаю только:
1 строчка - начинаем считывать данные с 4-той строки, дальше ступор
2 строчка - Здесь условие, но немогу понять какие ячейки сравниваются. В моём понимании тут проверяется есть ли текс в указанных ячейках, но незнаю прав ли Я. Если я прав, то как проверить строчки в новой таблице эксель?
3 строчка - тут я теряюсь в догадках. И вариантов у меня нет.