Сохранение данных при нажатии на кнопку
Dadojon
Дата: Понедельник, 26.12.2016, 07:26 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Имеется Лист1 с данными и кнопкой сохранения. При нажатии на кнопку данные Лист1 должны сохранятся в следующем Лист2 по строкам. При повторном нажатии данные повторно сохраняются уже в следующей строке Лист2.
Имеется Лист1 с данными и кнопкой сохранения. При нажатии на кнопку данные Лист1 должны сохранятся в следующем Лист2 по строкам. При повторном нажатии данные повторно сохраняются уже в следующей строке Лист2. Dadojon
Ответить
Сообщение Имеется Лист1 с данными и кнопкой сохранения. При нажатии на кнопку данные Лист1 должны сохранятся в следующем Лист2 по строкам. При повторном нажатии данные повторно сохраняются уже в следующей строке Лист2. Автор - Dadojon Дата добавления - 26.12.2016 в 07:26
parovoznik
Дата: Понедельник, 26.12.2016, 08:23 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация:
26
±
Замечаний:
0% ±
Excel 2013
Dadojon, что то не видать Вашего лист1 и кнопки
Dadojon, что то не видать Вашего лист1 и кнопки parovoznik
Ответить
Сообщение Dadojon, что то не видать Вашего лист1 и кнопки Автор - parovoznik Дата добавления - 26.12.2016 в 08:23
Dadojon
Дата: Понедельник, 26.12.2016, 08:53 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
parovoznik, Лист1 переименован на Info, а Лист2 переименован на Total.
parovoznik, Лист1 переименован на Info, а Лист2 переименован на Total. Dadojon
Ответить
Сообщение parovoznik, Лист1 переименован на Info, а Лист2 переименован на Total. Автор - Dadojon Дата добавления - 26.12.2016 в 08:53
K-SerJC
Дата: Понедельник, 26.12.2016, 09:18 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация:
86
±
Замечаний:
0% ±
Excel 2013
parovoznik, Лист1 переименован на Info, а Лист2 переименован на Total.
наверное если к сообщению все таки файл прикрепить, можно что то и подумать будет...
parovoznik, Лист1 переименован на Info, а Лист2 переименован на Total.
наверное если к сообщению все таки файл прикрепить, можно что то и подумать будет...K-SerJC
Благими намерениями выстелена дорога в АД.
Ответить
Сообщение parovoznik, Лист1 переименован на Info, а Лист2 переименован на Total.
наверное если к сообщению все таки файл прикрепить, можно что то и подумать будет...Автор - K-SerJC Дата добавления - 26.12.2016 в 09:18
Dadojon
Дата: Понедельник, 26.12.2016, 09:52 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
K-SerJC, Кнопка в виде смайлика
K-SerJC, Кнопка в виде смайлика Dadojon
К сообщению приложен файл:
SWIFT.xls
(38.5 Kb)
Ответить
Сообщение K-SerJC, Кнопка в виде смайлика Автор - Dadojon Дата добавления - 26.12.2016 в 09:52
K-SerJC
Дата: Понедельник, 26.12.2016, 10:26 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация:
86
±
Замечаний:
0% ±
Excel 2013
K-SerJC, Кнопка в виде смайлика
проверяйте, так?
K-SerJC, Кнопка в виде смайлика
проверяйте, так?K-SerJC
Благими намерениями выстелена дорога в АД.
Ответить
Сообщение K-SerJC, Кнопка в виде смайлика
проверяйте, так?Автор - K-SerJC Дата добавления - 26.12.2016 в 10:26
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]
Или так. [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] Wasilich
Сообщение отредактировал Wasilich - Понедельник, 26.12.2016, 12:19
Ответить
Сообщение Или так. [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] Автор - Wasilich Дата добавления - 26.12.2016 в 12:15
Dadojon
Дата: Понедельник, 26.12.2016, 12:23 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
K-SerJC, Огромное спасибо, получилось так как и намечалось
K-SerJC, Огромное спасибо, получилось так как и намечалось Dadojon
Ответить
Сообщение K-SerJC, Огромное спасибо, получилось так как и намечалось Автор - Dadojon Дата добавления - 26.12.2016 в 12:23
K-SerJC
Дата: Понедельник, 26.12.2016, 16:00 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация:
86
±
Замечаний:
0% ±
Excel 2013
нюанс заметил, в первой ячейке дату в формате числовом отображает ;-) 42719
нюанс заметил, в первой ячейке дату в формате числовом отображает ;-) 42719K-SerJC
Благими намерениями выстелена дорога в АД.
Ответить
Сообщение нюанс заметил, в первой ячейке дату в формате числовом отображает ;-) 42719Автор - K-SerJC Дата добавления - 26.12.2016 в 16:00
Wasilich
Дата: Понедельник, 26.12.2016, 20:34 |
Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
дату в формате числовом отображает
Тяжелый случай! А кто не дает установить формат ДАТЫ в колонке.
дату в формате числовом отображает
Тяжелый случай! А кто не дает установить формат ДАТЫ в колонке.Wasilich
Ответить
Сообщение дату в формате числовом отображает
Тяжелый случай! А кто не дает установить формат ДАТЫ в колонке.Автор - Wasilich Дата добавления - 26.12.2016 в 20:34