Geração do Número de Controle

Question

Atualmente, tenho o seguinte. Quando clico em um botão ou clico no botão enviar O formulário aparece na guia Razão. Eu estava tentando obter o formulário para gerar automaticamente um número de controle (ConNum) que se parece com 135F16-01, onde "F16" é o ano fiscal atual e o "-01" é o número da transação. Eu queria que o formulário pesquisasse a coluna A e gerasse o próximo número disponível. Para facilitar, ou o que eu acho que pode ser mais fácil, criei uma Aba RefInfo e coloquei os números de controle lá. Portanto, meu pensamento é que o formulário verifique a Coluna A e use o próximo número de controle disponível ou não usado de uma coluna na guia RefInfo. Pensamentos, entrada?

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