Macro en Excel 2007
Buenas tardes, estoy tratando de hacer
una formula con condiciones pero desafortunadamente esta nada mas
permite 7 y yo requiero de 19-20 hay alguna manera de poder desarrollar
una macro con esta formula en especifico. Agrego formula
=SI(Y(A2>=51,A2<=100),"1",SI(Y(A2>=101,A2<=150),"2",SI(Y(A2>=151,A2<=200),"3",SI(Y(A2>=201,A2<=250),"4",SI(Y(A2>=251,A2<=300),"5",SI(Y(A2>=301,A2<=350),"6",
SI(Y(A2>=351,A2<=400),"7",SI(Y(A2>=401,A2<=450),"8",SI(Y(A2>=451,A2<=500),"9",
SI(Y(A2>=501,A2<=550),"10", SI(Y(A2>=551,A2<=600),"11",
SI(Y(A2>=601,A2<=650),"12", SI(Y(A2>=651,A2<=700),"13",
SI(Y(A2>=701,A2<=750),"14", SI(Y(A2>=751,A2<=800),"15",
SI(Y(A2>=801,A2<=850),"16", SI(Y(A2>=851,A2<=900),"17",
SI(Y(A2>=901,A2<=950),"18", SI(Y(A2>=951,A2<=1000),"19"))))))))))))))))))
Muchas Gracias
1 respuesta
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: formula
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub formula()
'por.dam
destino = "B2"
Select Case Range("A2")
Case 51 To 100
Range(destino) = 1
Case 101 To 150
Range(destino) = 2
Case 151 To 200
Range(destino) = 3
Case 201 To 250
Range(destino) = 4
End Select
End SubIndicaciones:
Puedes completar la macro hasta el 19 ó 20, según los que necesites
Cambia en al macro en esta línea, la celda destino B2 por la celda en donde quiereas el resultado
destino = "B2"
Si quieres el resultado en automático, Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_Change(ByVal Target As Range)
'por.dam
If Not Intersect(Target, Range("A2")) Is Nothing Then
destino = "B2"
Select Case Range("A2")
Case 51 To 100
Range(destino) = 1
Case 101 To 150
Range(destino) = 2
Case 151 To 200
Range(destino) = 3
Case 201 To 250
Range(destino) = 4
End Select
End If
End SubDe igual forma en la macro anterior tienes que poner la celda destino y terminarla.
Prueba y me comentas, cualquier duda avísame y lo aclaramos.
Saludos. Dam
Si es lo que necesitas.
