ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование на отдельные листы
20 сообщений из 20, страница 1 из 1
копирование на отдельные листы
    #35473523
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
Помогите сделать такую вещь, файл прилагаю, есть лист с данными надо чтобы он вставил данные в соответствующие листы
...
Рейтинг: 0 / 0
06.08.2008, 13:28
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35473773
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
sashok60Помогите сделать такую вещь, файл прилагаю, есть лист с данными надо чтобы он вставил данные в соответствующие листы
как вставил то? лист скопировать в лист?
...
Рейтинг: 0 / 0
06.08.2008, 14:23
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35474012
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
на листе1 есть данные, заголовки отмечены жирным, надо учитывая что под заголовком скопировать на отдельный лист, т.е. то что между "списком деталей" и списком "список элементов " скопировать на другой лист и т.д.
...
Рейтинг: 0 / 0
06.08.2008, 15:17
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35474128
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
sashok60на листе1 есть данные, заголовки отмечены жирным, надо учитывая что под заголовком скопировать на отдельный лист, т.е. то что между "списком деталей" и списком "список элементов " скопировать на другой лист и т.д.

дак беги по строкам, если ячейка равна "список деталей", то копируй все что ниже до пробела на другой лист.
...
Рейтинг: 0 / 0
06.08.2008, 15:50
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35474143
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
помогите написать это на VBA,я просто новичок в этом
...
Рейтинг: 0 / 0
06.08.2008, 15:55
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35474234
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
Что-то в этом роде, дальше по аналогии

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
For i =  1  To Range("A65536").End(xlUp).Row

    If Cells(i,  1 ) = "список элементов" Then
    
        For j = i +  2  To Range("A65536").End(xlUp).Row
            If Cells(j,  1 ) = "" Then
                x = j
                Exit For
            End If
        Next j
    
    Range(Cells(i +  1 ,  1 ), Cells(x,  1 )).Select
    Selection.Copy
    Лист2.Select
    Лист2.Paste
   
    End If

Next i
...
Рейтинг: 0 / 0
06.08.2008, 16:25
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35474364
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
к этому добавь
Код: plaintext
1.
2.
3.
4.
5.
Sheets.Add
    With ActiveSheet
        .Name = "список элементов"
        .Paste
    End With
И всё работает
...
Рейтинг: 0 / 0
06.08.2008, 17:05
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35474826
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
спасибо, все работает.
...
Рейтинг: 0 / 0
06.08.2008, 20:33
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35479809
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
а как что бы он скопировал то что в списке элементов по наименованию: ДВП белая,ЛДСП,Фасад глухой, в разные листы.
Заранее благодарен.
...
Рейтинг: 0 / 0
09.08.2008, 16:51
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480510
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
sashok60а как что бы он скопировал то что в списке элементов по наименованию: ДВП белая,ЛДСП,Фасад глухой, в разные листы.
Заранее благодарен.
подробно опиши + пример, что ты хочешь
...
Рейтинг: 0 / 0
11.08.2008, 08:29
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480517
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
то что ты мне написал, он копирует то что находится между "списоком деталей" и "списоком элементов", а можно чтобы копировал то же самое но по наименованию которая там находится (ДВП белая-на отдельный лист, ЛДСП-тоже на отдельный лист, Фасад глухой-на отдельный лист ).
...
Рейтинг: 0 / 0
11.08.2008, 08:45
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480526
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
sashok60то что ты мне написал, он копирует то что находится между "списоком деталей" и "списоком элементов", а можно чтобы копировал то же самое но по наименованию которая там находится (ДВП белая-на отдельный лист, ЛДСП-тоже на отдельный лист, Фасад глухой-на отдельный лист ).

PlanB специально написал тебе кусок кода

Код: plaintext
1.
2.
3.
4.
5.
Sheets.Add
    With ActiveSheet
        .Name = "список элементов"
        .Paste
    End With
...
Рейтинг: 0 / 0
11.08.2008, 08:51
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480539
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
это понятно, как выбрать (ДВП белая,ЛДСП,Фасад глухой) и скопировать на отдельные листы?
...
Рейтинг: 0 / 0
11.08.2008, 08:58
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480604
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
birk
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
For i =  1  To Range("A65536").End(xlUp).Row

    If Cells(i,  1 ) = "ЛДСП" Then

         Лист1.Activate
         Range(Cells(i,  1 ), Cells(i,  2 )).Select
         Selection.Copy
         Лист2.Select
         Лист2.Paste
        
    End If

Next i

Sheets.Add
    With ActiveSheet
        .Name = "ЛДСП"
        .Paste
    End With

End Sub
...
Рейтинг: 0 / 0
11.08.2008, 09:34
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480629
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
что то не работает
...
Рейтинг: 0 / 0
11.08.2008, 09:54
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480638
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
и еще ДВП белая, ЛДСП, Фасад глухой может занимать разное кол-во строк.
...
Рейтинг: 0 / 0
11.08.2008, 09:59
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480642
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
11.08.2008, 10:02
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480644
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
sashok60Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
11.08.2008, 10:03
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480645
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
sashok60 sashok60Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
11.08.2008, 10:03
| Ответить | Цитировать | Написать  
копирование на отдельные листы
    #35480651
sashok60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashok60
Гость
sashok60 sashok60 sashok60Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
11.08.2008, 10:06
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование на отдельные листы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35474128&tid=2161975]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 229ms
total:  372ms
созд. / загр.: 372ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]