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

дак беги по строкам, если ячейка равна "список деталей", то копируй все что ниже до пробела на другой лист.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2008, 15:55
    #35474143
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
помогите написать это на VBA,я просто новичок в этом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2008, 16:25
    #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, 17:05
    #35474364
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
к этому добавь
Код: plaintext
1.
2.
3.
4.
5.
Sheets.Add
    With ActiveSheet
        .Name = "список элементов"
        .Paste
    End With
И всё работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2008, 20:33
    #35474826
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
спасибо, все работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2008, 16:51
    #35479809
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
а как что бы он скопировал то что в списке элементов по наименованию: ДВП белая,ЛДСП,Фасад глухой, в разные листы.
Заранее благодарен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 08:29
    #35480510
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
sashok60а как что бы он скопировал то что в списке элементов по наименованию: ДВП белая,ЛДСП,Фасад глухой, в разные листы.
Заранее благодарен.
подробно опиши + пример, что ты хочешь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 08:45
    #35480517
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
то что ты мне написал, он копирует то что находится между "списоком деталей" и "списоком элементов", а можно чтобы копировал то же самое но по наименованию которая там находится (ДВП белая-на отдельный лист, ЛДСП-тоже на отдельный лист, Фасад глухой-на отдельный лист ).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 08:51
    #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:58
    #35480539
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
это понятно, как выбрать (ДВП белая,ЛДСП,Фасад глухой) и скопировать на отдельные листы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 09:34
    #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:54
    #35480629
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
что то не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 09:59
    #35480638
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
и еще ДВП белая, ЛДСП, Фасад глухой может занимать разное кол-во строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 10:02
    #35480642
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 10:03
    #35480644
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
sashok60Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 10:03
    #35480645
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
sashok60 sashok60Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2008, 10:06
    #35480651
sashok60
sashok60
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование на отдельные листы
sashok60 sashok60 sashok60Вот такой хотелось бы получить результат: файл прилагаю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / копирование на отдельные листы / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 340ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2161975]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 59ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 198ms
total:  340ms
x
x
Закрыть


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