Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных из определенных ячеек на новый лист (Макросы/Sub)
Копирование данных из определенных ячеек на новый лист
RAN Дата: Вторник, 24.05.2022, 15:08 | Сообщение № 41
Группа: Друзья
Ранг: Экселист
Сообщений: 5630
Репутация: 1143 ±
Замечаний: 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]
Ввели данные - очистили форму. И сравнивать не нать.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеОх бяба, бяда..
[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]
Ввели данные - очистили форму. И сравнивать не нать.

Автор - RAN
Дата добавления - 24.05.2022 в 15:08
Смольный Дата: Вторник, 24.05.2022, 15:52 | Сообщение № 42
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

RAN, Спасибо, так не пойдет, но вопрос уже решен.


Сообщение отредактировал Смольный - Среда, 25.05.2022, 09:41
 
Ответить
СообщениеRAN, Спасибо, так не пойдет, но вопрос уже решен.

Автор - Смольный
Дата добавления - 24.05.2022 в 15:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных из определенных ячеек на новый лист (Макросы/Sub)
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!