Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with second count routine from userform
Hi
When I add records through my form I need to add a counter to the cheque number chq1, chq2 etc. My problem is other payment types are allowed and should not be numbered. I already count the items entered as these are 1 less than the row number which works fine. Thanks Wendy Private Sub CmdAdd_Click() Dim lRow As Long Dim ws As Worksheet Set ws = Worksheets("Data") Dim Counter As Integer Dim loopy As Integer Dim ChqNo As Integer 'first empty row lRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'check for Payment method entry If Trim(Me.cboType.Value) = "" Then Me.cboType.SetFocus MsgBox "Please select a payment method" Exit Sub End If Counter = lRow - 1 'copy the data to the spreadsheet With ws For loopy = 1 To lRow .Cells(lRow, 1).Value = Counter 'Item No .Cells(lRow, 3).Value = Me.TxtName.Value 'Payee Name .Cells(lRow, 4).Value = Me.TxtFee.Value 'Amount If Left(Cells(lRow, 5).Value, 3) = "CHQ" Then .Cells(lRow, 5).Value = "CHQ" & loopy Else .Cells(lRow, 5).Value = Me.cboType.Value End If Next loopy End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
End routine by clicking 'X' on Userform | Excel Programming | |||
How do I continue a routine while showing a userform? | Excel Programming | |||
Problem with simple routine to change font size | Excel Programming | |||
Slight problem - routine to add quotes to a column | Excel Programming | |||
Keep userform visible, but return control to calling routine | Excel Programming |