Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Неправильный код макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Неправильный код макроса (Формулы/Formulas)
Неправильный код макроса
Oskar333 Дата: Понедельник, 27.03.2017, 11:52 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Суть. Необходимо,что бы макрос форматировал таблицу так = столбец I>0, Дальше пустые клетки в столбце H(но только там где Ii>0) заполнялись вставкой Ei(вставка-формула)
У меня постоянно багается таблица, и заменяет что то не то, а иногда и вовсе цифры съежают почему то
В идеале нужно еще добавить что бы в ячейках Ei(i- тот номер который соовествует требованиям I>0 и H- пустое ) оставалось только первое слогаемое- но я думаю это не реально
Вот мой кривой макрос
ActiveSheet.Range("$A$2:$P$470").AutoFilter Field:=8, Criteria1:="="
ActiveWindow.SmallScroll Down:=-39
ActiveSheet.Range("$A$2:$P$470").AutoFilter Field:=9, Criteria1:=">0", _
Operator:=xlAnd
ActiveWindow.SmallScroll Down:=-48
Range("E3:E300").Select
Selection.Copy
Range("H3:H300").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("G472").Select
К сообщению приложен файл: 3443592.xlsx (31.4 Kb)


Сообщение отредактировал Oskar333 - Понедельник, 27.03.2017, 12:22
 
Ответить
СообщениеСуть. Необходимо,что бы макрос форматировал таблицу так = столбец I>0, Дальше пустые клетки в столбце H(но только там где Ii>0) заполнялись вставкой Ei(вставка-формула)
У меня постоянно багается таблица, и заменяет что то не то, а иногда и вовсе цифры съежают почему то
В идеале нужно еще добавить что бы в ячейках Ei(i- тот номер который соовествует требованиям I>0 и H- пустое ) оставалось только первое слогаемое- но я думаю это не реально
Вот мой кривой макрос
ActiveSheet.Range("$A$2:$P$470").AutoFilter Field:=8, Criteria1:="="
ActiveWindow.SmallScroll Down:=-39
ActiveSheet.Range("$A$2:$P$470").AutoFilter Field:=9, Criteria1:=">0", _
Operator:=xlAnd
ActiveWindow.SmallScroll Down:=-48
Range("E3:E300").Select
Selection.Copy
Range("H3:H300").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("G472").Select

Автор - Oskar333
Дата добавления - 27.03.2017 в 11:52
_Boroda_ Дата: Понедельник, 27.03.2017, 12:08 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
прочитайте Правила форума

и исправьте все косяки в своем вопросе


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
прочитайте Правила форума

и исправьте все косяки в своем вопросе

Автор - _Boroda_
Дата добавления - 27.03.2017 в 12:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Неправильный код макроса (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!