Сохранение в таблице изменяемых данных
Тормозяка
Дата: Воскресенье, 28.08.2016, 11:38 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Всем большое Здравствуйте! Очередная надежда на Вашу помощь. В отдельной строке, при выборе, определенного порядкового номера таблицы, изменяются данные. Необходимо, чтобы эти данные сохранялись на века, в таблице, в соответствующей строке.
Всем большое Здравствуйте! Очередная надежда на Вашу помощь. В отдельной строке, при выборе, определенного порядкового номера таблицы, изменяются данные. Необходимо, чтобы эти данные сохранялись на века, в таблице, в соответствующей строке. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Всем большое Здравствуйте! Очередная надежда на Вашу помощь. В отдельной строке, при выборе, определенного порядкового номера таблицы, изменяются данные. Необходимо, чтобы эти данные сохранялись на века, в таблице, в соответствующей строке. Автор - Тормозяка Дата добавления - 28.08.2016 в 11:38
Nic70y
Дата: Воскресенье, 28.08.2016, 12:19 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
вариант: [vba]Код
Sub tipamacro_() If [b2] = "" Then u = 2 Else u = [b1].End(xlDown).Row + 1 End If Range("b" & u & ":f" & u) = Range("h2:l2").Value End Sub
[/vba]
вариант: [vba]Код
Sub tipamacro_() If [b2] = "" Then u = 2 Else u = [b1].End(xlDown).Row + 1 End If Range("b" & u & ":f" & u) = Range("h2:l2").Value End Sub
[/vba] Nic70y
ЮMoney 41001841029809
Ответить
Сообщение вариант: [vba]Код
Sub tipamacro_() If [b2] = "" Then u = 2 Else u = [b1].End(xlDown).Row + 1 End If Range("b" & u & ":f" & u) = Range("h2:l2").Value End Sub
[/vba] Автор - Nic70y Дата добавления - 28.08.2016 в 12:19
Тормозяка
Дата: Воскресенье, 28.08.2016, 13:40 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Извините, конечно, но я не рубинштейн в макросах и не копенгаген в VBA.
Nic70y, Извините, конечно, но я не рубинштейн в макросах и не копенгаген в VBA. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Извините, конечно, но я не рубинштейн в макросах и не копенгаген в VBA. Автор - Тормозяка Дата добавления - 28.08.2016 в 13:40
Тормозяка
Дата: Воскресенье, 28.08.2016, 13:46 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Д, и еще желательно, чтобы без кликанья кнопки "Запомнить". Т.е. При выборе порядкового номера таблицы, автоматически сохранялся предыдущий набор данных. Дело в том, что строк около 3000 и данных 20-25 столбцов. Скучно будет стучать по "клаве"
Nic70y, Д, и еще желательно, чтобы без кликанья кнопки "Запомнить". Т.е. При выборе порядкового номера таблицы, автоматически сохранялся предыдущий набор данных. Дело в том, что строк около 3000 и данных 20-25 столбцов. Скучно будет стучать по "клаве" Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Д, и еще желательно, чтобы без кликанья кнопки "Запомнить". Т.е. При выборе порядкового номера таблицы, автоматически сохранялся предыдущий набор данных. Дело в том, что строк около 3000 и данных 20-25 столбцов. Скучно будет стучать по "клаве" Автор - Тормозяка Дата добавления - 28.08.2016 в 13:46
Nic70y
Дата: Воскресенье, 28.08.2016, 15:06 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g1")) Is Nothing Then If Range("b" & [g1] + 1) = "" Then Range("b" & [g1] + 1 & ":f" & [g1] + 1) = Range("h2:l2").Value Else If [g1] <> "" Then MsgBox "Строка " & [g1].Value & " уже заполнена", 64, "Ну что за безобразие!" End If End If End Sub
[/vba]Так?
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g1")) Is Nothing Then If Range("b" & [g1] + 1) = "" Then Range("b" & [g1] + 1 & ":f" & [g1] + 1) = Range("h2:l2").Value Else If [g1] <> "" Then MsgBox "Строка " & [g1].Value & " уже заполнена", 64, "Ну что за безобразие!" End If End If End Sub
[/vba]Так? Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Воскресенье, 28.08.2016, 15:07
Ответить
Сообщение [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g1")) Is Nothing Then If Range("b" & [g1] + 1) = "" Then Range("b" & [g1] + 1 & ":f" & [g1] + 1) = Range("h2:l2").Value Else If [g1] <> "" Then MsgBox "Строка " & [g1].Value & " уже заполнена", 64, "Ну что за безобразие!" End If End If End Sub
[/vba]Так? Автор - Nic70y Дата добавления - 28.08.2016 в 15:06
Тормозяка
Дата: Воскресенье, 28.08.2016, 15:18 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Ну не фунциклируют у меня макросы. Извините!
Nic70y, Ну не фунциклируют у меня макросы. Извините! Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Ну не фунциклируют у меня макросы. Извините! Автор - Тормозяка Дата добавления - 28.08.2016 в 15:18
Nic70y
Дата: Воскресенье, 28.08.2016, 15:49 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Пишете число в ячейке g1, жмете энтер, и ни чё не происходит?
Пишете число в ячейке g1, жмете энтер, и ни чё не происходит? Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Пишете число в ячейке g1, жмете энтер, и ни чё не происходит? Автор - Nic70y Дата добавления - 28.08.2016 в 15:49
Тормозяка
Дата: Воскресенье, 28.08.2016, 15:58 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Совершенно ничего. У меня отключены макросы. При открытии Вашего файла, Excel самостоятельно его (файл) переделывает в обычный и радостно сообщает, что восстановил поломатый (как наша жизнь), файл.
Nic70y, Совершенно ничего. У меня отключены макросы. При открытии Вашего файла, Excel самостоятельно его (файл) переделывает в обычный и радостно сообщает, что восстановил поломатый (как наша жизнь), файл. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Совершенно ничего. У меня отключены макросы. При открытии Вашего файла, Excel самостоятельно его (файл) переделывает в обычный и радостно сообщает, что восстановил поломатый (как наша жизнь), файл. Автор - Тормозяка Дата добавления - 28.08.2016 в 15:58
Nic70y
Дата: Понедельник, 29.08.2016, 09:33 |
Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Включите макросы, скопируйте код из 5-го сооб., вставьте его в модуль листа своего файла.
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Понедельник, 29.08.2016, 09:34
Ответить
Сообщение Включите макросы, скопируйте код из 5-го сооб., вставьте его в модуль листа своего файла.Автор - Nic70y Дата добавления - 29.08.2016 в 09:33
Тормозяка
Дата: Понедельник, 29.08.2016, 11:24 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Оказывается макросы включены, но не работают.
Nic70y, Оказывается макросы включены, но не работают. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Оказывается макросы включены, но не работают. Автор - Тормозяка Дата добавления - 29.08.2016 в 11:24
китин
Дата: Понедельник, 29.08.2016, 11:39 |
Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
Тормозяка , а файл в каком формате сохранен? надо xlsm. xlsx макросы не поддерживает
Тормозяка , а файл в каком формате сохранен? надо xlsm. xlsx макросы не поддерживаеткитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение Тормозяка , а файл в каком формате сохранен? надо xlsm. xlsx макросы не поддерживаетАвтор - китин Дата добавления - 29.08.2016 в 11:39
Тормозяка
Дата: Понедельник, 29.08.2016, 11:59 |
Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
китин, В xlsm. Я когда-то ковырялся в настройках компа и вроде где-то, что-то отключал касающееся макросов. (Тогда комп крепко тормозил из за них)
китин, В xlsm. Я когда-то ковырялся в настройках компа и вроде где-то, что-то отключал касающееся макросов. (Тогда комп крепко тормозил из за них) Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение китин, В xlsm. Я когда-то ковырялся в настройках компа и вроде где-то, что-то отключал касающееся макросов. (Тогда комп крепко тормозил из за них) Автор - Тормозяка Дата добавления - 29.08.2016 в 11:59
Тормозяка
Дата: Понедельник, 29.08.2016, 12:00 |
Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
А без макросов этот вопрос не решается???
А без макросов этот вопрос не решается??? Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Сообщение отредактировал Тормозяка - Понедельник, 29.08.2016, 12:00
Ответить
Сообщение А без макросов этот вопрос не решается??? Автор - Тормозяка Дата добавления - 29.08.2016 в 12:00
sboy
Дата: Понедельник, 29.08.2016, 12:05 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Легко. руками. Копировать-Вставить значения
Легко. руками. Копировать-Вставить значения sboy
Яндекс: 410016850021169
Ответить
Сообщение Легко. руками. Копировать-Вставить значения Автор - sboy Дата добавления - 29.08.2016 в 12:05
Тормозяка
Дата: Понедельник, 29.08.2016, 14:18 |
Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
sboy, Точно! Спасибо. Только надо найти умного парня, чтоб копировал 3000 строк, типа "Копировать-Вставить"
sboy, Точно! Спасибо. Только надо найти умного парня, чтоб копировал 3000 строк, типа "Копировать-Вставить" Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение sboy, Точно! Спасибо. Только надо найти умного парня, чтоб копировал 3000 строк, типа "Копировать-Вставить" Автор - Тормозяка Дата добавления - 29.08.2016 в 14:18
sboy
Дата: Понедельник, 29.08.2016, 15:33 |
Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
не обязательно, главное внимательного и усидчивого. [p.s.]Простите за нескромный вопрос, а макрос использовать религия не позволяет?[/p.s.]
не обязательно, главное внимательного и усидчивого. [p.s.]Простите за нескромный вопрос, а макрос использовать религия не позволяет?[/p.s.]sboy
Яндекс: 410016850021169
Ответить
Сообщение не обязательно, главное внимательного и усидчивого. [p.s.]Простите за нескромный вопрос, а макрос использовать религия не позволяет?[/p.s.]Автор - sboy Дата добавления - 29.08.2016 в 15:33
Тормозяка
Дата: Понедельник, 29.08.2016, 15:58 |
Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
sboy, Не кошерно как-то
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение sboy, Не кошерно как-то Автор - Тормозяка Дата добавления - 29.08.2016 в 15:58
Nic70y
Дата: Понедельник, 29.08.2016, 17:07 |
Сообщение № 18
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Тормозяка, если бы не Ваш ник, я бы написал бы Вам кучу нецензурных слов за это, а так держите формулы (но они опасные для Excel)
Тормозяка, если бы не Ваш ник, я бы написал бы Вам кучу нецензурных слов за это, а так держите формулы (но они опасные для Excel) Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Тормозяка, если бы не Ваш ник, я бы написал бы Вам кучу нецензурных слов за это, а так держите формулы (но они опасные для Excel) Автор - Nic70y Дата добавления - 29.08.2016 в 17:07
Тормозяка
Дата: Понедельник, 29.08.2016, 18:12 |
Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Извините, если ненароком обидел.
Nic70y, Извините, если ненароком обидел. Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Извините, если ненароком обидел. Автор - Тормозяка Дата добавления - 29.08.2016 в 18:12
Тормозяка
Дата: Понедельник, 29.08.2016, 18:26 |
Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Nic70y, Все получилось, невзирая на циклическую ссылку. Спасибо. Просто и гениально. Еще раз извините за казарменный юмор (армейские годы не проходят, для мозга, просто так).
Nic70y, Все получилось, невзирая на циклическую ссылку. Спасибо. Просто и гениально. Еще раз извините за казарменный юмор (армейские годы не проходят, для мозга, просто так). Тормозяка
Эвольвенты одной эволюты- эквидистантны!
Ответить
Сообщение Nic70y, Все получилось, невзирая на циклическую ссылку. Спасибо. Просто и гениально. Еще раз извините за казарменный юмор (армейские годы не проходят, для мозга, просто так). Автор - Тормозяка Дата добавления - 29.08.2016 в 18:26