( ! ) Warning: Parameter 1 to CASDmoderator::onBeforeTopicUpdate() expected to be a reference, value given in /home/bitrix/www/bitrix/modules/main/classes/general/module.php on line 480
Call Stack
#TimeMemoryFunctionLocation
10.0001365232{main}( ).../index.php:0
20.06892901168CMain->IncludeComponent( ).../index.php:9
30.06902901912CBitrixComponent->includeComponent( ).../main.php:1071
40.06922907360CBitrixComponent->__includeComponent( ).../component.php:680
50.06922908096include( '/home/bitrix/www/bitrix/components/bitrix/forum/component.php' ).../component.php:605
60.08503510792CBitrixComponent->includeComponentTemplate( ).../component.php:416
70.08543511856CBitrixComponent->showComponentTemplate( ).../component.php:712
80.08543511856CBitrixComponentTemplate->IncludeTemplate( ).../component.php:764
90.09153841400CBitrixComponentTemplate->__IncludePHPTemplate( ).../component_template.php:884
100.09163841720include( '/home/bitrix/www/bitrix/components/bitrix/forum/templates/.default/read.php' ).../component_template.php:789
110.09163844336CMain->IncludeComponent( ).../read.php:3
120.09203856784CBitrixComponent->includeComponent( ).../main.php:1071
130.09233872904ForumTopicRead->executeComponent( ).../component.php:656
140.12124097904ForumTopicRead->__includeComponent( ).../class.php:70
150.12134100720include( '/home/bitrix/www/bitrix/components/bitrix/forum.topic.read/component.php' ).../component.php:605
160.12794283424ForumSetReadTopic( ).../component.php:309
170.12794283424CAllForumTopic::SetReadLabelsNew( ).../deprecated.php:315
180.12794283800CAllForumTopic::Update( ).../topic.php:738
190.12814285216Bitrix\Forum\Topic::update( ).../topic.php:255
200.12814287256ExecuteModuleEventEx( ).../topic.php:643
Страницы: 1 2 След.
RSS
VBA. Перенос значений в столбце из первого листа по одной ячейке на новые листы.
 
 Здравствуйте, подскажите пожалуйста новичку в работе с макросами, как можно решить данную проблему. К сожалению не смогла найти решение подобной задачи в интернете.

Для более подробного объяснения:
Есть вот такие 2 столбца на первом листе с видами растений и их порядковыми номерами, количество строчек может быть разное. Название каждого листа в таблице, кроме первого - порядковый номер (в моей таблице названия листов изменяются с помощью макроса).
1 Вишня
2 Яблоня
3 Роза
4 Тюльпан
5 Камыш
Как с помощью цикла можно скопировать значения из столбца с названиями последовательно по одному на уже существующие листы с формулами и данными? На листе "1" в A1 должно быть "Вишня", на листе "2"  в A1 должно быть " Яблоня" и так далее. Количество строчек, соответственно и листов, каждый раз разное, поэтому желательно чтобы заполнение ячеек на листах шло до первого пустого места в столбце В на первом листе.

Заранее спасибо за любые советы.
Изменено: Ana Lin - 17.07.2020 10:35:25
 
Код
Sub Slect_range()

    lastColumn = Sheets(1).Cells(1, 100).End(xlToLeft).Column
    lastRow = Sheets(1).Cells(1000, 1).End(xlUp).Row
    Call Add_sheets(lastColumn, lastRow)

End Sub

Sub Add_sheets(col, rows)
    
        For mRow = 1 To rows
            sheet_name = Sheets("Лист1").Cells(mRow, col).Value
            sheet_name = Str(mRow) & "_" & sheet_name
            On Error Resume Next
                cheker = Sheets(sheet_name).Name
                If cheker = sheet_name Then
                    GoTo next_row
                Else
                    Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheet_name
                    Sheets(sheet_name).Cells(1, 1).Value = sheet_name
                End If
next_row:
        Next mRow
    
End Sub
 


Изменено: PDO - 17.07.2020 02:25:54 (^_^)
 
Спасибо за ответ, но я забыла дописать в задачу: мне не нужно создавать пустые новые листы, у меня на каждом листе, кроме первого есть формулы и ссылки на предыдущие листы. Можно ли как-то изменить ваш макрос, чтобы вставлялось в уже существующие листы?
Страницы: 1 2 След.
Читают тему (гостей: 1)
Наверх