Как изменить значение следующей пустой ячейки в столбце? - PullRequest
0 голосов
/ 25 января 2020

Я пытаюсь ввести значение в следующую пустую строку в столбце.

Я попытался использовать rows.count и отключить его установку, как если бы вы вставляли, но это не работает. Я смог заставить его изменить значение в первой ячейке, но не искать следующую пустую и изменить ее значение.

Private Sub CommandButton1_Click()
    Dim wbCount As Workbook
    Set wbEntry = ThisWorkbook

    wbEntry.ActiveSheet.Range("B3").Copy

    Set wbCount = Workbooks.Open("U:\MO# Count.xlsm")

    Worksheets("Golf Cart").Paste _
      Destination:=Worksheets("Golf Cart").Range("V5")

    Worksheets("Golf Cart").Range("C2").Value = 1

    wbEntry.Activate

    Application.CutCopyMode = False

    wbEntry.ActiveSheet.Range("O1").Select

End Sub

То, что у меня работает, за исключением того, что я не ищу следующую пустую ячейку в «C» и изменение значения на «1».

1 Ответ

1 голос
/ 25 января 2020

Я в замешательстве, почему вы думаете, что он ищет пустую ячейку?

Оставляя пока оставшуюся часть макроса в одиночку, эта строка:

Worksheets("Golf Cart").Range("C2").Value = 1

Не выполняет поиск для пустой ячейки он просто записывает «1» в ячейку C2. Если вы хотите, чтобы он нашел первую пустую ячейку в столбце C, а затем записал в нее цифру 1, то это должно сработать:

Worksheets("Golf Cart").Cells(Sheets("Golf Cart").Cells(Rows.Count, 3).End(xlUp).Row + 1, 3) = 1

Я не уверен, что вы этого хотите, хотя , просьба уточнить. Он находит последнюю использованную строку в столбце C и затем переходит к следующей, чтобы записать в нее «1». Это не работает, если вы хотите найти пустые ячейки в заполненном в противном случае столбце. Но вы написали что-то о rows.count или что-то еще, так что я подумал, что выложу таким образом?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...