Сохранение данных при нажатии на кнопку

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение данных при нажатии на кнопку (Макросы/Sub)

Dadojon

Дата: Понедельник, 26.12.2016, 07:26 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

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

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

Excel 2010

Имеется Лист1 с данными и кнопкой сохранения. При нажатии на кнопку данные Лист1 должны сохранятся в следующем Лист2 по строкам. При повторном нажатии данные повторно сохраняются уже в следующей строке Лист2.

Ответить

parovoznik

Дата: Понедельник, 26.12.2016, 08:23 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

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

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

Excel 2013

Dadojon, что то не видать Вашего лист1 и кнопки <_<

Ответить

Dadojon

Дата: Понедельник, 26.12.2016, 08:53 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

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

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

Excel 2010

parovoznik,
Лист1 переименован на Info, а Лист2 переименован на Total.

Ответить

K-SerJC

Дата: Понедельник, 26.12.2016, 09:18 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата Dadojon, 26.12.2016 в 08:53, в сообщении № 3 ()

parovoznik,
Лист1 переименован на Info, а Лист2 переименован на Total.

наверное если к сообщению все таки файл прикрепить, можно что то и подумать будет...

Благими намерениями выстелена дорога в АД.

Ответить

Dadojon

Дата: Понедельник, 26.12.2016, 09:52 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

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

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

Excel 2010

K-SerJC, Кнопка в виде смайлика

К сообщению приложен файл: SWIFT.xls (38.5 Kb)

Ответить

K-SerJC

Дата: Понедельник, 26.12.2016, 10:26 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата Dadojon, 26.12.2016 в 09:52, в сообщении № 5 ()

K-SerJC, Кнопка в виде смайлика

проверяйте, так?

К сообщению приложен файл: SWIFT_v1.xls (49.0 Kb)

Благими намерениями выстелена дорога в АД.

Ответить

Wasilich

Дата: Понедельник, 26.12.2016, 12:15 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Или так.
[vba]

Код

Sub Улыбающеесялицо2_Щелчок()
  Dim S&
  Application.ScreenUpdating = False
  With Sheets("Total")
     S = .Range("B" & Rows.Count).End(xlUp).Row + 1
     Range("C4:C11").Copy
     .Range("B" & S).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
     Range("C13:C25").Copy
     .Range("J" & S).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
  End With
  Application.CutCopyMode = False
  Application.ScreenUpdating = False
End Sub

[/vba]