Копирование данных из определенных ячеек на новый лист - Страница 3

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование данных из определенных ячеек на новый лист - Страница 3 - Мир MS Excel

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

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

Копирование данных из определенных ячеек на новый лист (Макросы/Sub)

Копирование данных из определенных ячеек на новый лист

RAN

Дата: Вторник, 24.05.2022, 15:08 | Сообщение № 41

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Ох бяба, бяда..
[vba]

Код

Sub Add_Sell()
    Worksheets("Ввод данных").Range("G6:P6").Copy
    n = Worksheets("Персональные данные").Range("A100000").End(xlUp).Row
    Worksheets("Персональные данные").Cells(n + 1, 2).PasteSpecial Paste:=xlPasteValues
    Worksheets("Ввод данных").Range("A6").Copy 'Worksheets("Персональные данные").Cells(n + 1, 1)
    Worksheets("Персональные данные").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues
    With Worksheets("Движение")
    n = .Range("A100000").End(xlUp).Row
    Range("A6:G6").Copy '.Range("A" & n)
    Worksheets("Движение").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues
    End With
Add_Clear ' сей макрос у вас есть (или был)
End Sub

[/vba]
Ввели данные - очистили форму. И сравнивать не нать.