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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос информации на другой лист - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос информации на другой лист (Макрос за денюжку)
Перенос информации на другой лист
Zamcheg Дата: Понедельник, 12.03.2012, 15:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Всем привет!

Предлогаю заработать!!!

Есть файл Excel в нем несколько листов...
Задача такая: Макрос должен отфильтровать информацию которую я копирую на лист 1 и распределить эту информацию по остальным листам на основании заданных параметров.

Пример: на листе 1 есть таблица с 3 столбцами.

1. Наименование
2. Описание
3. поставщик

Всего 3 листа.

1. Общий
2. Петя
3. Маша

Макрос ищет в наименовании и поставщике упоминание о Пете или Маше и переносит строку на нужный лист соответственно Петю на лист Петя, Машу на лист Маша.

Данный макрос нужно написать в доступной форме так, как исходный файл будет изменяться и макрос соответственно нужно будет изменять тоже. Всем желающим вышлю исходный файл. Дополнительные вопросы в аську.

Пишите с предложениями.
аська: 267-121-036

Кто то страшный и большой наблюдает за тобой
 
Ответить
СообщениеВсем привет!

Предлогаю заработать!!!

Есть файл Excel в нем несколько листов...
Задача такая: Макрос должен отфильтровать информацию которую я копирую на лист 1 и распределить эту информацию по остальным листам на основании заданных параметров.

Пример: на листе 1 есть таблица с 3 столбцами.

1. Наименование
2. Описание
3. поставщик

Всего 3 листа.

1. Общий
2. Петя
3. Маша

Макрос ищет в наименовании и поставщике упоминание о Пете или Маше и переносит строку на нужный лист соответственно Петю на лист Петя, Машу на лист Маша.

Данный макрос нужно написать в доступной форме так, как исходный файл будет изменяться и макрос соответственно нужно будет изменять тоже. Всем желающим вышлю исходный файл. Дополнительные вопросы в аську.

Пишите с предложениями.
аська: 267-121-036
Автор - Zamcheg
Дата добавления - 12.03.2012 в 15:14
Jhonson Дата: Понедельник, 12.03.2012, 16:16 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Так выкладывайте файл здесь! Обязательно поможем!

"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеТак выкладывайте файл здесь! Обязательно поможем!
Автор - Jhonson
Дата добавления - 12.03.2012 в 16:16
Zamcheg Дата: Понедельник, 12.03.2012, 16:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (Jhonson)
Так выкладывайте файл здесь! Обязательно поможем!


Файл весит много

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (Jhonson)
Так выкладывайте файл здесь! Обязательно поможем!


Файл весит много
Автор - Zamcheg
Дата добавления - 12.03.2012 в 16:17
Serge_007 Дата: Понедельник, 12.03.2012, 16:23 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Zamcheg)
Файл весит много

В архив его. Если и так больше 100 Кб - на файлообменник.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Zamcheg)
Файл весит много

В архив его. Если и так больше 100 Кб - на файлообменник.
Автор - Serge_007
Дата добавления - 12.03.2012 в 16:23
Zamcheg Дата: Понедельник, 12.03.2012, 16:29 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (Serge_007)
В архив его. Если и так больше 100 Кб - на файлообменник.


Ну можно и так )

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (Serge_007)
В архив его. Если и так больше 100 Кб - на файлообменник.


Ну можно и так )
Автор - Zamcheg
Дата добавления - 12.03.2012 в 16:29
Zamcheg Дата: Понедельник, 12.03.2012, 16:30 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

http://files.mail.ru/VVQ7YU <- ссылка на исходный файл

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщениеhttp://files.mail.ru/VVQ7YU <- ссылка на исходный файл
Автор - Zamcheg
Дата добавления - 12.03.2012 в 16:30
RAN Дата: Понедельник, 12.03.2012, 16:37 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Там что, база за 5 лет?
Петя с Машей на 3Мб не тянут... cool

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТам что, база за 5 лет?
Петя с Машей на 3Мб не тянут... cool
Автор - RAN
Дата добавления - 12.03.2012 в 16:37
Zamcheg Дата: Понедельник, 12.03.2012, 16:38 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (RAN)
Там что, база за 5 лет?
Петя с Машей на 3Мб не тянут...


