|
|
|
копирование данных со всех листов
|
|||
|---|---|---|---|
|
#18+
я хочу чтоб цикл брал данные из постоянных ячеек каждого листа и сортировал их в одном листе. получилос следующее: 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 где ошибка? спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2007, 11:42:02 |
|
||
|
копирование данных со всех листов
|
|||
|---|---|---|---|
|
#18+
zdels Ошибка у Вас возникает, как мне кажется, при попытке обращения к несуществующему листу с именем "m". Насколько я поняла у вас в рабочей книге есть листы с именем "1", "2", ... "6" и Вы хотите в цикле к ним обращаться. Если все так, то замените везде Sheets("m") на Sheets(CStr(m)). А вообще у Вас цикл по n какой-то странный на мой взгляд. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2007, 12:16:51 |
|
||
|
копирование данных со всех листов
|
|||
|---|---|---|---|
|
#18+
lena_#### zdels Ошибка у Вас возникает, как мне кажется, при попытке обращения к несуществующему листу с именем "m". Насколько я поняла у вас в рабочей книге есть листы с именем "1", "2", ... "6" и Вы хотите в цикле к ним обращаться. Если все так, то замените везде Sheets("m") на Sheets(CStr(m)). А вообще у Вас цикл по n какой-то странный на мой взгляд. Ну а если m - это номер листа, то просто удалить кавычки. KL [MVP - Microsoft Excel] ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2007, 12:23:33 |
|
||
|
копирование данных со всех листов
|
|||
|---|---|---|---|
|
#18+
lena & Kl во первых спасибо во вторых я и сам знаю что цикл по n корявыи но я учусь ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2007, 12:54:42 |
|
||
|
копирование данных со всех листов
|
|||
|---|---|---|---|
|
#18+
Вот тут есть масса кода выполняещего похожие задачи: http://www.rondebruin.nl/tips.htm KL [MVP - Microsoft Excel] ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2007, 13:10:38 |
|
||
|
|

start [/forum/topic.php?fid=61&msg=34311863&tid=2183491]: |
0ms |
get settings: |
6ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
56ms |
get topic data: |
15ms |
get forum data: |
2ms |
get page messages: |
36ms |
get tp. blocked users: |
1ms |
| others: | 226ms |
| total: | 366ms |

| 0 / 0 |
