Блог

Очень новичок в макросах, и это мой первый опыт…

Итак, я создаю форму Excel, в которую мы вводим информацию (Upscore Audit), нажимаем кнопку, и эта информация будет скопирована на другой лист (UpScores) в той же книге, в новой строке. Я искал здесь и нашел некоторую помощь, но ничего не происходит, когда я нажимаю на кнопку. Это то, что у меня есть в настоящее время:

 Sub OnClick()
Dim refTable As Variant, trans As Variant
refTable = Array("A=C3", "B=C4", "C=C5", "D=C6", "E=C7", "F=C9", "G=D11", "H=D13", "J=E15")
Dim Row As Long
Row = Worksheets("UpScores").UsedRange.Rows.Count   1
For Each trans In refTable
    Dim Dest As String, Field As String
    Dest = Trim(Left(trans, InStr(1, trans, "=") - 1)) amp; Row
    Field = Trim(Right(trans, Len(trans) - InStr(1, trans, "=")))
    Worksheets("UpScoreAudit").Range(Dest).Value = Worksheets("UpScores").Range(Field).Value
Next
End Sub
 

Любая помощь будет очень признательна

Попробуйте присвоить вашему подразделу CommandButton1_Click(), где CommandButton1 — это имя вашей кнопки