Там оформление... картинок много

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (RAN)
Там что, база за 5 лет?
Петя с Машей на 3Мб не тянут...


Там оформление... картинок много
Автор - Zamcheg
Дата добавления - 12.03.2012 в 16:38
RAN Дата: Понедельник, 12.03.2012, 17:03 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А нам-то они зачем?
Чтобы 3Мб вытянуть и картинки выкинуть?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА нам-то они зачем?
Чтобы 3Мб вытянуть и картинки выкинуть?
Автор - RAN
Дата добавления - 12.03.2012 в 17:03
Zamcheg Дата: Понедельник, 12.03.2012, 17:09 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (RAN)
А нам-то они зачем?
Чтобы 3Мб вытянуть и картинки выкинуть?


Ну зачем они Вам я не знаю smile
Мне нужен конечный вид таблицы. Я потом не смогу сам доводить до ума )
Поэтому я готов заплатить денег светлой голове!

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (RAN)
А нам-то они зачем?
Чтобы 3Мб вытянуть и картинки выкинуть?


Ну зачем они Вам я не знаю smile
Мне нужен конечный вид таблицы. Я потом не смогу сам доводить до ума )
Поэтому я готов заплатить денег светлой голове!
Автор - Zamcheg
Дата добавления - 12.03.2012 в 17:09
RAN Дата: Понедельник, 12.03.2012, 17:14 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Тады вечером...

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТады вечером...
Автор - RAN
Дата добавления - 12.03.2012 в 17:14
IgorGo Дата: Понедельник, 12.03.2012, 17:15 | Сообщение № 12
Группа: Друзья
Ранг: Форумчанин
Сообщений: 108
Репутация: 38 ±
Замечаний: 0% ±

вступил в личную переписку с автором темы. достигнуто вполне определенное взаимопонимание.
 
Ответить
Сообщениевступил в личную переписку с автором темы. достигнуто вполне определенное взаимопонимание.
Автор - IgorGo
Дата добавления - 12.03.2012 в 17:15
Zamcheg Дата: Понедельник, 12.03.2012, 17:16 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (RAN)
Тады вечером...


нет проблем )))

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (RAN)
Тады вечером...


нет проблем )))
Автор - Zamcheg
Дата добавления - 12.03.2012 в 17:16
Jhonson Дата: Понедельник, 12.03.2012, 19:52 | Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Проверьте, так надо?
[vba]
Code
Option Explicit
Sub Мониторинг()
Dim sh As Object, Err As Boolean, i#, EndRow$, EndRowTarget#, NameSheet$
EndRow = Sheets("Мониторинг").Cells(Rows.Count, 8).End(xlUp).Row
      For i = EndRow To 8 Step -1
          NameSheet = Cells(i, 8).Value
          Err = False
          For Each sh In ThisWorkbook.Worksheets
              If NameSheet = sh.Name Then Err = True: Exit For
          Next
          If Err Then
              EndRowTarget = Sheets(NameSheet).Cells(Rows.Count, 8).End(xlUp).Row + 1
              Sheets(NameSheet).Rows(EndRowTarget) = Sheets("Мониторинг").Rows(i).Value
              Sheets("Мониторинг").Rows(i).EntireRow.Delete
          End If
      Next i
End Sub
[/vba]
Ссылка на файл

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Понедельник, 12.03.2012, 19:57
 
Ответить
СообщениеПроверьте, так надо?
[vba]
Code
Option Explicit
Sub Мониторинг()
Dim sh As Object, Err As Boolean, i#, EndRow$, EndRowTarget#, NameSheet$
EndRow = Sheets("Мониторинг").Cells(Rows.Count, 8).End(xlUp).Row
      For i = EndRow To 8 Step -1
          NameSheet = Cells(i, 8).Value
          Err = False
          For Each sh In ThisWorkbook.Worksheets
              If NameSheet = sh.Name Then Err = True: Exit For
          Next
          If Err Then
              EndRowTarget = Sheets(NameSheet).Cells(Rows.Count, 8).End(xlUp).Row + 1
              Sheets(NameSheet).Rows(EndRowTarget) = Sheets("Мониторинг").Rows(i).Value
              Sheets("Мониторинг").Rows(i).EntireRow.Delete
          End If
      Next i
