Объединение показаний из разных файлов в таб-цу одного файла - Страница 3

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

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

Объединение показаний из разных файлов в таб-цу одного файла (Формулы/Formulas)

Объединение показаний из разных файлов в таб-цу одного файла

DrMini

Дата: Четверг, 27.09.2018, 13:16 | Сообщение № 41

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

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

Сообщений: 1880

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

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

Excel LTSC 2024 RUS

Цитата _Boroda_, 27.09.2018 в 12:57, в сообщении № 40 ()

Тогда так

Александр Вы гений. Взял Ваш первый вариант. Второй опробую позже.
СПАСИБО ОГРОМНОЕ!!!

Ответить

DrMini

Дата: Понедельник, 24.12.2018, 13:52 | Сообщение № 42

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

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

Сообщений: 1880

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

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

Excel LTSC 2024 RUS

Доброго времени суток форумчане и с наступающим Новым годом.
Прошу помощи в продолжении этой темы. После нескольких месяцев "обкатки" и "доработки" приёма показаний счётчиков. Выяснилось, что есть квартиры с 5-ю(пятью) счётчиками. Помогите пожалуйста доделать макрос в файле 9051878.xlsm, что бы без ошибок распознавалась строка с Дополнительным (пятым) счётчиком. Прилагаю предыдущий файл 0000000001.xls и с добавленным Дополнительным счётчиком 0000000002.xls. Ячейка E6 так и будет называться Доп. ХВС. Может как то сделать, что бы макрос добавлял дополнительную строку только при каком то статичном показателе.
[offtop]Продолжил эту тему потому, что мне кажется проще будет "въехать" в смысл того, что нужно сделать. Если это нарушение, то я открою новую тему.[/offtop]

К сообщению приложен файл: 9051878.xlsm (31.8 Kb)

Сообщение отредактировал DrMini - Понедельник, 24.12.2018, 13:55

Ответить

DrMini

Дата: Понедельник, 24.12.2018, 13:54 | Сообщение № 43

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

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

Сообщений: 1880

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

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

Excel LTSC 2024 RUS

Если после данных по пяти счётчикам идут данные четырёх то выдаётся ошибка

Цитата

Run-time error '5'
Invalid procedure call or argument

строчка в коде
[vba]

Код

.Cells(i, 1) = MonthName(.Cells(i, 1))

[/vba]
подсвечена жёлтым.
И в догонку файлы для передачи данных.

К сообщению приложен файл: 0460840.xls (39.0 Kb) · 0000000002.xls (39.5 Kb)

Сообщение отредактировал DrMini - Понедельник, 24.12.2018, 15:51

Ответить

DrMini

Дата: Понедельник, 24.12.2018, 16:03 | Сообщение № 44

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

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

Сообщений: 1880

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

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

Excel LTSC 2024 RUS

Поменял кусок кода, как советовал Александр в Сообщении № 40
[vba]

Код

On Error Resume Next
        For i = 2 To r1_ Step 4
            .Cells(i, 1) = MonthName(.Cells(i, 1))
        Next i
        On Error GoTo 0

[/vba]
Ошибки прекратились но вот название месяца после пяти счётчиков стало не словом, а цифрой номера месяца в году.

Сообщение отредактировал DrMini - Понедельник, 24.12.2018, 20:03

Ответить

_Boroda_

Дата: Вторник, 25.12.2018, 09:49 | Сообщение № 45

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте вот так
[vba]

Код

   For i = 2 To r1_
      If IsNumeric(.Cells(i, 1)) And .Cells(i, 1) <> "" Then
         .Cells(i, 1) = MonthName(.Cells(i, 1))
      End If
   Next i

[/vba]

К сообщению приложен файл: 9051878_1.xlsm (34.2 Kb)

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

Ответить

DrMini

Дата: Вторник, 25.12.2018, 10:04 | Сообщение № 46

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

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

Сообщений: 1880

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

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

Excel LTSC 2024 RUS

АЛЕКСАНДР СПАСИБО! Всё работает!
[p.s.]Ух ты. От меня Вам "Круглая" репутация" 5600.[/p.s.]

К сообщению приложен файл: 1363630.jpg (11.6 Kb)

Сообщение отредактировал DrMini - Вторник, 25.12.2018, 10:08

Ответить

Объединение показаний из разных файлов в таб-цу одного файла (Формулы/Formulas)

Страница 3 из 3
«
1
2
3