Вставка данных в ту же строку, что кнопка находится в

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

В настоящее время этот код работает нормально; текст кнопки обновляется, и MacroA назначается MacroA . Я читал о topleftcell , но не смог его реализовать.

 Sub MacroA() ' ' MacroA Macro ' Range("I2:J2").Select Selection.Copy Range("B2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Range("D2").Select Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close End Sub 

Непроверенный, но может помочь вам …

 Sub Tester() Dim c As Range, sht As Worksheet Dim d As Range Set sht = ActiveSheet Set c = sht.Shapes(Application.Caller).TopLeftCell sht.Cells(c.Row, 2).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True With ActiveSheet Set d = .Cells.Find(What:="", After:=.Range("D2"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) sht.Range("I2:J2").Copy d .Parent.Save .Parent.Close End With Application.CutCopyMode = False End Sub 
  • Поиск новой команды кнопок в VBA Excel
  • Excel VBA: получение строки нажатой кнопки
  • Как сохранить код в VBA, пока открыто окно формы?
  • Добавление поведения клика к динамически созданной кнопке управления формой с помощью VBA в Excel
  • Добавление командных кнопок в рабочий лист во время выполнения, а также определение событий
  • Назначить макрос кнопке, созданной во время выполнения VBA
  • Кнопка для копирования вставки в Excel
  • Экспортный лист, включая VBA и командную кнопку
  • Excel 2007 VBA, чтобы добавить кнопку
  • Как выполнить расчет в листе с помощью кнопки в excel
  • Программное создание рабочих листов в Excel Add In (C #)
  • Interesting Posts

    VBA, ошибка при использовании поиска

    VBA Сортировка многострочных рядов

    Вызовите функции Excel COM Addins с помощью макроса

    Используйте ячейку со специальным текстом в качестве ссылки для создания таблицы из данных в других ячейках

    Выявление и подсчет осколков, основанных на нескольких критериях

    Увеличение / уменьшение значения нескольких ячеек в выбранном диапазоне VBA

    Как продлить половину динамической формулы?

    Файл, который обычно открывает наше приложение, но вернется в Excel

    C # Math.Ceiling округляет событие double … (от 500 до 501) (формула)

    Как получить информацию о культуре Excel с открытым XML?

    Excel VBA найти номер столбца выбранного пользователем диапазона (с помощью мыши)

    Используйте Access VBA для проверки документа Excel из Sharepoint

    VBA: определение переменных в диапазоне вместо имен ячеек

    Как обрабатывать старые файлы excel .xls с помощью POI?

    Перечислите сегодняшнюю дату + 3 месяца до указанной даты?

    Давайте будем гением компьютера.