Excel VBA Userform.Вставьте данные в пустую строку - PullRequest
Новая
       12

Excel VBA Userform.Вставьте данные в пустую строку

0 голосов
/ 02 января 2019

Во-первых, я желаю вам счастливого нового года :) Я создал пользовательскую форму для заполнения данных в базе данных.Пока все хорошо.

Следующий код вставляет данные 

Private Sub Insert_Click()
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
With ws
    .Cells(iRow, 2).Value = Me.DateInput.Value
    .Cells(iRow, 4).Value = Me.AssetClass.Value
    .Cells(iRow, 5).Value = Me.Topic.Value
    .Cells(iRow, 7).Value = Me.BBG.Value
End With
    Me.DateInput.Value = ""
    Me.AssetClass.Value = ""
    Me.Topic.Value = ""
    Me.BBG.Value = ""
Unload Me
End Sub

Теперь он выбирает первую строку, которая полностью пуста.Проблема в том, что в некоторых столбцах, таких как Colum A или C, есть формулы.Поэтому пользовательская форма заполняет данные только во 2-й, 4-й, 5-й и 7-й столбцы.Это означает, что мне нужен код, который ищет первую строку, в которой столбец C пуст, и вставляет данные в эту строку.

Я надеюсь, что вы можете помочь мне, и заранее благодарен

...