When I do this nothing happens. It is supposed to post to the journal the accounts and amounts I have selected. Can you see what is wrong?

[jaret12p]

Sub tranAcct()
Dim eRow As Integer
Dim nextBox As Integer

eRow = BlankRow("Journal", 3, 2) + 1

With TransactionEntry
For nextBox = 1 To 6
If .Controls("acctCbx" & nextBox).Value <> "" Then
Sheets("Journal").Cells(eRow, 2).Value = .Controls("acctCbx" & nextBox).Value
If .Controls("Creditbutton" & nextBox).Value = True Then
Sheets("Journal").Cells(eRow, 2).InsertIndent 1
Sheets("Journal").Cells(eRow, 7).Value = .Controls("tbxAmnt" & nextBox)
ElseIf .Controls("Debitbutton" & nextBox).Value = True Then
Sheets("Journal").Cells(eRow, 5).Value = .Controls("tbxAmnt" & nextBox)
End If
eRow = eRow + 1
End If
Next
End With

Sheets("Journal").Cells(eRow, 2).Value = TransactionEntry.txbDescription
Sheets("Journal").Cells(eRow, 2).InsertIndent 2
Sheets("Journal").Cells(eRow, 2).Font.Italic = True

End Sub

 

[xladept]

Hi jaret12p,

Is transaction entry "set" somewhere else like in the declarations?

 

[jaret12p]

I don't think so. That is the name of my form

 

[delaneyjm]

Can you post the code for BlankRow?

 

[jaret12p]

Function BlankRow(sName As String, ByVal sRow As Integer, ByVal sCol As Integer) As Integer
With Worksheets(sName)
BlankRow = .Cells(.Rows.Count, sCol).End(xlUp).Row + 1
End With
End Function

 

[jaret12p]

Any luck out there?

 

[delaneyjm]

I'm assuming TransactionEntry is a form or something?

Can you post your entire code?

 

[jaret12p]

Yes the TransactionEntry is a form. I could post it all but it is huge.