Генерация контрольного номера

Question

Поэтому в настоящее время у меня есть следующее. Когда я нажимаю кнопку или нажимаю кнопку "Отправить", форма выглядит на вкладке "Главная книга". Я пытался заставить форму автоматически генерировать контрольный номер (ConNum), который выглядит как 135F16-01, где "F16" - текущий финансовый год, а «-01» - номер транзакции. Я хотел, чтобы форма искала столбец A и генерировала следующий доступный номер. Чтобы упростить или, как мне кажется, проще, я создал вкладку RefInfo и добавил туда контрольные числа. Поэтому я подумал о том, чтобы иметь форму проверки столбца A и использовать следующий доступный или неиспользуемый контрольный номер из столбца на вкладке RefInfo. Мысли, вход?

Private Sub CommandButton1_Click()
   Dim emptyRow As Long

   'make Ledger active
   Ledger.Activate

   'Determine emptyRow
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Cells(emptyRow, 1).Value = ConNum.Value
Cells(emptyRow, 2).Value = FYSel.Value
Cells(emptyRow, 3).Value = MoPBox.Value
Cells(emptyRow, 4).Value = CHol.Value
Cells(emptyRow, 5).Value = AO.Value
Cells(emptyRow, 6).Value = ReqSec.Value
Cells(emptyRow, 8).Value = TranType.Value
Cells(emptyRow, 9).Value = VenNm.Value
Cells(emptyRow, 10).Value = PID.Value
Cells(emptyRow, 11).Value = TranTot.Value
Cells(emptyRow, 12).Value = TotBil.Value
Cells(emptyRow, 13).Value = TranTot.Value - TotBil.Value


If EOYNo.Value = True Then
Cells(emptyRow, 7).Value = "No"
End If

If EOYNo.Value = False Then
Cells(emptyRow, 7).Value = "Yes"
End If

End Sub

Private Sub CommandButton2_Click()

'Set Control Number
ConNum.Text = Cells(Rows.Count, "A").End(xlUp).Row + 1

End Sub