Макрос в excel

[sergantikus]

Здравствуйте.Нужно написать макрос для след.действий-
1.-пользователь выбирает ячейку допустим №1.
2.В ячейку №2 в зависимости от наличия вносится + или -
3.Здесь должен запускаться макрос допустим от горячей клавиши - он выполняет.-
3.1. если ячейка №2 - "+" в ячейку № 4 вносится текущая дата, а в ячейку №5 вносится фамилия указанная предварительно в ячейку №10.
3.2 если ячейка №2 - "-" ячейка №4 очищается , в ячейку №3 вносится текущая дата, в ячейку №5 вносится фамилия указанная предварительно в ячейку №10. Прилагаю файл с таблицей

Буду благодарен за любую помощь!

[doober]

Клавиши Ctrl +я

[sergantikus]

doober спасибо большое! Именно то что я хотел!Почти.... Можо ли чтобы фамилия вставлялась с определенной ячейки допустим A30 , а у вас задано что фамилия берется через шесть ячеек вправо. Я пытался сам вставить в код "a30"-не работает. Подскажите пожалуйста!

[doober]

Что заказали-то и получили.Давайте оригинал таблицы

cell.Offset(0, -1) = cell.Offset(0, 6) если надо вставить в столбец А

[sergantikus]

doober вы не совсем поняли .В ячейке a30 у меня будет фамилия , а макрос должен из этой ячейки ее вставлять, ваш вариант правильный но я буду из разных ячеек макрос выполнять то-есть надо чтобы был прописан адрес именно a30 я программирование не знаю но думаю примерно так должно выглядеть - cell.Offset(0, 3) = cell.Offset(a30)-но так не срабатывает. И заодно если можно можно переделать код чтобы я сначала вставлял - или + в определенную ячейку допустим a31, а после этого выбирал ячейку(600 ячеек - номера пивных кег) запускал макрос , и исходя из статуса - или + в ячейке a31 он уже выполнял макрос , т-есть формула исходила бы не из активной ячейки а из конкретной ячейки a31. сейчас скину таблицу (все описал в примечаниях).извиняюсь что неточно описал задание

[sergantikus]

вот таблица №2.doober пожалуйста посмотрите[ATTACH]Книга2.rar[/ATTACH]

[doober]

Сделаю как надо.
уточнения.
Макрос будет работать при внесении данных в одну строку.
Макрос будет работать например заполнили 10 строк,он пробежался по этим 10 сторокам и заполнил как надо

[sergantikus]

нет только в одну строку(но делаю это много раз большой список из 800 номеров). Вообще по простому это так выглядит , я в поиске ctr+f ввожу номер например 645 он находит его я делаю ячейку(646) активной ...после запускаю макрос а он вставляет уже что мне надо(а до этого я в ячейку а30 и а31 проставляю условия на основании которых работает макрос)....Потом меняю фамилию и статус и делаю уже для другой фамилии.... Чтобы бы я без вас делал!

[Hugo121]

Проще:
cell.Offset(0, 3) = [a30]
как в книжках:
cell.Offset(0, 3) = Range("a30")
или
cell.Offset(0, 3) = Range("a30").Value
как часто:
cell.Offset(0, 3) = Cells(30, 1).Value

А Offset - это сдвиг с указанной/активной ячейки.
(1, 0) - вниз
(0, 1) - вправо
Можно (0, -1) - влево, но если из первой колонки - будет ошибка.

[sergantikus]

Всем спасибо! С вашей помощью я все доделал!