End Sub
[/vba]
Ссылка на файл
Автор - Jhonson
Дата добавления - 12.03.2012 в 19:52
Jhonson Дата: Понедельник, 12.03.2012, 20:40 | Сообщение № 15
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Еще один вариант, с указанием фирм (список можно вынести на отдельный лист):
[vba]
Code
Option Explicit
Sub Мониторинг()
Dim Err As Boolean, i#, EndRow$, EndRowTarget#, NameSheet$, j#
Dim firm As Variant
firm = Array("МРСК-холдинг", "ФСК ЕЭС", "Газпром Энергохолдинг", "Интер РАО", "Enel OGK-5", "РусГидро", "КЭС-холдинг", "Фортум", "Квадра", "E.ON", "ТЭК Мосэнерго", "ТехноПромЭкспорт", "Кварц", "Е4", "РЖД", "Роснефть", "Лукойл", "ТНК-ВР", "Транснефть", "Сибур", "Башнефть", "Татнефть", "Новатэк", "АНПЗ", "Верхнечонскнефтегаз", "Русснефть", "Северсталь", "Еврохим", "ММК", "УГМК", "НЛМК", "Русал", "Еврохолдинг", "МЕЧЕЛ")
EndRow = Sheets("Мониторинг").Cells(Rows.Count, 8).End(xlUp).Row
     For i = EndRow To 8 Step -1
         For j = 0 To UBound(firm)
         Err = False
             If InStr(1, Cells(i, 8).Value, firm(j)) > 0 Then NameSheet = firm(j): Err = True: Exit For
         Next j
         If Err Then
             EndRowTarget = Sheets(NameSheet).Cells(Rows.Count, 8).End(xlUp).Row + 1
             Sheets(NameSheet).Rows(EndRowTarget) = Sheets("Мониторинг").Rows(i).Value
             Sheets("Мониторинг").Rows(i).EntireRow.Delete
         End If
     Next i
End Sub
[/vba]
Ссылка на файл

"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеЕще один вариант, с указанием фирм (список можно вынести на отдельный лист):
[vba]
Code
Option Explicit
Sub Мониторинг()
Dim Err As Boolean, i#, EndRow$, EndRowTarget#, NameSheet$, j#
Dim firm As Variant
firm = Array("МРСК-холдинг", "ФСК ЕЭС", "Газпром Энергохолдинг", "Интер РАО", "Enel OGK-5", "РусГидро", "КЭС-холдинг", "Фортум", "Квадра", "E.ON", "ТЭК Мосэнерго", "ТехноПромЭкспорт", "Кварц", "Е4", "РЖД", "Роснефть", "Лукойл", "ТНК-ВР", "Транснефть", "Сибур", "Башнефть", "Татнефть", "Новатэк", "АНПЗ", "Верхнечонскнефтегаз", "Русснефть", "Северсталь", "Еврохим", "ММК", "УГМК", "НЛМК", "Русал", "Еврохолдинг", "МЕЧЕЛ")
EndRow = Sheets("Мониторинг").Cells(Rows.Count, 8).End(xlUp).Row
     For i = EndRow To 8 Step -1
         For j = 0 To UBound(firm)
         Err = False
             If InStr(1, Cells(i, 8).Value, firm(j)) > 0 Then NameSheet = firm(j): Err = True: Exit For
         Next j
         If Err Then
             EndRowTarget = Sheets(NameSheet).Cells(Rows.Count, 8).End(xlUp).Row + 1
             Sheets(NameSheet).Rows(EndRowTarget) = Sheets("Мониторинг").Rows(i).Value
             Sheets("Мониторинг").Rows(i).EntireRow.Delete
         End If
     Next i
End Sub
[/vba]
Ссылка на файл
Автор - Jhonson
Дата добавления - 12.03.2012 в 20:40
Serge_007 Дата: Вторник, 13.03.2012, 10:53 | Сообщение № 16
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Zamcheg)
Договаривался с тем, кто вышел со мной на связь быстрее всех.

Быстрее всех вышел на связь как раз Jhonson, см. здесь

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Zamcheg)
Договаривался с тем, кто вышел со мной на связь быстрее всех.

