VBA Case??

[Raj7]

Hi, i am using the following code to insert data into corresponding cells chosen by a combo box.

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

 

[Norie]

Raj

I don't think you are using the Select Case correctly.

I don't know exactly what you are trying to do but perhaps the code should look more like this.

Select Case cboCaterory.Value 
        Case  "Bank Charges" 
            Worksheets("Purchases_Cash_Quarter1").Range("O2").Value = txtAmount.Value 
etc

 

[Raj7]

Thanks...it works brilliantly

Sorry if you hadn't already noticed im a bit of a noobie

Thanks again

Raj