Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
por yamid triana » 16 Mar 2006 13:13
buenos dias estoy adjuntando codigo que muy amablemente me suministraron para calcular descuento en la misma celda pero he intentado cambiarlopara que solo funcione en una columna especifica ya que debo trabajarlo con descuento diferente en otras columnas
muchas gracias
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
-
yamid triana
- Miembro Frecuente

-
- Registrado: 07 Mar 2006 10:02
- Ubicación: cali
por Tavo77 » 16 Mar 2006 13:20
Buenos días, cambia el código por el siguiente:
- Código: Seleccionar todo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim valor As Double
Application.EnableEvents = False
valor = Target.Value
Select Case Target.Column
Case 1 'en la columna A
Target.Value = valor * 0.82
Case 2 'en la columna B
Target.Value = valor * 0.72
Case 3 'en la columna C
Target.Value = valor * 0.62
'Case 4 .... Case n para las demás columnas
Case Else 'en cualquier otra columna no especificada anteriormente
Target.Value = valor
End Select
Application.EnableEvents = True
End Sub
-

Tavo77
- Miembro Frecuente

-
- Registrado: 25 Ago 2005 20:43
- Ubicación: Costa Rica
Volver a Macros
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados