Чтения данных, только с одного диапазона

[valerij]

Как это сделать, красным, так ошибка?

For Each x In Target
   Cells(x.Row, 12) = Cells(x.Row, 4) * Sheets(11).[$Q$3:$Q$33]
Next

Сейчас у меня, так.

For dat = 0 To 30
   With [A3:J33].Offset(dat * 44)
      If Not Intersect(Target, .Cells) Is Nothing Then
For Each x In Target
   Cells(x.Row, 12) = Cells(x.Row, 4) * Sheets(11).Cells(x.Row - dat * 44, 17)

[Казанский]

Sheets(11).[$Q$3:$Q$33] - это массив значений, причем двумерный. А Вам нужно одно значение. Может быть, Sheets(11).[$Q$3] ?

[valerij]

Сообщение от Казанский

Sheets(11).[$Q$3:$Q$33] - это массив значений, причем двумерный. А Вам нужно одно значение. Может быть, Sheets(11).[$Q$3] ?

А если данные нужны из Q33, то как?
Я подправил, как у меня сейчас.
Хочу избавится от цикла For dat = 0 To 30

[Watcher_1]

Сообщение от valerij

А если данные нужны из Q33, то как?
Я подправил, как у меня сейчас.
Хочу избавится от цикла For dat = 0 To 30

тогда я думаю так

For Each x In Target
Cells(x.Row, 12) = Cells(x.Row, 4) * Sheets(11).range("Q33")
Next

[EducatedFool]

Вариант1: Макросом в первую ячейку 12-го столбца вставляешь формулу, и макросом же (метод AutoFill) протягиваешь формулу по диапазону ячеек
Вариант2: (намного быстрее и лучше) - макросом пишешь формулу сразу во весь диапазон ячеек

Тогда не будет циклов - ни For Each x In Target, ни For dat = 0 To 30

Примеров кода приводить не буду - ты сам их всё равно не адаптируешь под свои макросы.

[valerij]

Сообщение от EducatedFool

Вариант1
Вариант2:.

Понял, что не понял, но пробую.

Сообщение от Watcher_1

тогда я думаю так

Не катит, x.Row должен = тому же № ячейки в Листе11, но в диап. 3 - 33

[Watcher_1]

Сообщение от valerij

Понял, что не понял, но пробую.

Не катит, x.Row должен = тому же № ячейки в Листе11, но в диап. 3 - 33

Может лучше опишите нам четко что из чего должно браться и куды вставляться
Дайте ТЗ, тогда я думаю вам решат вашу задачу!

[valerij]

Сообщение от Watcher_1

Может лучше опишите нам четко что из чего должно браться и куды вставляться

Ок! Мой код:

For dat = 0 To 30
   With [A3:J33].Offset(dat * 44)
      If Not Intersect(Target, .Cells) Is Nothing Then
For Each x In Target
   Cells(x.Row, 12) = Cells(x.Row, 4) * Sheets(11).Cells(x.Row - dat * 44, 17)

1. dat = 0, x.Row = от 3 до 33, лист11.x.Row = от 3(3 - 0) до 33(33 - 0)
2. dat = 1, x.Row = от 47 до 77, лист11.x.Row = от 3(47 - 44) до 33(77- 44)
3. dat = 2, x.Row = от 91 до 121, лист11.x.Row = от 3(91 - 88) до 33(121 - 88)
4. dat = 3, x.Row = от 135 до 165, лист11.x.Row = от 3(135 - 132) до 33(165 - 132)
и т. д.
Так, ясней? Или сделать, пример?