Копирование данных в Excel пошло не так при записи макроса - PullRequest
0 голосов
/ 25 марта 2020

, поэтому недавно я столкнулся с проблемой при записи макроса в Excel. (Я хочу автоматизировать список смен моих коллег)

НАЖМИТЕ, ЧТОБЫ ПОСМОТРЕТЬ GIF

Итак, чтобы описать плохое поведение в этом GIF: я создал 4 кнопки, которые должны копировать ячейки Например, «Add Construsoft» должен скопировать эти 3 ячейки Construsoft, а «Add Timber» должен скопировать 2 ячейки Timber на этом листе, но есть проблема, потому что макрос «Add Timber» запоминает те же ячейки, поэтому мне нужно, чтобы при нажатии кнопки «Добавить Construsoft» кнопка «Добавить древесину» должна считаться с еще тремя вставленными ячейками. Можете ли вы помочь мне, ребята? Большое спасибо.

КОД ЗДЕСЬ (Я ЗАПИСАЛ ЭТО МАКРО)

'
' Add_Construsoft Macro
'

'
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A14:A16").Select
    Selection.Copy
    Range("A17").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C18").Select
End Sub
Sub Add_Timber()
'
' Add_Timber Macro
'

'
    Rows("20:20").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A18:A19").Select
    Selection.Copy
    Range("A20").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D33").Select
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...