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

Вход

Регистрация

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

 

= Мир MS Excel/Книга для регистрации людей - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Книга для регистрации людей (Регистрация людей)
Книга для регистрации людей
Galandets Дата: Пятница, 15.10.2010, 17:15 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Добрый вечер, подскажите с чего начать, мне на листе нужно столбик ФИО и рядом кнопку которая будет коипровать на второй лист и изменению второй лист не подлежит только просмотру, можно это сделать и подскажите с чего начать ? спасибо
 
Ответить
СообщениеДобрый вечер, подскажите с чего начать, мне на листе нужно столбик ФИО и рядом кнопку которая будет коипровать на второй лист и изменению второй лист не подлежит только просмотру, можно это сделать и подскажите с чего начать ? спасибо
Автор - Galandets
Дата добавления - 15.10.2010 в 17:15
Serge_007 Дата: Пятница, 15.10.2010, 17:22 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте Mosk .

Quote (Galandets)
столбик ФИО и рядом кнопку которая будет коипровать на второй лист

Копировать что? Весь столбик? Одну фамилию? Несколько? Новую? По-условию?

Quote
изменению второй лист не подлежит только просмотру

Почему не подлежит? Вы не хотите? Или он защищён?

Опишите подробнее что Вы хотите получить в итоге, а ещё лучше приложите файл - "Есть так - надо так".


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте Mosk .

Quote (Galandets)
столбик ФИО и рядом кнопку которая будет коипровать на второй лист

Копировать что? Весь столбик? Одну фамилию? Несколько? Новую? По-условию?

Quote
изменению второй лист не подлежит только просмотру

Почему не подлежит? Вы не хотите? Или он защищён?

Опишите подробнее что Вы хотите получить в итоге, а ещё лучше приложите файл - "Есть так - надо так".

Автор - Serge_007
Дата добавления - 15.10.2010 в 17:22
Galandets Дата: Пятница, 15.10.2010, 17:51 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Quote (Serge_007)
Добрый вечер, подскажите с чего начать, мне на листе нужно столбик ФИО и рядом кнопку которая будет коипровать на второй лист и изменению второй лист не подлежит только просмотру, можно это сделать и подскажите с чего начать ? спасибо

Пример прикладываю

К сообщению приложен файл: 6810760.xls (19.0 Kb)
 
Ответить
Сообщение
Quote (Serge_007)
Добрый вечер, подскажите с чего начать, мне на листе нужно столбик ФИО и рядом кнопку которая будет коипровать на второй лист и изменению второй лист не подлежит только просмотру, можно это сделать и подскажите с чего начать ? спасибо

Пример прикладываю

Автор - Galandets
Дата добавления - 15.10.2010 в 17:51
nilem Дата: Пятница, 15.10.2010, 18:21 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Можно так...
К сообщению приложен файл: post_164176.zip (19.8 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеМожно так...
Автор - nilem
Дата добавления - 15.10.2010 в 18:21
Гость Дата: Пятница, 15.10.2010, 23:56 | Сообщение № 5
Группа: Гости
в понедельник посмотрю
 
Ответить
Сообщениев понедельник посмотрю
Автор - Гость
Дата добавления - 15.10.2010 в 23:56
Galandets Дата: Суббота, 16.10.2010, 09:48 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте подскажите я добавил дату Ctrl+Q, после выбора Даты (на Листе 1) можно сделать чтоб она тоже автоматически попадала на Лист2 дополнительный столбец Дата
К сообщению приложен файл: post_164176-.xls (68.0 Kb)
 
Ответить
СообщениеЗдравствуйте подскажите я добавил дату Ctrl+Q, после выбора Даты (на Листе 1) можно сделать чтоб она тоже автоматически попадала на Лист2 дополнительный столбец Дата
Автор - Galandets
Дата добавления - 16.10.2010 в 09:48
Serge_007 Дата: Суббота, 16.10.2010, 10:07 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Galandets)
после выбора Даты (на Листе 1) можно сделать чтоб она тоже автоматически попадала на Лист2 дополнительный столбец Дата
Можно.
Измените код Николая на такой:
Code

Sub fio()
Dim lr As Long
Application.ScreenUpdating = False
With Sheets(2)
        .Unprotect "123"
        lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        If Not IsEmpty([c11]) Then
            .Cells(lr, 1).Value = lr - 1
            .Cells(lr, 2).Value = Cells(11, 3).Value
            .Cells(lr, 3).Value = Cells(13, 3).Value
        End If
        .Protect "123"
