Нужно заменить число на переменную

[VohA]

Имеется код:
Dim J As Integer
J = 1
Do Until IsEmpty(Cells(J, "A")) And IsEmpty(Cells(J + 1, "A"))
If IsEmpty(Cells(J, "A")) Then
Sheets("Лист1").Range(Cells(J + 2, "B"), Cells(J + 30, "C")).Select
Selection.Copy
Sheets(1).Cells(1, 1).Select
ActiveSheet.Paste
End If
J = J + 1
Loop
Нужно чтобы выделялся диапазон не (Cells(J + 2, "B"), Cells(J + 30, "C")), а (Cells(J + 2, "B"), Cells(первая пустая ячейка в колонке "C")), как это сделать

[GSerg]

Пытался понять, что делает код... Не смог... Опиши задачу-то

[corgi]

2GSerg вобщем-то ты прав
2VohA держи функцию которая возвращает первую пустую ячейку (ее строку) на входе имя листа, ряд, колонка

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

Function search_f(l As String, r As Integer, c As Integer) As Integer
Dim i As Integer
i = 0
Do While Sheets(l).Cells(r + i, c).Value <> ""
    i = i + 1
Loop
search_f = r + i
End Function

что делать дальше надеюсь разберешься

[VohA]

Хорошо, поставим вопрос по-другому, как програмно определить количество строк в колонке между одной пустой ячейкой и другой?
А код изначально выглядел так:
Dim J As Integer
J = 1
Do Until IsEmpty(Cells(J, "A")) And IsEmpty(Cells(J + 1, "A"))
If IsEmpty(Cells(J, "A")) Then
Sheets(1).Range(Cells(J + 2, "B"), Cells(J + 30, "C")).Select
Selection.Copy
Sheets(1).Select
Sheets.Add
Sheets(1).Name = Sheets(2).Cells(J + 1, "A")
Sheets(1).Cells(1, 1).Select
ActiveSheet.Paste
Selection.Columns.AutoFit
Sheets(1).Move after:=Sheets(2)
Sheets(1).Select
End If
J = J + 1
Loop
Вот мне и надо каждый раз заменять "30" количеством непустых строк.
P.S. Извиняюсь за тупость.

[Calvin]

можно проще
если начинать с непустой ячейки, то так

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

perem = Cells(1,1).End(xlDown).Row + 1


а если стартовая ячейка пустая, то так

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

perem = Cells(1,1).End(xlDown).End(xlDown).Row + 1


и всех делов