powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование данных со всех листов
5 сообщений из 5, страница 1 из 1
копирование данных со всех листов
    #34311863
zdels
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я хочу чтоб цикл брал данные из постоянных ячеек каждого листа и
сортировал их в одном листе. получилос следующее:
Sub Copy_Range()

For m = 1 To 6
For n = 4 To 6
worksheets("m").range("i3").Copy _
Destination:=worksheets("dox").Cells(n, 1) 'copy a last name
Sheets("m").range("i2").Copy _
Destination:=Sheets("dox").Cells(n, 2) 'copy a firth name
Sheets("m").range("j4").Copy _
Destination:=Sheets("dox").Cells(n, 1) 'copy a name of hotel
Sheets("m").range("i5").Copy _
Destination:=Sheets("dox").Cells(n, 1) 'copy a name of mahlaka
Sheets("m").range("i6").Copy _
Destination:=Sheets("dox").Cells(n, 3) 'copy a number worker
Sheets("m").range("i16").Copy _
Destination:=Sheets("dox").Cells(n, 4) ' copy a work days
Sheets("m").range("i17").Copy _
Destination:=Sheets("dox").Cells(n, 5) ' copy a 100% hour
Sheets("m").range("i18").Copy _
Destination:=Sheets("dox").Cells(n, 6) ' copy a 150% hour
Sheets("m").range("i12").Copy _
Destination:=Sheets("dox").Cells(n, 8) ' copy a notes
Sheets("m").range("i11").Copy _
Destination:=Sheets("dox").Cells(n, 7) ' copy a hasaot

Next n
Next m
End Sub

но выдает: error 9
где ошибка?
спасибо
...
Рейтинг: 0 / 0
копирование данных со всех листов
    #34312061
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zdels

Ошибка у Вас возникает, как мне кажется, при попытке обращения к несуществующему листу с именем "m". Насколько я поняла у вас в рабочей книге есть листы с именем "1", "2", ... "6" и Вы хотите в цикле к ним обращаться. Если все так, то замените везде Sheets("m") на Sheets(CStr(m)).
А вообще у Вас цикл по n какой-то странный на мой взгляд.
...
Рейтинг: 0 / 0
копирование данных со всех листов
    #34312098
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lena_#### zdels

Ошибка у Вас возникает, как мне кажется, при попытке обращения к несуществующему листу с именем "m". Насколько я поняла у вас в рабочей книге есть листы с именем "1", "2", ... "6" и Вы хотите в цикле к ним обращаться. Если все так, то замените везде Sheets("m") на Sheets(CStr(m)).
А вообще у Вас цикл по n какой-то странный на мой взгляд.

Ну а если m - это номер листа, то просто удалить кавычки.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
копирование данных со всех листов
    #34312265
zdels
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
lena & Kl
во первых спасибо
во вторых я и сам знаю что цикл по n корявыи но я учусь
...
Рейтинг: 0 / 0
копирование данных со всех листов
    #34312337
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот тут есть масса кода выполняещего похожие задачи:

http://www.rondebruin.nl/tips.htm

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование данных со всех листов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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