Переместить выбранный ряд на новый лист с помощью кнопки

Question

У меня есть листы с большим количеством данных каждый день. У меня тогда есть девять листов (называемых john, peter, james и т. Д.). Я просматриваю каждую строку (строку) и решаю, какая работа/строка предназначена для того, чтобы кто-то разрезал выбранную строку (пример строки 5), чем заходил в этот лист лиц (пример james), чем выбрать следующую свободную строку и вставить. Затем вернитесь к мастер-листу, удалите пустую строку (пример строки 5) и повторите для следующего человека до тех пор, пока мастер-лист не будет пуст.

Что я пытаюсь сделать, это создать кнопки в верхней части листа, чтобы ссылаться на макросы/VBA с именем этого человека и при прохождении мастер-листа (Лист 1, одна и та же книга), хотите выбрать строку, затем нажмите кнопку, и выбранная строка будет перемещена на лист этого человека в следующей свободной строке и удалив исходную строку.

Answer 1

Скопируйте один раз для каждого листа & переименовать sht2 по мере необходимости. Назначьте каждую копию кнопке.

Sub move_row() 

'Declare variables 
    Dim sht1 As Worksheet 
    Dim sht2 As Worksheet 
    Dim sht3 As Worksheet 
    Dim lastRow As Long 

'Set variables 
    Set sht1 = Sheets("Master") 
    Set sht2 = Sheets("John") 

'Select Entire Row 
    Selection.EntireRow.Select 

'Move row to destination sheet & Delete source row 
    lastRow = sht2.Range("A" & sht2.Rows.Count).End(xlUp).Row 

    With Selection 
     .Copy Destination:=sht2.Range("A" & lastRow + 1) 
     .EntireRow.Delete 
    End With 

End Sub