Заполнение пустых ячеек

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение пустых ячеек (Макросы/Sub)

ant6729

Дата: Понедельник, 27.03.2017, 11:47 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Всем добрый день! опять

Нужно, чтобы функция добавляла в первую пустую ячейку(начиная сверху вниз) любое значение из первого столбца по даблклику

Вот все, что было разобрано, переделано, скомпилировано... но дальше не могу понять

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

        Dim i&
'
        Cancel = True

        i = Sheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Row + 1

        Sheets("Лист1").Cells(i, 1).Value = Target.EntireRow.Value
End Sub

[/vba]

По идее нужно как-то через Like искать пустые и если пустая, то как -то дальше не понимаю.
Может, как-то еще.

К сообщению приложен файл: 12.xlsx (8.2 Kb)

Ответить

ant6729

Дата: Понедельник, 27.03.2017, 12:27 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Есть блок выше
Потом пустые
Потом опять заполненные

1
1

2
2

33
33

и так далее

я 3 раза щелкаю, например, на 33

получается

1
1
33
2
2
33
33
33
33

То есть заполнение идет в первую пустую ячейку

Сообщение отредактировал ant6729 - Понедельник, 27.03.2017, 12:29

Ответить

_Boroda_

Дата: Понедельник, 27.03.2017, 12:40 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Такой вариант
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If IsEmpty(Target) Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Cancel = True
    If IsEmpty(Range("A1")) Then
        r_ = 1
    ElseIf IsEmpty(Range("A2")) Then
        r_ = 2
    Else
        r_ = Range("A1").End(xlDown).Row + 1
    End If
    Range("A" & r_) = Target.Value
End Sub

[/vba]

К сообщению приложен файл: 12_111.xlsm (13.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

sboy

Дата: Понедельник, 27.03.2017, 12:45 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
i = Sheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Row
q = Target.Value
Range("A1:A" & i).SpecialCells(xlCellTypeBlanks).Value = q
End Sub

[/vba]