fejoal

Estaa es una secuencia de instrucciones para operar con Outlook. Obviamente deberás adaptar el nombre de los mailitems a los que necesites: Sub Send_Msg() Dim objOL As New Outlook.Application Dim objMail As MailItem Set objOL = New...

Bienvenido, entonces, al foro... Tu pregunta admite dos respuestas: La más simple es usar un condicional, de la siguiente manera: =SI(A1=3,SUMA(B7:E7),SUMA(T12:Z12)) Donde, si A1 es 3, suma el rango B7:E7, sino suma otro rango dado. [Considera si...

Podrás resolver ambas inquietudes cambiando la Configuración Regional, pero esto afectará a TODAS tus aplicaciones de MS Office (MS Excel, MS Word, MS Access, etc). Para cambiarla, haz click en Inicio (Botón en el ángulo inferior izquierdo de tu...

EN principio parecería que no porque necesitas pasar por varias celdas y variables (un Select case no serviría). Pero tal vez puedas adaptar esta rutina que ensayé Ensayé otra rutina pero me encuentro con el problema de variables que parecen haber...

Supongamos que tienes un módulo con una macro llamada "Procedim1" Desde MS Excel, deberás activar el editor de Visual Basic (Alt+F11) A la izquierda de la pantalla, busca la carpeta ThisWorkbook (o "EsteLibro" en otras versiones). De los dos menués...

En realidad, no tenía ningún código que lo hiciera, pero ahora sí. Acabo de desarrollar esto: Sub MiAutoSuma() 'Busca arriba If Not IsEmpty(ActiveCell.Offset(-1)) Then If Not IsEmpty(ActiveCell.Offset(-2)) Then RangSuma = Range(ActiveCell.Offset(-1),...

OK Está más claro ahora. En realidad, más que variar el eje POR, deberá variar toda la fuente de datos (X e Y) Para ello, la macro que sigue más abajo hace ese trabajo en función del valor de la celda A1 como pedías en la pregunta anterior....

Dado que tus ranfgos de pegado pueden ser variables, prefiero dejar la selección como viene del copiado previos (a mano o con tu macro) y hacer primero un pegado de valores normal cargar el divisor en una celda libre, pegar dividiendo y borrar la...

Si, claro, existe. La siguiente función te devuelve el nombre de la hoja, el nombre del archivo y la carpeta donde está: =CELDA("Filename") por ejemplo: C:\FeJoAl\Z_VARIOS\[NANO.xls]lunes Bastará aislar la última parte de su resultado para que quede...

Sí, claro, hay una forma. Aquí será útil la función ESNOD() que permite identificar el error #N/A cuando BUSCARV no encuentra un dato. Esta fórmula condicional hae lo que solicitas: =SI(ESNOD(BUSCARV(B4,$G$8:$N$62,4,0)),...