22/10/2008, 08:55
|
| | | Fecha de Ingreso: septiembre-2008
Mensajes: 27
Antigüedad: 16 años, 3 meses Puntos: 0 | |
| Respuesta: Evento change en un combobox
En el combobox tengo el siguiente codigo.
Private Sub ComboBox4_Change()
Application.ScreenUpdating = False
If Range("a1").Value = "[Revs.]" Then
Range("M15:M200").Select
Selection.NumberFormat = "# ##0.00"
Range("L15:L200").Select
Selection.NumberFormat = "# ### ###"
Else
Range("M15:M200").Select
Selection.NumberFormat = "# ### ###"
Range("L15:L200").Select
Selection.NumberFormat = "# ##0.00"
End If
Application.ScreenUpdating = False
Range("L13").Select
End Sub |