( ! ) 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.07652901168CMain->IncludeComponent( ).../index.php:9
30.07672901912CBitrixComponent->includeComponent( ).../main.php:1071
40.07682907360CBitrixComponent->__includeComponent( ).../component.php:680
50.07682908096include( '/home/bitrix/www/bitrix/components/bitrix/forum/component.php' ).../component.php:605
60.09393509432CBitrixComponent->includeComponentTemplate( ).../component.php:416
70.09433510496CBitrixComponent->showComponentTemplate( ).../component.php:712
80.09433510496CBitrixComponentTemplate->IncludeTemplate( ).../component.php:764
90.10083840648CBitrixComponentTemplate->__IncludePHPTemplate( ).../component_template.php:884
100.10083840968include( '/home/bitrix/www/bitrix/components/bitrix/forum/templates/.default/read.php' ).../component_template.php:789
110.10093843584CMain->IncludeComponent( ).../read.php:3
120.10133856032CBitrixComponent->includeComponent( ).../main.php:1071
130.10163872152ForumTopicRead->executeComponent( ).../component.php:656
140.12754097152ForumTopicRead->__includeComponent( ).../class.php:70
150.12764099968include( '/home/bitrix/www/bitrix/components/bitrix/forum.topic.read/component.php' ).../component.php:605
160.13434280584ForumSetReadTopic( ).../component.php:309
170.13434280584CAllForumTopic::SetReadLabelsNew( ).../deprecated.php:315
180.13444280960CAllForumTopic::Update( ).../topic.php:738
190.13454282376Bitrix\Forum\Topic::update( ).../topic.php:255
200.13464284416ExecuteModuleEventEx( ).../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)
Наверх