Страницы: 1
RSS
Перенос на другой лист значений ячеек на основании ссылок на них в другой таблице
 
Добрый день Уважаемые форумчане.
Появилась потребность создать механизм переноса данных с одной страницы на другую по средствам макроса.
На данный момент есть макрос выбора строки. Перенос на другую страницу работает в отрыве от выбора, то есть переносится первая строка, а не та которую выбрали. Прошу сильно не кидаться шапками, я в макросах не силён.
Собственно просьба, научить переносить именно ту или те строки которые выбираются.
На другой странице информация переносимая с первой страницы должна накапливаться, не заменяться!
Пример во вложении.
Прошу помощи и уповаю на Ваше понимание.
 
Только первая переносится потому что и сказано только её переносить.
Нужно предварительно циклом пройтись и проверить в какой из строк "птичка"
Код
Sub Macro2()
Dim lr As Long
Application.ScreenUpdating = False
x = Sheets("проверка").Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To x
    If Cells(i, 1) = "a" And Cells(i, 3) <> "" Then
With Sheets("архив")
    lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
    If Not IsEmpty([b2]) Then
        .Cells(lr, 2).Value = lr - 2
        .Cells(lr, 3).Value = Cells(i, 3).Value
        .Cells(lr, 4).Value = Cells(i, 4).Value
        .Cells(lr, 5).Value = Cells(i, 5).Value
        .Cells(lr, 6).Value = Cells(i, 6).Value
        .Cells(lr, 7).Value = Cells(i, 7).Value
        .Cells(lr, 8).Value = Cells(i, 8).Value
        .Cells(lr, 9).Value = Cells(i, 9).Value
        .Cells(lr, 10).Value = Cells(i, 10).Value
        .Cells(lr, 11).Value = Cells(i, 11).Value
        .Cells(lr, 12).Value = Cells(i, 12).Value
        .Cells(lr, 13).Value = Cells(i, 13).Value
        .Cells(lr, 14).Value = Cells(i, 14).Value
        .Cells(lr, 15).Value = Cells(i, 15).Value
        .Cells(lr, 16).Value = Cells(i, 16).Value
        .Cells(lr, 17).Value = Cells(i, 17).Value
        End If
    lr = .Cells(Rows.Count, 2).End(xlUp).Row - 1
End With
Cells(i, 3) = ""
Cells(i, 4) = ""
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
Cells(i, 8) = ""
Cells(i, 9) = ""
Cells(i, 10) = ""
Cells(i, 11) = ""
Cells(i, 12) = ""
Cells(i, 13) = ""
Cells(i, 14) = ""
Cells(i, 15) = ""
Cells(i, 16) = ""
Cells(i, 17) = ""
End If
Next
Application.ScreenUpdating = True
End Sub
 
GRIM, большое человеческое cпасибо!!!!
Я только начинаю в этом всём разбираться, поэтому иногда плаваю.
 
Уважаемый GRIM,
прошу помочь "допилить" уже известный Вам файл.
Ранее Вы мне очень помогли с выбором "птичек" и переносом на другой лист.
К сожалению я не учёл некоторые моменты.
Предполагается, что основная таблица будет черпать информацию из разных ячеек и соответственно заполняться.
Возможно ли, в Макросе прописать, что бы при его выполнении переносилась информация в "архив", а стиралась информация как раз в первоначальных ячейках с данными, а не в зависимой от них таблице. Таблица будет содержать формулы, поэтому очень нужно, что бы они оставались на месте.
Возможно объяснил коряво, но с примером будет понятнее.
Заранее спасибо за Вашу помощь.
 
Вариант для темы: "Перенос на другой лист значений ячеек на основании ссылок на них в другой таблице"
и то что получилось в файле.
 
GRIM, большущее спасибо.
Это именно то, что нужно. Вы кудесник. Процветания Вам!!!
 
Спасибо
Изменено: Vit11 - 12.12.2019 12:35:39
Страницы: 1
Наверх