Que tal, como van? espero que hayan terminado las prácticas de funciones y nada de que no tienen tiempo, es por su bien.

Les dejo para esta semana algo más sencillo, una práctica de fórmulas el cual pueden descargarla y desarrollarla.

Práctica de Fórmulas

Un abrazo para Uds. y a seguir practicando….

Hola, aquí te dejo un archivo conteniendo varios ejercicios de funciones variadas el cual deberás resolver y puedas medirte como vas con Excel.

Práctica de Funciones

Por favor INTENTA RESOLVERLO sin ayuda de libros, amigos, F1 ni nada parecido.

Cuando termines de resolverlo me dejas tus comentarios por favor.

Gracias.

Una explicación sencilla, prestar atención:

Para dejar comentarios haga clic en el título del POST

Observe los valores a partir de la celda C10 hasta C19.

Si un valor está entre 0 y 199.99 (primer rango,vea C2-E2) debe calcularse la bonificación con el 0%

Si un valor está entre 200 y 299.99 (segundo rango,vea C3-E3) debe calcularse la bonificación con el 2%

Y así sucesivamente….

Ahora en la celda B10 escribimos la fórmula para calcular las bonificaciones de la cantidades según el rango donde se encuentren.

La explicamos:

La función Y( ) permite combinar varias pruebas lógicas en este caso que corresponden a verificar si el valor está comprendido en el rango. Y(C10>=$C$2,C10<=$D$2). Esta función se encuentra dentro de la función SI( ) que permite realizar el cálculo respectivo según el resultado (VERDADERO,FALSO). Entonces de ser VERDADERO calcula la bonificación ($E$2*C10) del valor evaluado, que en este caso es 150 de la celda A10. Caso contrario (FALSO) no calcula nada y pone Cero.

Hasta aquí hemos evaluado solo para el primer rango, ahora falta evaluar el resto de rangos. Dado que los rangos son excluyentes, es decir, que un valor puede estar SÓLO EN UN RANGO, nos atrevemos a sumar los diversos resultados de las funciones SI( ). Observe la fórmula remarcada en el cuadro verde.

La lógica es:

Calculo la bonificación con su respectivo porcentaje para el PRIMER RANGO, caso contrario, no calculo nada y pongo Cero.

Luego le sumo la bonificación para el SEGUNDO RANGO y así sucesivamente. PERO como son excluyente en realidad calculará solo para uno de ellos y el resto serán Cero.

Trabajemos con el valor de la celda C11 (220) y nos preguntamos:

El 220 está en el primer rango? NO, entonces Cero.

MAS, el 220 está en el segundo rango? SI, entonces calculamos 220*2%=4.4

MAS el 220 está en el tercer rango? NO, entonces Cero.

MAS el 220 está en el cuarto rango? NO, entonces Cero.

MAS el 220 está en el quinto rango? NO, entonces Cero.

RESULTADO: 0 + 4.4 + 0 + 0 + 0  =  4.4

Ahora esta fórmula se copia para las demás celdas, con sus respectivas celdas absolutas ($C$2…)

Gracias y espero haber sido claro.

Lo que hace la siguiente macro es convertir el texto de las celdas, la primera en mayúsculas y el resto en minúsculas (Título)

Sub titulo()
‘El código de esta macro se puede simplicar mucho mas, pero por
‘aspectos académicos se detalla a continuación….
‘*************
‘Definición del rango seleccionado
Dim mirango As Range
Dim elvalor, inicial, resto, MayInicial, MinResto As String
‘ Lee todo el rango
For Each mirango In Selection
    elvalor = mirango.Value ‘obtiene el valor de la celda
    inicial = Mid(elvalor, 1, 1) ‘obtiene la primera letra
    resto = Mid(elvalor, 2) ‘obtiene el resto del texto
    MayInicial = StrConv(inicial, vbUpperCase) ‘ convierte solo la primera letra a mayúsculas ’ 
    MinResto = StrConv(resto, vbLowerCase) ‘convierte el resto a minúsculas
    mirango.Value = MayInicial + MinResto ‘ combina ambas partes.
Next mirango

End Sub

(Haga clic en el título del POST para dejar comentarios)

En este ejemplo te muestro como tu puedes hacer para vincular, enlazar un archivo de Excel con el Power Point. De igual forma podrías realizarlo con Word y Excel. Atender y a practicarlo.

Como estan, un saludo…

Muchas veces en nuestro trabajo al digitar listados lo hacemos con PURAS MAYUSCULAS y luego nos salen diciendo…. “MEJOR CON MINÚSCULAS…..PLOP…” (Claro, para ti es fácil decirlo por que no digitaste los 450 nombres de clientes)………

Aquí entonces una probable solución; necesitarán el siguiente código:

sub mayusc()
‘Definición del rango seleccionado
Dim mirango as Range
‘A cada celda del rango seleccionado la convertimos a mayúsculas
For Each mirango In Selection
mirango.value=strconv(mirango.value,vbUpperCase)
Next mirango
end sub
sub minusc()
‘Definición del rango seleccionado
Dim mirango as Range
‘A cada celda del rango seleccionado la convertimos a minúsculas
For Each mirango In Selection
mirango.value=strconv(mirango.value,vbLowerCase)
Next mirango
end sub

NOTA: Al hacer CTRL+C en el código y pegarlo en su módulo de VisualBasic para Excel por favor  verificar que los comentarios (los que empiezan con el apóstrofe) automáticamente estén en color verde. De no ser así, borren el apóstrofe y vuélvanlo a escribir Uds.

Muy bien, ahora observen el video y listo…..

Preste mucha atención a su diseño y construcción….

Hola mis amigos en este video les explico al detalle parte de como crear una macro desde su inicio. A disfrutarlo…..

De manera sencilla descubrirá como escribir fórmulas entre las hojas de un mismo libro y que se encuentren correctamente relacionas y se actualicen automáticamente.