genracela
08-25-2010, 09:48 PM
I have a code that is too long and I want to shorten it.
Is there a way to do it?
Private Sub CommandButton1_Click()
If Range("E6").Value = "198818" Then
Range("C28").Select
Else
If Range("E6").Value = "198819" Then
Range("C39").Select
Else
If Range("E6").Value = "198820" Then
Range("C52").Select
Else
If Range("E6").Value = "198821" Then
Range("C65").Select
Else
If Range("E6").Value = "198822" Then
Range("C78").Select
Else
If Range("E6").Value = "198823" Then
Range("C91").Select
Else
If Range("E6").Value = "198824" Then
Range("C100").Select
Else
If Range("E6").Value = "198826" Then
Range("C109").Select
Else
If Range("E6").Value = "198960" Then
Range("C121").Select
Else
If Range("E6").Value = "198961" Then
Range("C134").Select
Else
If Range("E6").Value = "198962" Then
Range("C147").Select
Else
If Range("E6").Value = "198963" Then
Range("C160").Select
Else
If Range("E6").Value = "200141" Then
Range("C173").Select
Else
If Range("E6").Value = "200142" Then
Range("C186").Select
Else
If Range("E6").Value = "200143" Then
Range("C199").Select
Else
If Range("E6").Value = "200144" Then
Range("C212").Select
Else
If Range("E6").Value = "200145" Then
Range("C225").Select
Else
If Range("E6").Value = "200146" Then
Range("C238").Select
Else
If Range("E6").Value = "200147" Then
Range("C251").Select
Else
If Range("E6").Value = "200148" Then
Range("C264").Select
Else
If Range("E6").Value = "200149" Then
Range("C277").Select
Else
If Range("E6").Value = "225129" Then
Range("C290").Select
Else
If Range("E6").Value = "225131" Then
Range("C303").Select
Else
If Range("E6").Value = "225132" Then
Range("C316").Select
Else
If Range("E6").Value = "234394" Then
Range("C329").Select
Else
If Range("E6").Value = "281113" Then
Range("C342").Select
Else
If Range("E6").Value = "281114" Then
Range("C355").Select
Else
If Range("E6").Value = "281115" Then
Range("C368").Select
Else
If Range("E6").Value = "281116" Then
Range("C381").Select
Else
If Range("E6").Value = "281117" Then
Range("C394").Select
Else
If Range("E6").Value = "281118" Then
Range("C407").Select
Else
If Range("E6").Value = "293587" Then
Range("C420").Select
Else
If Range("E6").Value = "323486" Then
Range("C433").Select
Else
If Range("E6").Value = "357867" Then
Range("C446").Select
Else
If Range("E6").Value = "359228" Then
Range("C459").Select
Else
If Range("E6").Value = "364957" Then
Range("C472").Select
Else
If Range("E6").Value = "373653" Then
Range("C485").Select
Else
If Range("E6").Value = "373654" Then
Range("C498").Select
Else
If Range("E6").Value = "373655" Then
Range("C511").Select
Else
If Range("E6").Value = "373656" Then
Range("C524").Select
Else
If Range("E6").Value = "373657" Then
Range("C537").Select
Else
If Range("E6").Value = "374175" Then
Range("C550").Select
Else
If Range("E6").Value = "374183" Then
Range("C563").Select
Else
If Range("E6").Value = "394279" Then
Range("C576").Select
Else
If Range("E6").Value = "402964" Then
Range("C589").Select
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Thanks!!
Is there a way to do it?
Private Sub CommandButton1_Click()
If Range("E6").Value = "198818" Then
Range("C28").Select
Else
If Range("E6").Value = "198819" Then
Range("C39").Select
Else
If Range("E6").Value = "198820" Then
Range("C52").Select
Else
If Range("E6").Value = "198821" Then
Range("C65").Select
Else
If Range("E6").Value = "198822" Then
Range("C78").Select
Else
If Range("E6").Value = "198823" Then
Range("C91").Select
Else
If Range("E6").Value = "198824" Then
Range("C100").Select
Else
If Range("E6").Value = "198826" Then
Range("C109").Select
Else
If Range("E6").Value = "198960" Then
Range("C121").Select
Else
If Range("E6").Value = "198961" Then
Range("C134").Select
Else
If Range("E6").Value = "198962" Then
Range("C147").Select
Else
If Range("E6").Value = "198963" Then
Range("C160").Select
Else
If Range("E6").Value = "200141" Then
Range("C173").Select
Else
If Range("E6").Value = "200142" Then
Range("C186").Select
Else
If Range("E6").Value = "200143" Then
Range("C199").Select
Else
If Range("E6").Value = "200144" Then
Range("C212").Select
Else
If Range("E6").Value = "200145" Then
Range("C225").Select
Else
If Range("E6").Value = "200146" Then
Range("C238").Select
Else
If Range("E6").Value = "200147" Then
Range("C251").Select
Else
If Range("E6").Value = "200148" Then
Range("C264").Select
Else
If Range("E6").Value = "200149" Then
Range("C277").Select
Else
If Range("E6").Value = "225129" Then
Range("C290").Select
Else
If Range("E6").Value = "225131" Then
Range("C303").Select
Else
If Range("E6").Value = "225132" Then
Range("C316").Select
Else
If Range("E6").Value = "234394" Then
Range("C329").Select
Else
If Range("E6").Value = "281113" Then
Range("C342").Select
Else
If Range("E6").Value = "281114" Then
Range("C355").Select
Else
If Range("E6").Value = "281115" Then
Range("C368").Select
Else
If Range("E6").Value = "281116" Then
Range("C381").Select
Else
If Range("E6").Value = "281117" Then
Range("C394").Select
Else
If Range("E6").Value = "281118" Then
Range("C407").Select
Else
If Range("E6").Value = "293587" Then
Range("C420").Select
Else
If Range("E6").Value = "323486" Then
Range("C433").Select
Else
If Range("E6").Value = "357867" Then
Range("C446").Select
Else
If Range("E6").Value = "359228" Then
Range("C459").Select
Else
If Range("E6").Value = "364957" Then
Range("C472").Select
Else
If Range("E6").Value = "373653" Then
Range("C485").Select
Else
If Range("E6").Value = "373654" Then
Range("C498").Select
Else
If Range("E6").Value = "373655" Then
Range("C511").Select
Else
If Range("E6").Value = "373656" Then
Range("C524").Select
Else
If Range("E6").Value = "373657" Then
Range("C537").Select
Else
If Range("E6").Value = "374175" Then
Range("C550").Select
Else
If Range("E6").Value = "374183" Then
Range("C563").Select
Else
If Range("E6").Value = "394279" Then
Range("C576").Select
Else
If Range("E6").Value = "402964" Then
Range("C589").Select
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Thanks!!