End With
Cells(11, 3) = ""
Cells(13, 3) = ""
Application.ScreenUpdating = True
End Sub
К сообщению приложен файл: PerenosNaDrugoy.rar (20.4 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Galandets)
после выбора Даты (на Листе 1) можно сделать чтоб она тоже автоматически попадала на Лист2 дополнительный столбец Дата
Можно.
Измените код Николая на такой:
Code

Sub fio()
Dim lr As Long
Application.ScreenUpdating = False
With Sheets(2)
        .Unprotect "123"
        lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        If Not IsEmpty([c11]) Then
            .Cells(lr, 1).Value = lr - 1
            .Cells(lr, 2).Value = Cells(11, 3).Value
            .Cells(lr, 3).Value = Cells(13, 3).Value
        End If
        .Protect "123"
End With
Cells(11, 3) = ""
Cells(13, 3) = ""
Application.ScreenUpdating = True
End Sub
Автор - Serge_007
Дата добавления - 16.10.2010 в 10:07
Galandets Дата: Суббота, 16.10.2010, 11:53 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Пжт подскажите . Я от редактировал сам фон книги, и теперь не перносится дата.
К сообщению приложен файл: post_164176.xls (53.5 Kb)
 
Ответить
СообщениеПжт подскажите . Я от редактировал сам фон книги, и теперь не перносится дата.
Автор - Galandets
Дата добавления - 16.10.2010 в 11:53
Serge_007 Дата: Суббота, 16.10.2010, 12:46 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Galandets)
Я от редактировал сам фон книги, и теперь не перносится дата.

А чего сразу не выложить было файл-пример такой как надо в итоге?
Я ведь предлагал:
Quote (Serge_007)
Приложите файл - "Есть так - надо так".

Code
Sub fio()
Dim lr As Long
Dim ld As Date
Application.ScreenUpdating = False
With Sheets(2)
.Unprotect "123"
lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
If Not IsEmpty([c4]) Then
.Cells(lr, 1).Value = lr - 1
.Cells(lr, 2).Value = Cells(4, 3).Value
.Cells(lr, 3).Value = Cells(6, 3).Value
End If
.Protect "123"
End With
Cells(4, 3) = ""
Cells(6, 3) = ""
Application.ScreenUpdating = True
End Sub

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Galandets)
Я от редактировал сам фон книги, и теперь не перносится дата.

А чего сразу не выложить было файл-пример такой как надо в итоге?
Я ведь предлагал:
Quote (Serge_007)
Приложите файл - "Есть так - надо так".

Code
Sub fio()
Dim lr As Long
Dim ld As Date
Application.ScreenUpdating = False
With Sheets(2)
.Unprotect "123"
lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
If Not IsEmpty([c4]) Then
.Cells(lr, 1).Value = lr - 1
.Cells(lr, 2).Value = Cells(4, 3).Value
.Cells(lr, 3).Value = Cells(6, 3).Value
End If
.Protect "123"
End With
Cells(4, 3) = ""
Cells(6, 3) = ""
Application.ScreenUpdating = True
End Sub
Автор - Serge_007
Дата добавления - 16.10.2010 в 12:46
nilem Дата: Суббота, 16.10.2010, 15:10 | Сообщение № 10
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Дату лучше объявить глобальной переменной (имхо).
К сообщению приложен файл: 1525156.zip (35.1 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеДату лучше объявить глобальной переменной (имхо).
Автор - nilem
Дата добавления - 16.10.2010 в 15:10
Galandets Дата: Понедельник, 18.10.2010, 15:14 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, помогите пжт, не могу добавить текущее время, адрес контактного лица, телефон, № счета, оплачен (Дата), Срок исполнения, дополнительно.
К сообщению приложен файл: 3755269.xls (72.0 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите пжт, не могу добавить текущее время, адрес контактного лица, телефон, № счета, оплачен (Дата), Срок исполнения, дополнительно.
Автор - Galandets
Дата добавления - 18.10.2010 в 15:14
Serge_007 Дата: Понедельник, 18.10.2010, 15:24 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Galandets)
не могу добавить текущее время, адрес контактного лица, телефон, № счета, оплачен (Дата), Срок исполнения, дополнительно.

В посте от Пятница, 15.10.2010, 17:22 я просил:

Quote (Serge_007)
Опишите подробнее что Вы хотите получить в итоге, и приложите файл - "Есть так - надо так".

Вы можете это сделать?
Или будем по зёрнышку собирать файл?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Galandets)
не могу добавить текущее время, адрес контактного лица, телефон, № счета, оплачен (Дата), Срок исполнения, дополнительно.

