Всем доброго времени суток!
Есть кнопка, при нажатии на которую, меняется номер строки в 1 ячейке. Необходимо, чтобы было такое же изменение, но сразу массово в нескольких ячейках (здесь в 2-х следующих ячейках C1 и D1). Пробовал добавить в код просто дубликат кода, но выдает ошибку: Compile error. Duplicate declaration in current scope.
Пример: в ячейках B1, C1, D1 указаны текстовые ссылки на другие ячейки.
Необходимо при нажатии кнопки (в колонке A) добавлять цифру +1 к номеру строки в каждой ячейке (не меняя имя колонки). То есть при нажатии на кнопку текст в ячейке B1 должен поменятьcя с "Данные!А1" на "Данные!А2".
Для этого сейчас используется следующий код, который отлично работает, если менять номер строки только для 1 ячейки (в примере exvcel файла меняет ячейку B1):
Вопрос: Как подправить макрос, чтобы он также прибавлял +1 в ячейках C1, D1 и так далее, если ячеек в макросе будет указано несколько.
Т.е. в итоге при нажатии на кнопку тексты будут меняться:
- в ячейке B1 должен поменятьcя с "Данные!А1" на "Данные!А2".
- в ячейке C1 должен поменятьcя с "Данные!B1" на "Данные!B2".
- в ячейке D1 должен поменятьcя с "Данные!C1" на "Данные!C2".
и т.д.
Сам файл Excel прилагаю.
Заранее благодарю за помощь!
Есть кнопка, при нажатии на которую, меняется номер строки в 1 ячейке. Необходимо, чтобы было такое же изменение, но сразу массово в нескольких ячейках (здесь в 2-х следующих ячейках C1 и D1). Пробовал добавить в код просто дубликат кода, но выдает ошибку: Compile error. Duplicate declaration in current scope.
Пример: в ячейках B1, C1, D1 указаны текстовые ссылки на другие ячейки.
Необходимо при нажатии кнопки (в колонке A) добавлять цифру +1 к номеру строки в каждой ячейке (не меняя имя колонки). То есть при нажатии на кнопку текст в ячейке B1 должен поменятьcя с "Данные!А1" на "Данные!А2".
Для этого сейчас используется следующий код, который отлично работает, если менять номер строки только для 1 ячейки (в примере exvcel файла меняет ячейку B1):
Код |
---|
Sub Прямоугольник1_Щелчок() Dim iCol As String, iRow As Long iRow = Range(Range("Менять!B1").Value).Row iCol = Replace(Range("Менять!B1"), iRow, "") Range("Менять!B1") = iCol & iRow + 1 End Sub |
Вопрос: Как подправить макрос, чтобы он также прибавлял +1 в ячейках C1, D1 и так далее, если ячеек в макросе будет указано несколько.
Т.е. в итоге при нажатии на кнопку тексты будут меняться:
- в ячейке B1 должен поменятьcя с "Данные!А1" на "Данные!А2".
- в ячейке C1 должен поменятьcя с "Данные!B1" на "Данные!B2".
- в ячейке D1 должен поменятьcя с "Данные!C1" на "Данные!C2".
и т.д.
Сам файл Excel прилагаю.
Заранее благодарю за помощь!