Слетела база - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Слетела база (Макросы/Sub)

Слетела база

tdmsk1

Дата: Суббота, 07.01.2017, 21:38 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

ведем расчет путевок в экселе. сегодня чего то затупил. выдает ошибку
[vba]

Код

Sheets("База").Cells(i + shapka, 26 + j) = Round(Sheets(i).Cells(12, j).Value, 2)

[/vba]
может кто поможет))

Ответить

wild_pig

Дата: Воскресенье, 08.01.2017, 01:37 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 517

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

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

2003, 2013

файл бы увидеть.

Ответить

tdmsk1

Дата: Воскресенье, 08.01.2017, 09:54 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

могу прислать

Ответить

Wasilich

Дата: Воскресенье, 08.01.2017, 10:19 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата tdmsk1, 08.01.2017 в 09:54, в сообщении № 3 ()

могу прислать

А сюда выложить? Если больше 100 Кб, архиватором его прижмите.

Ответить

tdmsk1

Дата: Воскресенье, 08.01.2017, 10:25 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

он в архиве 165кб

Ответить

Wasilich

Дата: Воскресенье, 08.01.2017, 10:56 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата tdmsk1, 08.01.2017 в 10:25, в сообщении № 5 ()

он в архиве 165кб

Сделайте копию, удалите все, что не относится к данному коду.

Ответить

tdmsk1

Дата: Воскресенье, 08.01.2017, 11:02 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

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

Ответить

Pelena

Дата: Воскресенье, 08.01.2017, 11:24 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 19196

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

Замечаний: ±

Excel 365 & Mac Excel

tdmsk1, Вы так и не прочитали Правила форума. Повторю ещё раз: если задали вопрос в этой ветке, то решаться он должен здесь, а не в личке.
Весь файл не нужен, соорудите небольшой пример и выложите сюда

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

tdmsk1

Дата: Воскресенье, 08.01.2017, 11:28 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

[vba]

Код

For j = 2 To 5
Sheets("База").Cells(i + shapka, 18 + j) = Round(Sheets(i).Cells(10, j).Value, 2)
Next j
For j = 2 To 5
Sheets("База").Cells(i + shapka, 22 + j) = Round(Sheets(i).Cells(11, j).Value, 2)
Next j
For j = 2 To 5
[color=red]Sheets("База").Cells(i + shapka, 26 + j) = Round(Sheets(i).Cells(12, j).Value, 2)[/color]
Next j
For j = 2 To 5
Sheets("База").Cells(i + shapka, 30 + j) = Round(Sheets(i).Cells(13, j).Value, 2)
Next j
For j = 8 To 11
Sheets("База").Cells(i + shapka, 28 + j) = Round(Sheets(i).Cells(10, j).Value, 2)

[/vba]

Сообщение отредактировал tdmsk1 - Воскресенье, 08.01.2017, 11:50

Ответить

Pelena

Дата: Воскресенье, 08.01.2017, 11:33 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 19196

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

Замечаний: ±

Excel 365 & Mac Excel

tdmsk1, Вы опять нарушаете Правила. Оформите код тегами (в режиме правки выделите и нажмите кнопку #)

По теме: вероятно, в 12-й строке не только числа

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

tdmsk1

Дата: Воскресенье, 08.01.2017, 12:40 | Сообщение № 11

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

Если бы я понимал, то не писал бы сюда. Я просто пользователь этой программы. Тот кто писал нам эту штуку он уже давно не работает у нас. Помогите пожалуйста))

Ответить

Wasilich

Дата: Воскресенье, 08.01.2017, 14:24 | Сообщение № 12

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата Pelena, 08.01.2017 в 11:33, в сообщении № 10 ()

Вы опять нарушаете Правила.

Лена, я наверное тоже! Предложил ему скинуть. Да, там действительно сократить не возможно, с 88-ми листов собираются данные. А в 48-м листе, строка 12, кол.5 - пробел. Вот и выбрасывает на ошибку. Виноват, исправлюсь.