Автоматизировать перенос записанной строки с листа на лист.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматизировать перенос записанной строки с листа на лист. (Формулы/Formulas)

Sychev

Дата: Среда, 08.04.2015, 11:21 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый день!

Автоматизировать перенос записанной строки с неким критерием с Листа 1 на Лист 2, 3, 4...
К примеру на Листе 1 есть список постоянно добавляющихся затрат с сортировкой по дате, а можно ли чтобы эти же самые затраты, но с присвоенным критерием, к примеру хоз. нужды, ремонт оборудования разделялись на соответствующие отдельные листы соответственно.

Виноват, забыл файл с примером прицепить.

К сообщению приложен файл: 6085690.xls (25.5 Kb)

Сообщение отредактировал Sychev - Среда, 08.04.2015, 17:53

Ответить

Karataev

Дата: Суббота, 11.04.2015, 15:20 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

добрый день. с помощью макросов можно сделать. можно ли сделать без макросов -не знаю

Ответить

МВТ

Дата: Суббота, 11.04.2015, 15:51 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Становитесь на строку в которой находится нужная информация и запускаете макос [vba]

Код

Sub Perenos()
Dim Rng As Range, WS As Worksheet, L As Long
With ActiveCell: Set Rng = Range("A" & .Row & ":D" & .Row): End With
Set WS = Worksheets(Rng.Cells(1, 4).Text)
Rng.Resize(1, 3).Copy Destination:=WS.Range("A" & WS.Cells(Rows.Count, 1).End(xlUp).Row + 1)
WS.Columns("A:C").EntireColumn.AutoFit
End Sub

[/vba]
Если несколько раз нажмете на одной и той же строке, она перенесется несколько раз - проверки на дублирование нет. Листы должны называться так же, как и группы затрат (пока у Вас так и есть)
UPD добавил автоподбор ширины колонок

Сообщение отредактировал МВТ - Суббота, 11.04.2015, 15:58

Ответить

Manyasha

Дата: Суббота, 11.04.2015, 16:00 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Вот еще вариант без макросов:

Код

=ЕСЛИОШИБКА(ИНДЕКС(Затраты!A$2:A$10;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(ЯЧЕЙКА("имяфайла";A2);ПОИСК("]";ЯЧЕЙКА("имяфайла";A2))+1;255)=Затраты!$D$2:$D$10;СТРОКА(A$2:A$10)-1);СТРОКА(A1)));"")

Подсмотрела в недавней теме

К сообщению приложен файл: 6085690_11.xls (38.0 Kb)

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Суббота, 11.04.2015, 16:01

Ответить

Страница 1 из 1
1