ONE drop down for the recurring item
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("NewChecks")) Is Nothing Then
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
mydate = InputBox("Enter Date")
If mydate = "" Then
Cells(lr, 1) = Date
Else
Cells(lr, 1) = mydate
End If
'list is on sheet2
x = Sheets("sheet2").Range("newlist").Find(Target).Row
With Sheets("sheet2")
Range(Cells(lr, 2), Cells(lr, 7)).Value = _
.Range(.Cells(x, 2), .Cells(x, 7)).Value
End With
If Target = "Interest" Then
Cells(lr, "b") = "Interest"
Cells(lr, "c") = Format(InputBox("Enter Interest Rate") / 100, "0.00%")
'Cells(lr, "c").NumberFormat = "0.00%"
'Cells(lr, "d") = InputBox("Enter Interest Paid")
Cells(lr, "e") = InputBox("Enter Bank Number 1, 2, 3)
'Cells(lr, "f") = ""
Cells(lr, "g") = "x"
End If
If Target = "blank" Then
Cells(lr, 2) = InputBox("Payee")
Cells(lr, 3) = InputBox("For")
Cells(lr, 5) = 2
End If
If Len(Cells(lr, 4)) < 2 Then Cells(lr, 4) = InputBox("Amt")
Cells(lr, 8) = Cells(lr - 1, 8) + Cells(lr, 4)
End If
Range("h7").Select
Call sv 'does a running total
End Sub
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"T. Valko" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Mine is perfect. Just a plain register. No bells and whistles!
>
> I use drop down lists for everything: date, check number, payee,
> reconcile, fee's. The only thing I have to manually enter is the amount.
>
> Reconciling with my bank statement takes all of 2 minutes!
>
> Biff
>
> "Jordon" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Anyone using Excel for your check register?
>>
>> I've tried creating one in years past but there's always something that
>> wouldn't work quite right. There's plenty of inexpensive commercial
>> programs out there but I don't need it to track a credit card account or
>> manage my stock portfolio or spit shine my wing tips.
>>
>> TIA,
>>
>> --
>> Jordon
>
>