Доброго всем времени суток и настроения! Уважаемые форумчане и знатоки, прошу помощи!
Есть некая база данных, информация которая сортирована по колоннам А,В,С,D,Е (прилагается excel файл/sheet 1,2). Задача в том чтобы если в sheet 1 вбивается информация в строку D (например 12345678) система автоматически генерировала остальную релевантную информацию в А,В,С со sheet 2 в sheet 1. Задача 2 в том чтобы когда в sheet 1 вбитая в колонну D информация повторяе :'( тся (например 12345678 вбивается во второй раз) Обе записи (вбитая первый и второй раз) автоматически удалялась из sheet 1.
Доброго всем времени суток и настроения! Уважаемые форумчане и знатоки, прошу помощи!
Есть некая база данных, информация которая сортирована по колоннам А,В,С,D,Е (прилагается excel файл/sheet 1,2). Задача в том чтобы если в sheet 1 вбивается информация в строку D (например 12345678) система автоматически генерировала остальную релевантную информацию в А,В,С со sheet 2 в sheet 1. Задача 2 в том чтобы когда в sheet 1 вбитая в колонну D информация повторяе :'( тся (например 12345678 вбивается во второй раз) Обе записи (вбитая первый и второй раз) автоматически удалялась из sheet 1.Fiko81
Народ, помогите решить задачу 2. Задача 2 в том чтобы когда в sheet 1 вбитая в колонну D информация повторяется (например 12345678 вбивается во второй раз) Обе записи (вбитая первый и второй раз) автоматически удалялась из sheet 1.
Народ, помогите решить задачу 2. Задача 2 в том чтобы когда в sheet 1 вбитая в колонну D информация повторяется (например 12345678 вбивается во второй раз) Обе записи (вбитая первый и второй раз) автоматически удалялась из sheet 1.Fiko81
Pelena, Елена, надо еще target на количество проверять и UNDO если >1 или по нему цикл, на случай если вставлено сразу несколько. Но возможно это и слишком для данного вопроса.
Pelena, Елена, надо еще target на количество проверять и UNDO если >1 или по нему цикл, на случай если вставлено сразу несколько. Но возможно это и слишком для данного вопроса.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Спасибо за труд! А нельзя ли зделать так чтобы Excel удалял автоматически, без подтверждения? И как мне добавить все это (формулу и.т.п ) на мой файл?
Pelena,
Спасибо за труд! А нельзя ли зделать так чтобы Excel удалял автоматически, без подтверждения? И как мне добавить все это (формулу и.т.п ) на мой файл? Fiko81
чтобы Excel удалял автоматически, без подтверждения
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim irow& If Target.Column <> 4 Then Exit Sub For irow = 2 To Target.Row - 1 If Target.Value = Cells(irow, 4) Then Target.EntireRow.Delete Cells(irow, 4).EntireRow.Delete Exit For End If Next irow End Sub
[/vba] Хотя меня всегда настораживает такая автоматизация. Как добавить: скопировать макрос -- правой кнопкой мыши по ярлыку листа -- Исходный код -- вставить макрос -- сохранить файл с поддержкой макросов (Сохранить как...) Формулы тоже скопировать
чтобы Excel удалял автоматически, без подтверждения
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim irow& If Target.Column <> 4 Then Exit Sub For irow = 2 To Target.Row - 1 If Target.Value = Cells(irow, 4) Then Target.EntireRow.Delete Cells(irow, 4).EntireRow.Delete Exit For End If Next irow End Sub
[/vba] Хотя меня всегда настораживает такая автоматизация. Как добавить: скопировать макрос -- правой кнопкой мыши по ярлыку листа -- Исходный код -- вставить макрос -- сохранить файл с поддержкой макросов (Сохранить как...) Формулы тоже скопироватьPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
да всегда пож. Когда все получится в рабочем файле, просто выделите несколько ячеек ранее введенных, вставьте в конец списка и посмотрите то будет.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Tут вышла одна проблема. Эта формула работает когда имена по одному вбивается в Excel. Когда копируешь и вставляешь группу людей (допустим из 10 человек) из другого файла (People counting-2 копируем только колонну Card number) то Excel выдает ошибку Run-time error 13 Type mismatch. Можно ли как небудь решить эту проблему? Что бы когда вставляешь копированную из 10 человек информацию Excel находил обе одинаковые значения и удалял как он делает это по одному. Заранее благодарен.
Tут вышла одна проблема. Эта формула работает когда имена по одному вбивается в Excel. Когда копируешь и вставляешь группу людей (допустим из 10 человек) из другого файла (People counting-2 копируем только колонну Card number) то Excel выдает ошибку Run-time error 13 Type mismatch. Можно ли как небудь решить эту проблему? Что бы когда вставляешь копированную из 10 человек информацию Excel находил обе одинаковые значения и удалял как он делает это по одному. Заранее благодарен.Fiko81