|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.02.2009, 15:34 | #1 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
перенос данных
Добрый день!!
Помогите, пожалуйста, с макросом в путевом листе: В Putevka -лист путевки, где в D6-выбираю месяц, в D8-выбираю машину(если в конце стоит G-машина на газу , если В- на бензине . Есть машины газ-бензин, соответственно путевки надо на одну и ту-же машину но отдельно на газ и на бензин Я попытался сделать лист Toplivo, в котором указал расход топлива за определенные месяцы (может таблицу надо сделать по-другому?) Что мне нужно- в листe Putevka, выбрав месяц и машину, макросом в F14 перенести (из листа Топливо) кол-во топлива(газ или бензин) а в М24- сумму по данному топливу Заранее благодарю |
19.02.2009, 08:01 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. Т.к. Вы разрешили переделывать таблицу,то я переделал ее так, как на мой взгляд удобнее. Так же, при выборе месяца и машины, дополнительно в ячейку "G14" пишется вид топлива. Если это нужно - в коде макроса измените адрес ячейки на требуемый, если не нужно - удалите (закомментируйте) блок с кодом, который делает этот сервис. В коде есть примечание.
Чем шире угол зрения, тем он тупее.
|
19.02.2009, 10:26 | #3 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Не хочет идти макрос в листе Celazime
|
19.02.2009, 11:04 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
1. В коде макроса Вы заменили имена листов на требуемые. Это правильно. А вот названия месяцев в листе "Degviela" не поменяли на те, которые в диапазоне списка на листе "Dannie".
2. По событию изменения значения в ячейке листа запускается одна определенная процедура, в которой мы должны самостоятельно "разруливать" выполнение тех или иных действий. Пример во вложении.
Чем шире угол зрения, тем он тупее.
|
19.02.2009, 13:28 | #5 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
СПАСИБО ОГРОМНОЕ!!!!!
|
22.02.2009, 22:34 | #6 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Добрый вечер!
Добавил в форму TextBox2 , в котором при просмотре в форме Vibor Marshruta (Combobox 1) , показывался остаток километров, попытался добавить в макрос Private Sub ComboBox1_Change формулу но.... 1. Не могу сделать в (TextBox2) чтобы было два знака после запятой 2. Как только в форме Vibor Marshruta выбираешь пустое поле, макрос вылетает(дебажит) Помогите, пожалуйста !!! |
22.02.2009, 22:36 | #7 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Забыл!!
Во приложил файл |
23.02.2009, 00:00 | #8 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Во-первых, не надо сравнивать текст с числом: If ComboBox1 > 0 Then
Если ты хочешь проверить наличие текста в комбобоксе, пиши так: If ComboBox1 <> "" Then Во-вторых, складывать текст с числом тоже нежелательно: ((Cells(41, "E") + Me.TextBox1)) особенно когда в TextBox1 находится не числовое значение. В крайнем случае можно так: ((Cells(41, "E") + val(Me.TextBox1))) Так мы предварительно преобразуем текст в число. Попробуй такой вариант: Код:
(поскольку ты обращаешься к ячейкам активного листа, а активным в момент запуска формы может быть любой лист, а это повлёчет ошибку) Код:
Насчёт первой пустой строки в ComboBox1 - она тебе нужна? Если нет, то исправь немного код макроса RemoveDuplicates: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 23.02.2009 в 00:38. |
23.02.2009, 12:40 | #9 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
СПАСИБО!!!!!!!!!!!!!!!!!
С Праздником МУЖИКИ!!!!!!!!!!!!!!!!!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенос данных | Nesta1384 | Microsoft Office Excel | 4 | 19.01.2009 02:28 |
перенос данных | Viento | Microsoft Office Excel | 10 | 16.01.2009 00:13 |
Перенос данных из ячеек | gavrylyuk | Microsoft Office Excel | 2 | 05.08.2008 14:24 |
Сравнение и перенос данных | miheus | Microsoft Office Excel | 1 | 29.11.2007 16:42 |
Перенос данных. | Victor | Microsoft Office Excel | 8 | 01.09.2007 21:02 |