Не получается задать диапазон

[Amirhan]

Доброго времени суток, друзья необходима ваша помощь. Вопрос в следующем, у меня по форме на первый лист вытаскиваются данные со второго листа, существует необходимость чтоб прочерчивало границы таблицы автоматически, никак не выходит организовать данный вопрос, с помощью макросов получил следующий код:

PHP код:

 Sheets("Лист1").Select
    Range("A7:E7").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("C11").Select 


То есть вручную прописан диапазон, а мне необходимо чтоб правый нижний край определялся автоматически, пытался след образом:

PHP код:

ILastRow4 = sheets1.Cells(sheets1.Rows.Count, "E").End(xlUp).Row
      Sheets("Лист1").Select
    Range(A7, ILastRow4).Select 


но никак не выходит у меня

[alex77755]

Примерно такая конструкция дожна быть:

Range("A1:G" & ILastRow4).Select

А в такой конструкции можешь менять все цифровые значения

Range(cells(1,1),cells(11,7)).Select

[Amirhan]

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

Примерно такая конструкция дожна быть:

Range("A1:G" & ILastRow4).Select

А в такой конструкции можешь менять все цифровые значения

Range(cells(1,1),cells(11,7)).Select

Не получается , на строке

PHP код:

Range ("A7:E" & ILastrow4).Select 


ругается, Object required

[kuklp]

Значит выкладывайте пример, где не получается. Код правильный. Мож у Вас там какая буква кириллицей, мож ILastrow4 имеет неверное значение. Будет пример, будет о чем поговорить.

[Amirhan]

Прикрепил, на второй форме код

[kuklp]

Дык Вы, дружище, бреда понаписывали. Объявляете:
ILastRow4 As Range
а хотите ей присвоить номер строки:

ILastRow4 = Sheets1.Cells(Sheets1.Rows.Count, "E").End(xlUp).Row

Я уж молчу о том, что листа с кодовым именем Sheets1 не существует. Теперь сами справитесь?

[kuklp]

Ладно уж, держите, а то мне ждать некогда:

Private Sub CommandButton1_Click()
Dim ILastRow, ILastRow2, ILastRow3 As Long, lr As Long
Dim rCell, ILastRow4 As Long
With Sheets(1)
ILastRow3 = .Cells(.Rows.Count, "A").End(xlUp).Row
If ILastRow3 < 7 Then ILastRow3 = 7
.Range(.Cells(7, 1), .Cells(ILastRow3, 5)).ClearContents
End With
    With Sheets(2)
        ILastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For Each rCell In Range(.Cells(2, 1), .Cells(ILastRow, 1))
           If rCell.Value = CDate(TextBox1.Value) Then
            If CDate(rCell.Value) = CDate(TextBox1.Value) Then
                lr = rCell.Row
                With Sheets(1)
                 ILastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
                 If ILastRow < 7 Then ILastRow = 7
                .Cells(ILastRow, "A").Value = Sheets("Лист2").Cells(lr, 1).Value
                .Cells(ILastRow, "B").Value = Sheets("Лист2").Cells(lr, 2).Value
                .Cells(ILastRow, "C").Value = Sheets("Лист2").Cells(lr, 3).Value
                .Cells(ILastRow, "D").Value = Sheets("Лист2").Cells(lr, 4).Value
                .Cells(ILastRow, "E").Value = Sheets("Лист2").Cells(lr, 5).Value
            End With
            End If
          End If
        Next rCell
    End With
    ILastRow4 = Sheets(1).Cells(Sheets(1).Rows.Count, "E").End(xlUp).Row
    Range("A7:E" & ILastRow4).Select
...

[Amirhan]

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

[Amirhan]

Заработало))))