LIST BOX IN EXCEL

[HansV]

Replace the code I posted above with

Code: Select all

    If Me.Machine = "SELECT ALL" Then
        Select Case ComboBox1.Value
            Case "AIRBUS"
                Worksheets("TPM QRQC (2)").Range("B6") = Application.CountA _
                    (Worksheets("AddNew").Range("D8:D100"))
            Case "GCU"
                Worksheets("TPM QRQC (2)").Range("B7") = Application.CountA _
                    (Worksheets("AddNew").Range("G8:G100"))
            Case "FALCON"
                Worksheets("TPM QRQC (2)").Range("B8") = Application.CountA _
                    (Worksheets("AddNew").Range("I8:I100"))
            Case "AC"
                Worksheets("TPM QRQC (2)").Range("B9") = Application.CountA _
                    (Worksheets("AddNew").Range("K8:K100"))
            Case "DC"
                Worksheets("TPM QRQC (2)").Range("B10") = Application.CountA _
                    (Worksheets("AddNew").Range("M8:M100"))
            Case "MRO"
                Worksheets("TPM QRQC (2)").Range("B11") = Application.CountA _
                    (Worksheets("AddNew").Range("O8:O100"))
        End Select
    End If

[krishnaa_kumarr88]

thanks a lot

[HansV]

I forgot to change the cell reference B6 to B7, B8 etc. I have edited my previous reply to correct that.

[krishnaa_kumarr88]

cheers