Hi, i am using the following code to insert data into corresponding cells chosen by a combo box.
However, when i execute the code it does not seem to insert any code??
any help would be greatly appreciated
Raj
Code:
If cboType.Value = "Cash" And cboQuarter.Value = "Quarter1" Then
Worksheets("Purchases_Cash_Quarter1").Range("A2").Value = txtDate.Value
Worksheets("Purchases_Cash_Quarter1").Range("B2").Value = txtSupplier.Value
Select Case True
Case cboCategory.Value = "Bank Charges"
Worksheets("Purchases_Cash_Quarter1").Range("O2").Value = txtAmount.Value
Case cboCategory.Value = "Camelot Lottery"
Worksheets("Purchases_Cash_Quarter1").Range("X2").Value = txtAmount.Value
Case cboCategory.Value = "Contra Entries"
Worksheets("Purchases_Cash_Quarter1").Range("V2").Value = txtAmount.Value
Case cboCategory.Value = "Drawings"
Worksheets("Purchases_Cash_Quarter1").Range("W2").Value = txtAmount.Value
Case cboCategory.Value = "Electricity"
Worksheets("Purchases_Cash_Quarter1").Range("M2").Value = txtAmount.Value
Case cboCategory.Value = "Insurance & Alarm"
Worksheets("Purchases_Cash_Quarter1").Range("Q2").Value = txtAmount.Value
Case cboCategory.Value = "Loans & Capital"
Worksheets("Purchases_Cash_Quarter1").Range("T2").Value = txtAmount.Value
Case cboCategory.Value = "Miscellaneous & Accounting"
Worksheets("Purchases_Cash_Quarter1").Range("U2").Value = txtAmount.Value
Case cboCategory.Value = "Motor Expenses"
Worksheets("Purchases_Cash_Quarter1").Range("K2").Value = txtAmount.Value
Case cboCategory.Value = "Postage & Stationery"
Worksheets("Purchases_Cash_Quarter1").Range("R2").Value = txtAmount.Value
Case cboCategory.Value = "Rent/Rates/Water"
Worksheets("Purchases_Cash_Quarter1").Range("L2").Value = txtAmount.Value
Case cboCategory.Value = "Repairs"
Worksheets("Purchases_Cash_Quarter1").Range("P2").Value = txtAmount.Value
Case cboCategory.Value = "Standard Rate"
Worksheets("Purchases_Cash_Quarter1").Range("E2").Value = txtAmount.Value
Case cboCategory.Value = "Sundry"
Worksheets("Purchases_Cash_Quarter1").Range("S2").Value = txtAmount.Value
Case cboCategory.Value = "Telephone"
Worksheets("Purchases_Cash_Quarter1").Range("N2").Value = txtAmount.Value
Case cboCategory.Value = "Wages"
Worksheets("Purchases_Cash_Quarter1").Range("J2").Value = txtAmount.Value
Case cboCategory.Value = "Zero Rate: 25%"
Worksheets("Purchases_Cash_Quarter1").Range("F2").Value = txtAmount.Value
Case cboCategory.Value = "Zero Rate: 30%"
Worksheets("Purchases_Cash_Quarter1").Range("G2").Value = txtAmount.Value
Case cboCategory.Value = "Zero Rate: 5%"
Worksheets("Purchases_Cash_Quarter1").Range("H2").Value = txtAmount.Value
End Select
End If
However, when i execute the code it does not seem to insert any code??
any help would be greatly appreciated
Raj