Поиск данных и вывод отдельную ячейку

[ReVer273]

Здравствуйте. Подскажите пожалуйста

Имею таблицу, обновляющуюся из интернета(в приложение).
1)Нужно выполнить поиск по позициям в столбце "Цена" <=0.75.
2)Из найденных 4 позиций нужно нужно выполнить поиск по столбцу "Количество" и в отдельный столбец перенести те значения, которые больше 0 (т.е. F4 и F7)

[staniiislav]

так подойдет?:

Option Explicit

Sub aaa()
Dim i&, a, b
Range("G3:G7").ClearContents
a = Range("E3:F7").Value
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
    If a(i, 1) <= "0,75" Then
        b(i, 1) = a(i, 2)
    Else
        b(i, 1) = "xxx"
    End If
Next i
[G3].Resize(UBound(b)).Value = b
End Sub

[ReVer273]

Спасибо. Уже стало легче.
А можно как нибудь сделать, чтобы скрипт захватывал весь диапазон E:F, т.к. данные с интернета появляются в хаотичном порядке.

От Нулей никак нельзя избавиться? )

А также добавить настройку обновления макроса каждые 5 минут?

[staniiislav]

тогда так наверное:

это в модуль:

Option Explicit

Sub aaa()
Dim i&, a, b
Range("G3", Cells(Rows.Count, "G").End(xlUp)).ClearContents
a = Range("E3", Cells(Rows.Count, "F").End(xlUp)).Value
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
    If a(i, 1) <= "0,75" And a(i, 2) <> 0 Then
        b(i, 1) = a(i, 2)
    Else
        b(i, 1) = ""
    End If
Next i
[G3].Resize(UBound(b)).Value = b
Application.OnTime Now + TimeValue("00:05:00"), "aaa"
End Sub

а это в модуль книги:

Option Explicit

Private Sub Workbook_Open()
Call aaa
End Sub

Добавлено позже
или лучше в место :

 b(i, 1) = ""

поставить так:

b(i, 1) = b(i, 1)

[ReVer273]

Спасибо Большое за помощь )))

Интересно, а есть возможность добавить звуковой сигнал к появлению значения больше 0? )

[staniiislav]

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

Спасибо Большое за помощь )))

Интересно, а есть возможность добавить звуковой сигнал к появлению значения больше 0? )

))) наверное можно

[EducatedFool]

А вот здесь написано, как добавить звуковой сигнал одной строкой кода:
http://excelvba.ru/code/beeps

[staniiislav]

Option Explicit

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Sub aaa()
Dim i&, n&, a, b
Range("G3", Cells(Rows.Count, "G").End(xlUp)).ClearContents
a = Range("E3", Cells(Rows.Count, "F").End(xlUp)).Value
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
    If a(i, 1) <= "0,75" And a(i, 2) <> 0 Then
        b(i, 1) = a(i, 2): n = n + 1
    Else
        b(i, 1) = b(i, 1)
    End If
Next i
[G3].Resize(UBound(b)).Value = b
If n > 0 Then mciExecute ("Play C:\Windows\Media\tada.wav")
Application.OnTime Now + TimeValue("00:05:00"), "aaa"
End Sub

[ReVer273]

Работает. Все отлично! Спасибо )

[ReVer273]

Возникла проблема.
Я работаю с 4 листами. Во 2, 3 и 4 из них я вставил код в модуль Листа.
В первом я веду подсчеты, но там макрос тоже заменяет значение ячейки G

Как можно присвоить макрос только к "Лист1", "Лист2", "Лист3" ?