Выделение ячеек

[VohA]

Написал код для выделения первой пустой ячейки в столбце, но он почему-то не работает:
Dim J As Integer
J = 1
Do Until Cells(J + 1, "F").Value = "" And Cells(J, "L").Value = "EUR"
If Cells(J + 1, "F").Value = "" Then Cells(J + 1, "A").Select
J = J + 1
Loop
Скорее всего ошибка как всегда дурацкая, но всё же помогите.

[corgi]

для нахождения первой пустой ячейки я бы написал что-то типа, хотя это первое что пришло в голову и не самое хорошее

Код: Выделить всё

Dim J As Integer
J = 1
Do While 1
If Cells(J + 1, "F").Value = "" Then
Cells(J + 1, "A").Select
Exit Do
End If
J = J + 1
Loop


а у тебя для чего And Cells(J, "L").Value = "EUR" я честно говоря не понял
зы а лист лучше всегда указывать

[VohA]

2corgi:
Там в документе, в одной колонке везде "EUR", ну вот я решил
чтоб после того как "EUR" кончается ячейка выделялась.
А лист я только сейчас поленился писать.
Спасибо!