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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос строк из общей таблицы в таблицы на другие листы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос строк из общей таблицы в таблицы на другие листы (Формулы/Formulas)
Перенос строк из общей таблицы в таблицы на другие листы
vidny-ivan Дата: Понедельник, 01.04.2019, 10:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, помогите пж настроить автоматическое копирование строк из листа "Общие расходы" на листы с соответствующим названием. Т.е. если в листе "Общие расходы" в колонке с названием "отдел" появится "Маркетинг", то перенести строку целиком в соответствующий лист "Маркетинг". По аналогии с другими отделами. Пытался самостоятельно все сделать - ничего не вышло
К сообщению приложен файл: 7903888.xlsx (19.6 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите пж настроить автоматическое копирование строк из листа "Общие расходы" на листы с соответствующим названием. Т.е. если в листе "Общие расходы" в колонке с названием "отдел" появится "Маркетинг", то перенести строку целиком в соответствующий лист "Маркетинг". По аналогии с другими отделами. Пытался самостоятельно все сделать - ничего не вышло

Автор - vidny-ivan
Дата добавления - 01.04.2019 в 10:36
Russel Дата: Понедельник, 01.04.2019, 10:39 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1394
Репутация: 320 ±
Замечаний: 0% ±

Excel 2010
Добрый день!

Как вариант, формировать нужные листы сводными таблицами, или даже одним листом обходиться.
К сообщению приложен файл: 1809177.xlsx (25.0 Kb)


QIWI 9173973973

Сообщение отредактировал Russel - Понедельник, 01.04.2019, 10:40
 
Ответить
СообщениеДобрый день!

Как вариант, формировать нужные листы сводными таблицами, или даже одним листом обходиться.

Автор - Russel
Дата добавления - 01.04.2019 в 10:39
китин Дата: Понедельник, 01.04.2019, 11:11 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
так надо?
[vba]
Код
Option Explicit

Sub ptrenos()
    Dim dd_&, dd1_&, ddl_1
    Dim sh As Worksheet
    Dim rr_ As String
    dd_ = Sheets("Общие расходы").Cells(Rows.Count, 1).End(xlUp).Row
    
      For Each sh In Sheets
        If sh.Name <> "Общие расходы" Then
            rr_ = sh.Name
           ddl_1 = Sheets(rr_).Cells(Rows.Count, 1).End(xlUp).Row
           Sheets(rr_).Range("$A$3:$F$" & ddl_1 + 1).ClearContents
           
           Sheets("Общие расходы").Range("$A$2:$F$" & dd_).AutoFilter Field:=4, Criteria1:=rr_
           dd1_ = Sheets("Общие расходы").Cells(Rows.Count, 1).End(xlUp).Row
           dd1_ = Sheets("Общие расходы").Range("A3:E" & dd1_).SpecialCells(xlCellTypeVisible).Copy
                With Sheets(rr_).Range("A3")
                    .PasteSpecial Paste:=xlPasteValues
                End With
        End If
        
      Next sh
      Sheets("Общие расходы").Range("$A$2:$F$" & dd_).AutoFilter
End Sub
[/vba]
К сообщению приложен файл: vidny-ivan.xlsm (32.1 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениетак надо?
[vba]
Код
Option Explicit

Sub ptrenos()
    Dim dd_&, dd1_&, ddl_1
    Dim sh As Worksheet
    Dim rr_ As String
    dd_ = Sheets("Общие расходы").Cells(Rows.Count, 1).End(xlUp).Row
    
      For Each sh In Sheets
        If sh.Name <> "Общие расходы" Then
            rr_ = sh.Name
           ddl_1 = Sheets(rr_).Cells(Rows.Count, 1).End(xlUp).Row
           Sheets(rr_).Range("$A$3:$F$" & ddl_1 + 1).ClearContents
           
           Sheets("Общие расходы").Range("$A$2:$F$" & dd_).AutoFilter Field:=4, Criteria1:=rr_
           dd1_ = Sheets("Общие расходы").Cells(Rows.Count, 1).End(xlUp).Row
           dd1_ = Sheets("Общие расходы").Range("A3:E" & dd1_).SpecialCells(xlCellTypeVisible).Copy
                With Sheets(rr_).Range("A3")
                    .PasteSpecial Paste:=xlPasteValues
                End With
        End If
        
      Next sh
      Sheets("Общие расходы").Range("$A$2:$F$" & dd_).AutoFilter
End Sub
[/vba]

Автор - китин
Дата добавления - 01.04.2019 в 11:11
vidny-ivan Дата: Четверг, 04.04.2019, 11:33 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Благодарю за помощь! К сожалению я не знал, что макросы не работают если к файлу открываешь общий доступ... Можно ли через условное форматирование создать правило, а не макрос?


Сообщение отредактировал vidny-ivan - Четверг, 04.04.2019, 11:35
 
Ответить
СообщениеБлагодарю за помощь! К сожалению я не знал, что макросы не работают если к файлу открываешь общий доступ... Можно ли через условное форматирование создать правило, а не макрос?

Автор - vidny-ivan
Дата добавления - 04.04.2019 в 11:33
китин Дата: Четверг, 04.04.2019, 11:41 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
условным форматированием можно только отформатировать ячейки, но не перенести их


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеусловным форматированием можно только отформатировать ячейки, но не перенести их

Автор - китин
Дата добавления - 04.04.2019 в 11:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос строк из общей таблицы в таблицы на другие листы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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