0

Добрый день! Нужно записать в последнюю заполненную строчку столбца "А" определенное значение. Вот этот код записывает в текущий лист, а мне нужно в конкретный. Как исправить?

Dim ra As Range
Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
ra = TextBox6.Value
2
  • Как вариант, повесил на кнопку Sheets("нужный лист").Select, это работает, но может есть более аккуратный способ?
    – lion295
    2 мая 2016 в 9:48
  • Чтобы в конкретный лист, измените строку. Set ra = Worksheets("нужный лист").Range("A" & Rows.Count).End(xlUp).Offset(1) Можно даже всё это выражение записать в одну строку: Worksheets("нужный лист").Range("A" & Rows.Count).End(xlUp).Offset(1) = TextBox6.Value
    – Evrik
    4 мая 2016 в 5:24

2 ответа 2

1

Сам разобрался

' Пишем в столбец А
    Dim ra As Range
    Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
    ra = TextBox6.Value

' Пишем в столбец В
    Dim ra1 As Range
    Set ra1 = Range("A" & Rows.Count).End(xlUp).Offset(0, 1) ' с помощью Offset сдвигаем вниз на ноль, вправо на 1
    ra1 = TextBox7.Value
0
Sub SaveRow()
Dim lRws As Long
    With ActiveSheet ' заменить на нужный лист
        ' первая пустая (после заполненных) строка в столбце A
        lRws = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lRws, 1).Value = TextBox6.Value ' запись в ячейку
    End With
End Sub

Практически дубль темы

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.