Преренос данных из одной таблицы в другую

[СтаниславАВ]

Добрый вечер. Я знаю что данная тема поднималась многократно и я просмотрел всевозможные варианты. И вот что смог написать в приложенном файле. Буду очень рад если кто нибудь из специалистов посмотрит и поможет это всё дело упростить.
Спасибо.

P.S. Если вдруг что нибудь не понятно, немного поясню.
Данные с листа Альфа автоматически копируются на лист "отбор" через определённый промежуток времени, но копируются по не скольким условиям.
С листа Альфа данные отмеченные галочкой в столбце "О" автоматически копируются на лист "сделки". После копирования галочка удаляется, в принципе можно и без галочки, но запускать макросы по нажатии на любую ячейку я ещё не научился (((
Спасибо за понимание.

[motorway]

Сообщение от СтаниславАВ

но запускать макросы по нажатии на любую ячейку я ещё не научился (((

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

[СтаниславАВ]

Формулы по которым идёт отбор данных на лист "отбор"

[СтаниславАВ]

Вместо н/д решил выводить "" )))

[СтаниславАВ]

Спасибо за помощь ABC. Получилось отправлять данные на лист "Сделки" при нажатии на клетку в столбце "О" листа "Альфа". Правда значения по порядку в столбце "А" листа "Сделки" не ставятся (((. Жаль. А вот по другому листу пока упростить не получилось...

[СтаниславАВ]

PHP код:

Перенос пытаюсь прописать таким образом:

Sheets("").Select
КолСтрок = Application.WorksheetFunction.CountA(Range("O:O"))
t = 2
For i = 1 To КолСтрок
If Cells(10, 29).Value = 1 Then
  If IsNumeric(Cells(i, 21).Value) Then
    If Cells(i, 21).Value > Cells(7, 29).Value Then
       t = t + 1
       Sheets("").Select
              Range("B" + CStr(i) + ":Q" + CStr(i) + "U" + CStr(i) + "H" + CStr(i) + "W" + CStr(i) + ":X" + CStr(i)).Select
       Selection.Copy
       Sheets("").Select
       Range("B" + CStr(t)).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Sheets("").Select
    End If
  End If
End If
If Cells(10, 29).Value = 2 Then
  If IsNumeric(Cells(i, 20).Value) Then
    If Cells(i, 20).Value > Cells(7, 29).Value Then
       t = t + 1
       Sheets("").Select
              Range("B" + CStr(i) + ":Q" + CStr(i)).Select
       Selection.Copy
       Sheets("").Select
       Range("B" + CStr(t)).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Sheets("").Select
    End If
  End If
End If
If Cells(10, 29).Value = 3 Then
  If IsNumeric(Cells(i, 26).Value) Then
    If Cells(i, 26).Value > Cells(7, 29).Value Then
       t = t + 1
       Sheets("").Select
              Range("B" + CStr(i) + ":Q" + CStr(i)).Select
       Selection.Copy
       Sheets("").Select
       Range("B" + CStr(t)).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Sheets("").Select
    End If
  End If
End If
Next i

Ошибка возникает в строке Range("B" + CStr(i) + ":Q" + CStr(i) + "U" + CStr(i) + "H" + CStr(i) + "W" + CStr(i) + ":X" + CStr(i)).Select, ячейки из разных столбцов, как правильно прописать?
Пробовал таким образом теже не получается: Range("B" + CStr(i) + ":Q" + CStr(i) , "U" + CStr(i), "H" + CStr(i), "W" + CStr(i) + ":X" + CStr(i)).Select
Просто ячейки идут не по порядку
Range(B:Q, U, H, W:X).Select 


[СтаниславАВ]

Вот что получилось

[СтаниславАВ]

Ошибка возникает в строке Range("B" + CStr(i) + ":Q" + CStr(i) + "U" + CStr(i) + "H" + CStr(i) + "W" + CStr(i) + ":X" + CStr(i)).Select, ячейки из разных столбцов, как правильно прописать?
Пробовал таким образом теже не получается: Range("B" + CStr(i) + ":Q" + CStr(i) , "U" + CStr(i), "H" + CStr(i), "W" + CStr(i) + ":X" + CStr(i)).Select
Просто ячейки идут не по порядку
Range(B:Q, U, H, W:X).Select

Помогите исправить....

[СтаниславАВ]

Сложность в условиях:
На листе "Облигации":
Если значение ячейки АС10=1, тогда берутся строки из таблицы этого листа (при условии, что значения столбца U:U>AC7), и столбцы (B:Q; U:X, Z)
Если значение ячейки АС10=2, тогда берутся строки из таблицы этого листа (при условии, что значения столбца T:T>AC7), и столбцы (B:Q; S:T, V:W, Y:Z)
Если значение ячейки АС10=3, тогда берутся строки из таблицы этого листа (при условии, что значения столбца Z:Z>AC7), и столбцы (B:Q; U:X, Z)

[СтаниславАВ]

Если прописывать формулами, надо создать дополнительный столбец с формулой Х:Х:
=СУММЕСЛИ(Альфа!AD3:AD999;A3;Альфа! AE3:AE999)
После этого, используя этот столбец, который будет удалён после, начинаем считать:
B:B
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!A$3:A$999)
C:C
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!B$3:B$999)
D:D
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!C$3:C$999)
E:E
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!D$3:D$999)
F:F
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!E$3:E$999)
G:G
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!F$3:F$999)
H:H
............
I:I
............
J:J
............
K:K
............
L:L
............
M:M
............
N:N
............
O:O
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!N$3:N$999)

А вот после этого начинается, самое интересное, формула вставки начинает менятся в зависимости от условий....
Q:Q
=ЕСЛИ(Альфа!$AA$9=1;ПРОСМОТР($X3;Ал ьфа!$AE$3:$AE$999;Альфа!Q$3:Q$999); ЕСЛИ(Альфа!$AA$10=1;ПРОСМОТР($X3;Ал ьфа!$AE$3:$AE$999;Альфа!R$3:R$999); 0))
R:R
=ЕСЛИ(Альфа!$AA$9=1;ПРОСМОТР($X3;Ал ьфа!$AE$3:$AE$999;Альфа!P$3:P$999); ЕСЛИ(Альфа!$AA$10=1;ПРОСМОТР($X3;Ал ьфа!$AE$3:$AE$999;Альфа!F$3:F$999); 0))
S:S
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!T$3:T$999)
T:T
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!U$3:U$999)
U:U
=ПРОСМОТР($X3;Альфа!$AE$3:$AE$999;А льфа!X$3:X$999)
V:V
=ЕСЛИ(Альфа!$AA$9=1;ПРОСМОТР($X3;Ал ьфа!$AE$3:$AE$999;Альфа!W$3:W$999); ЕСЛИ(Альфа!$AA$10=1;ПРОСМОТР($X3;Ал ьфа!$AE$3:$AE$999;Альфа!V$3:V$999); 0))
W:W
=T3+V3