Excel - Macro para Obtener Multiplo Superior

   
Vista:

Macro para Obtener Multiplo Superior

Publicado por Alex (1 intervención) el 22/01/2010 19:36:22
Muy Buenos dias

Quisiera su apoyo para realizar la siguiente macro, la situacion es la siguiente:

Tengo las siguientes dos celdas:
La A1 en donde tengo un valor fijo, por ejemplo 22
y la A2 en donde deseo ingresar un valor y que al momento de darle enter o de cambiarme con las flechas a cualquier otra celda me ponga el Multiplo Superior de la celda A1. Por ejemplo si tecleo 10 en la celda A2 este debera ponerme 22 si tecleo 23 este debera ponerme 44, etc.

La siguiente macro si me funciona, pero el resultado me la pone en la celda A3,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A2").Value > 0 Then
Range("A3").Formula = "=CEILING(A2,A1)"
End If
End Sub

Pero al sustituir la celda A3, por A2, la macro no funciona.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A2").Value > 0 Then
Range("A2").Formula = "=CEILING(A2,A1)"
End If
End Sub

Cabe resaltar que en otra macro que hice si pude hacer que el valor de una celda cambie al momento de cambiarme de la misma celda, este es el ejemplo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("B1").Value
Case 1 To 10
Range("B1") = 5
Case 11 To 20
Range("B1") = 15
Case 21 To 30
Range("B1") = 25
End Select
End Sub

Lo que hace esta macro es que al capturar un numero en la celda B1 me la muestra un valor x, dependiendo del rango del numero capturado, esto me lo hace inmediatamente al finalizar de ingresar el valor y cambiarme de celda.

De antemano les agradezco la ayuda

Alejandro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder