Блог

У меня есть два листа. У меня уже есть кнопка для сохранения данных на другом листе под названием «Данные», и она хорошо работает. Теперь я создал одну кнопку, которая должна выполнять две работы. Он очистит ячейки (показано в коде), а затем поместит в ячейку C2 следующий последовательный номер.

 Sub ClearButton()
Range("L1", "L2").Clear
Range("C2", "B3").Clear
Range("J5", "K5").Clear
End Sub
 

Я хочу, чтобы ячейка C2 в этом вводном листе проверяла столбец A на другом листе под названием «Данные». В таблице данных в столбце A сохраняется весь номер клиента как 1,2,3 и продолжается. Поэтому он должен проверять последнюю запись или максимальное количество строк в столбце A. Итак, если максимальное число в столбце A (таблица данных) равно 5, то оно будет помещено в ячейку C2 (таблица ввода) 6, чтобы была выполнена новая запись.

Что-то вроде этого? Это позволит захватить последнее значение в столбце A на листе Data , добавить к нему 1 и установить C2 значение в ActiveSheet значение.

Обратите внимание, что если данные в столбце A на Data листе не являются числом, это может привести к ошибке, и их необходимо обработать.

 Sub ClearButton()
Range("L1", "L2").Clear
Range("C2", "B3").Clear
Range("C2").Value = Sheets("Data").Range("A" amp; Rows.CountLarge).End(xlUp).Row   1
Range("J5", "K5").Clear
End Sub