Макрос добавление строки, копирование данных с условием

[MaxxVer]

Добрый день, уважаемые форумчане, знатоки VBA.
Прошу Вашей помощи в написании небольшого макроса по добавлению строки с выполнением еще парочки действий. Описание макроса внутри файла. Заранее огромное спасибо!

[EducatedFool]

А сами что-нибудь пытались сделать?
Судя по файлу XLSX - даже и не пробовали...

Необходимый вам макрос - простейший, за минуту записывается макрорекордером.

[MaxxVer]

К сожалению я полный профан в этом, если поможете буду очень благодарен. Сейчас попробую поколдавать с макрорекоррдером, но мои предыдущие попытки не к чему хорошему не приводили...

[MaxxVer]

Макрорекодером не получается, т.к. место вставки строки может быть произвольным и еще надо чтобы дата текущая значением вставала. Помогите, пожалуйста.

[IgorGO]

правой кнопкой мыши по ярлыку листа, исходный текст, копируете в модуль листа этот

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim r As Long
  If Target.Column <> 4 Then Exit Sub
  Cancel = True: r = Target.Row + 1: Rows(r).Insert Shift:=xlDown
  Target.EntireRow.Copy:  Cells(r, 1).PasteSpecial Paste:=xlPasteValues
  Cells(r, 9).ClearContents:  Cells(r, 22) = Date:  Cells(r, 26).Select
End Sub

двойной щелчек по любой ячейке 4-й колонки. успехов!

[MaxxVer]

Спасибо!!!

[Nka]

У меня есть таблица,которая каждый день заполняется.
Столбцов много, но надо,чтобы при виде слов Кувандык, Станкоснаб,Родионов, Гена,Юра данные копировались строками в разные листы книги в зависимости от попадающего слова. прилагаю образец,что нужно получить.ТРАНЗИТЫ.rar

[Hugo121]

Т.е. при добавлении копировать. Понятно.
А при стирании?
А если завели с ошибкой? А потом исправили? Неправильно исправили, и переправили?

Может быть делать без изысков - вести одну таблицу/базу, и показывать нужное фильтром?
Можно ещё сводную использовать, или Access подключить с запросами и отчётами, если ИНОГДА нужно показать выборку начальству (хотя изредка можно и вручную скопипастить отфильтрованное, и никого не напрягать (т.е. я думал Access и мозги).

[IgorGO]

мой Вам совет - не плодите листы, это путь в никуда.
поставьте фильтр и Вы на этом же листе увидите данные отдельно по Кувандык, Станкоснаб, Родионов, Гена, Юра и пр.
зато потом отчет сформировать можно более есстественным способом (без головняка как собрать данные с разных листов) за период, по контрагенту и еще кто знает по чему...

[smz1]

доброго времени суток всем!
Очень помог код от ув. IgorGO( пост 5). Спасибо!
То что искал.
Но как всегда хочется чего то большего.
Вопрос вот в чем.
Как сделать так(добавить к коду), чтобы кликать можно было ни по одной ячейке, а в 1-ом, 2-ом, 4-ом и т.д. столбце(колонке), например.
соответственно и правила менялись - стирались данные в других копируемых ячейках.
И еще, но не обязательно. Как вместо даты поставить формулу.

Честно. Все о чем можно догадаться по смыслу, перепробовал.

Заранее благодарен.