Быстрее всех вышел на связь как раз Jhonson, см. здесь
Автор - Serge_007
Дата добавления - 13.03.2012 в 10:53
Zamcheg Дата: Вторник, 13.03.2012, 11:40 | Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (Serge_007)
Быстрее всех вышел на связь как раз Jhonson, см. здесь

Это на форуме... а вот в аську мне IgorGo постучался раньше всех.

Я благодарен Джонсону, но мне нужен был конечный продукт, то есть мой файл с написанным кем либо макросом...

Quote (Zamcheg)
Ну зачем они Вам я не знаю
Мне нужен конечный вид таблицы. Я потом не смогу сам доводить до ума )
Поэтому я готов заплатить денег светлой голове!


Пояснил даже...

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (Serge_007)
Быстрее всех вышел на связь как раз Jhonson, см. здесь

Это на форуме... а вот в аську мне IgorGo постучался раньше всех.

Я благодарен Джонсону, но мне нужен был конечный продукт, то есть мой файл с написанным кем либо макросом...

Quote (Zamcheg)
Ну зачем они Вам я не знаю
Мне нужен конечный вид таблицы. Я потом не смогу сам доводить до ума )
Поэтому я готов заплатить денег светлой голове!


Пояснил даже...
Автор - Zamcheg
Дата добавления - 13.03.2012 в 11:40
Serge_007 Дата: Вторник, 13.03.2012, 11:42 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Zamcheg)
Это на форуме... а вот в аську мне IgorGo постучался раньше всех.

А Вы свой пост где разместили, на форуме или в аське?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Zamcheg)
Это на форуме... а вот в аську мне IgorGo постучался раньше всех.

А Вы свой пост где разместили, на форуме или в аське?
Автор - Serge_007
Дата добавления - 13.03.2012 в 11:42
Serge_007 Дата: Вторник, 13.03.2012, 11:46 | Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
В ближайшее время внесу изменения в правила. Размещение своих контактных данных на форуме будет ТОЛЬКО с разрешения администрации, либо платным.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВ ближайшее время внесу изменения в правила. Размещение своих контактных данных на форуме будет ТОЛЬКО с разрешения администрации, либо платным.
Автор - Serge_007
Дата добавления - 13.03.2012 в 11:46
Zamcheg Дата: Вторник, 13.03.2012, 12:04 | Сообщение № 20
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Quote (Serge_007)
В ближайшее время внесу изменения в правила. Размещение своих контактных данных на форуме будет ТОЛЬКО с разрешения администрации, либо платным.
И какой тогда будет смысл в вашем форуме? Предлогаю тогда сразу сделать платную регистрацию...
Как показывает практика этот чудесный метод сразу убивает любую идею...

Мне кажется Вы немного не сведующи в рыночной политике... Я вообще не понимаю зачем и почему я тут оправдываюсь...
Задача на мой взгляд поставлена верно.
1. Единственный человек, который на мой взгляд проявил заинтересованность в этом, это IgorGo
2. Он вчера вечером вышел на связь как мы и договаривались.
3. Он же единственный выслал на мою почту готовый продукт.
4. И ОН же получит честно заработанную сумму.

Считаю что я никого не обманул !!!

Кто то страшный и большой наблюдает за тобой
 
Ответить
Сообщение
Quote (Serge_007)
В ближайшее время внесу изменения в правила. Размещение своих контактных данных на форуме будет ТОЛЬКО с разрешения администрации, либо платным.
И какой тогда будет смысл в вашем форуме? Предлогаю тогда сразу сделать платную регистрацию...
Как показывает практика этот чудесный метод сразу убивает любую идею...

Мне кажется Вы немного не сведующи в рыночной политике... Я вообще не понимаю зачем и почему я тут оправдываюсь...
Задача на мой взгляд поставлена верно.
1. Единственный человек, который на мой взгляд проявил заинтересованность в этом, это IgorGo
2. Он вчера вечером вышел на связь как мы и договаривались.
3. Он же единственный выслал на мою почту готовый продукт.
4. И ОН же получит честно заработанную сумму.

Считаю что я никого не обманул !!!
Автор - Zamcheg
Дата добавления - 13.03.2012 в 12:04
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос информации на другой лист (Макрос за денюжку)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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