Задание диапазонов. Выдает ошибку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Задание диапазонов. Выдает ошибку (Макросы/Sub)

kleo90

Дата: Вторник, 31.05.2016, 11:37 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Как мне задать диапазон[vba]

Код

For Each x In wl0.UsedRange.Cells

[/vba]

Необходимо искать с 254 и ниже строки столбца D , не задать выдает постоянно ошибку.
[vba]

Код

Dim x As Variant

    Dim wb0 As Workbook
    Dim wl0 As Worksheet

    Application.ScreenUpdating = False
    Set wb0 = ThisWorkbook
    Set wl0 = wb0.Worksheets("Лист1")

'Set r1 = w10.Range("D:D")

    wb0.Activate
   With Workbooks.Open("C:\Documents\Учет.xlsx")
       For Each x In wl0.UsedRange.Cells
       'For Each x In Workbooks("Учет3.xlsm").Sheets("Лист1").Cells
            If LCase(x.Text) Like "*родс*" Then
                rk = .Worksheets("Лист1").Cells(Rows.Count, 3).End(xlUp).Row
                If .Worksheets("Лист1").Columns(3).Find(x.Offset(, -2)) Is Nothing Then
                    .Worksheets("Лист1").Cells(rk + 1, 3).Value = x.Offset(, -2)

                    .Worksheets("Лист1").Cells(rk + 1, 4).Value = x.Offset(, 2)

                End If
            End If
        Next x
End With
End Sub

[/vba]