В посте от Пятница, 15.10.2010, 17:22 я просил:

Quote (Serge_007)
Опишите подробнее что Вы хотите получить в итоге, и приложите файл - "Есть так - надо так".

Вы можете это сделать?
Или будем по зёрнышку собирать файл?
Автор - Serge_007
Дата добавления - 18.10.2010 в 15:24
Galandets Дата: Понедельник, 18.10.2010, 16:16 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Да это понятно, дело в том, что эта окончательно и больше изменений не будет, я вот еще не знаю как придумать еще графу забыл Произведена оплата "Да или Нет", рядом со столбцом, оплачен (дата)
 
Ответить
СообщениеДа это понятно, дело в том, что эта окончательно и больше изменений не будет, я вот еще не знаю как придумать еще графу забыл Произведена оплата "Да или Нет", рядом со столбцом, оплачен (дата)
Автор - Galandets
Дата добавления - 18.10.2010 в 16:16
Serge_007 Дата: Понедельник, 18.10.2010, 16:20 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Galandets)
дело в том, что эта окончательно и больше изменений не будет

Quote (Galandets)
еще графу забыл Произведена оплата "Да или Нет"

?!
Так окончательно или забыл?
Соберитесь с мыслями и выложите ОКОНЧАТЕЛЬНЫЙ вариант. С примером заполнения (как хочется видеть в итоге).

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Galandets)
дело в том, что эта окончательно и больше изменений не будет

Quote (Galandets)
еще графу забыл Произведена оплата "Да или Нет"

?!
Так окончательно или забыл?
Соберитесь с мыслями и выложите ОКОНЧАТЕЛЬНЫЙ вариант. С примером заполнения (как хочется видеть в итоге).
Автор - Serge_007
Дата добавления - 18.10.2010 в 16:20
Galandets Дата: Понедельник, 18.10.2010, 16:20 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Тогда минутку, сейчас выложу
 
Ответить
СообщениеТогда минутку, сейчас выложу
Автор - Galandets
Дата добавления - 18.10.2010 в 16:20
Galandets Дата: Понедельник, 18.10.2010, 16:44 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Вот так он должен выглядить
 
Ответить
СообщениеВот так он должен выглядить
Автор - Galandets
Дата добавления - 18.10.2010 в 16:44
Galandets Дата: Понедельник, 18.10.2010, 16:44 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

не прикрепил
 
Ответить
Сообщениене прикрепил
Автор - Galandets
Дата добавления - 18.10.2010 в 16:44
Galandets Дата: Понедельник, 18.10.2010, 16:45 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

ФИО заностится в ручную
Дата Автоматически заносится и редактированию не подлежит
Время Автоматически заносится и редактированию не подлежит
Адрес получателя заностится в ручную
Телефон получателя заностится в ручную
Контактное лицо заностится в ручную
№ счета заностится в ручную
Срочность выбором (Срочно, Очень срочно, Стандарт)
Дата оплаты ставится в том случае когда будет заполнено в графе оплачен
Оплачен выбор Да или Нет
Дополнительно заносится от руки
Проверка (на листе 2) от руки заносится, защиты на этом столбце не должно стоят
 
Ответить
СообщениеФИО заностится в ручную
Дата Автоматически заносится и редактированию не подлежит
Время Автоматически заносится и редактированию не подлежит
Адрес получателя заностится в ручную
Телефон получателя заностится в ручную
Контактное лицо заностится в ручную
№ счета заностится в ручную
Срочность выбором (Срочно, Очень срочно, Стандарт)
Дата оплаты ставится в том случае когда будет заполнено в графе оплачен
Оплачен выбор Да или Нет
Дополнительно заносится от руки
Проверка (на листе 2) от руки заносится, защиты на этом столбце не должно стоят
Автор - Galandets
Дата добавления - 18.10.2010 в 16:45
Serge_007 Дата: Понедельник, 18.10.2010, 16:57 | Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Serge_007)
Опишите подробнее что Вы хотите получить в итоге, и приложите файл - "Есть так - надо так".

Подробно описали. Файл будет?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Serge_007)
Опишите подробнее что Вы хотите получить в итоге, и приложите файл - "Есть так - надо так".

Подробно описали. Файл будет?
Автор - Serge_007
Дата добавления - 18.10.2010 в 16:57
Galandets Дата: Понедельник, 18.10.2010, 17:29 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Ой извините
 
Ответить
СообщениеОй извините
Автор - Galandets
Дата добавления - 18.10.2010 в 17:29
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Книга для регистрации людей (Регистрация людей)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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