Hola amigos: Aqui les envio un pequeño archivo que manejo en mi empresa, es para controlar los gastos vehiculares (gasolina, mantenimiento, etc.) la clave de ingreso es: 1234 pueden adecuarlo a sus necesidades. Saludos CONTROL DE VEHICULOS.rar

Después de ver este post solucionado por mjrofra, me ha parecido interesante, y esperando que no se moleste, me atrevo a subirlo aquí: Partiendo de la base que queremos cargar un ListBox/ComboBox con los datos de la columna A que tiene una fila de encabezamiento. mjrofra nos propone usar una matriz y una colección, lo bueno de este sistema es que nos vale para ambos controles. Sub CargarÚnicosListboxCombobox() Dim matriz As Variant Dim dato As Variant Dim unicos As New Collection matriz = Range("A2", Range("A" & Rows.Count).End(xlUp)) On Error Resume Next For Each dato In matriz unicos.Add dato, CStr(dato) Next dato On Error GoTo 0 For Each dato…

En este tutorial vemos como crear un control que registre los cambios que se han producido en las celdas de nuestro libro de Excel. Dicho registro se va a completar con la siguiente información: Usuario que ha hecho el cambio en la celda, valor original y valor final de la celda modificada, fecha y hora de la modificación, dirección de la celda modificada y, finalmente, nombre de la hoja a la que pertenece la celda.

Buenos días, Me gustaría compartir con vosotros un Excel que he creado de control de vacaciones. La verdad que me ha costado trabajo hacerlo ya que me estoy metiendo mas a fondo con el tema Excel y este es mi primer trabajo, pero con ayuda de este foro y algún bloc que he consultado, creo que el resultado es bueno y por eso quiero compartirlo con vosotros. El libro tiene varias macros para que puede funcionar correctamente. Acordaros de habilitarlas. El libro esta compuesto por 4 hojas que son: Solicitud, Calendario, Resumen e historialvacaciones. Esta creado en función de como en mi empresa solicitamos las vacaciones ya que tenemos 22 días laborables y luego tenemos …

Hola a todos. He tenido la necesidad de incluir en un listbox información alineada a la derecha y a la izquierda, y me he encontrado con que no hay un comando especial para eso, que con la fuente courier new, se puede, agregando espacios en blanco delante del texto. En vista de que esa fuente es poco vistosa me di a la tarea de probar algo nuevo y es lo que quiero compartirles. Esta forma de alinear funciona con cualquier tipo de fuente. El listbox lo alineas a la derecha, eso te permite tener la información numérica de inmediato con la alineación desada. Para la información que desear alinear a la izquierda simplemente le concatenas espacios a la derecha (100, 1000, lo…

En esta ocasión vamos a extraer la temperatura de un portal de internet, de la siguiente página: openweathermap.org/city/3530597 que muestra la temperatura de los próximos días de la ciudad de México. Para efectuar esta tarea haremos uso del objeto Internet Explorer para poder navegar a dicha página y una vez cargada la misma empezamos a realizar la extracción del texto correspondiente y lo vaciamos en las celdas de nuestro libro. Antes que nada tendremos que agregar la referencia necesaria para trabajar con el navegador de la siguiente forma: Sub Clima() Dim oIE As InternetExplorer Dim sContenido As String Dim lPosicion As Long Dim vContenido As Variant Dim …

Algunos programadores siempre están buscando la manera más óptima de crear código VBA el cual haga uso de los recursos de manera más eficiente (como la memoria, almacenamiento en disco duro) y a su vez se ejecute en el menor tiempo posible (uso de CPU). Lo más habitual es estimar cuanto tiempo le tomara a nuestro script ejecutarse y para ello hacemos una comparativa en el proceso de ejecución del programa, para ello muchos se valen de las dos siguientes técnicas: Uso de la función NOW Uso de la función Timer En la primera ya muchos conocen la función Now la cual devuelve la fecha y hora actuales, la cual se podría usar de la siguiente forma: El resto del ar…

En este vídeo vemos como extraer registros de una Base de Datos Access mediante la sentencia SQL Select, todo desde Excel mediante código VBA. Espero os guste y os sea útil. Saludos.

Buen día para todos Les quiero compartir esta macro que desarrollo. En sistensis un archivo que sirve para registrar pedidos en una base de datos, pero se los comparto por que tal vez alguna macro de las que tiene le sirva a alguien; solo es revisar y cacharrear. Tiene - Búsquedas exactas y carga a textbox y listbox con afterupdate - Cargas de textbox a listbox - Carga de listbox a hoja de calculo - Carga de datos de hoja a textbox y label; carga de textbox y label a hoja - Acumula datos para grabar mucha información - Genera consecutivo por fecha - Suma columnas de listbox - Operaciones matemáticas con afterupdate - Operaciones de conteo y suma de base de dato…

Buenas noches De un tema en el foro "Macros y Programación VBA" :Pendiente - Normalizacion, en el cual solicitaban la separación de texto y números en las columnas respectivas. Les dejo el archivo con su código para su uso si lo ven apropiado Saludos.

Saludos mis estimados compañeros... He de comentarles que durante muchos meses de trabajo he formado un control a la medida, el que he denominado como: Control de Activos Fijos. Resulta que con éste llevo un historial de las compras de mobiliario y equipo, equipo de computación, equipo de telefonía, etc.... llevando a la vez un inventario que se acumula de forma automática (en unidades y en moneda local -quetzal-) así como otras pequeñas funciones que me han sido útiles. ahh y olvidaba algo que me ha ayudado mucho... una tarjeta de control (donde por número de tarjeta se pueden visualizar las operaciones de ingreso y salida de los bienes). Hoy comparto éste archivo como…

Hola: La mayoría de vosotros ya sabeis que un ListBox/ComboBox no admite mas de 10 columnas si se carga manualmente, es decir, con el método .AddItem. Esta limitación no existe si se usa la propiedad RowSource, sin embargo esta propiedad es algo delicada, ya que el rango y el control quedan "linkados", y ninguno de los dos es susceptible de ser modificado. Tambien podriamos usar la propiedad .List() = Rango.Value que no tiene ese inconveniente, pero entonces perdemos la posibilidad de usar la propiedad .ColumHeads para la fila de encabezamiento, en fin todo problemas. Creo que en el aporte he conseguido subsanar todos estos inconvenientes a base de crear una hoja de t…

Hola Este aporte va dirigido para todos, y especialmente para los que alguna vez aportaron en "Ideas y Aportes" y aun mas para los que siempre lo hacen y que nos sorprenden! con algo nuevo, de verdad que este apartado es un baul muy enriquecedor, para todas las areas de Excel, asi que no hay excusas para aprender desde aqui, solo se necesita voluntad y que logicamente te guste, pues al final a quien no lo sirve utilizar Excel? Este aporte es una version similar al turbofiltro, pero enfocado dentro de un userform (formulario), la verdad no es complicado el codigo (ya lo veran) 1- Se puede adaptar a cualquier base de datos 2- Se puede iniciar desde cualquier hoja 3- Se…

Hola a todos Trabajo el la industria gráfica y necesitaba una herramienta rápida para calcular tanto el peso como el costo y los cortes de papel, pero nada de lo que encontraba satisfacía mis necesidades, así que me propuse crear mi propia herramienta, gracias a los datos que puede extraer de este y otros foros pude hacerlo y ahora lo subo tanto para que lo use el que lo necesite como para que otros puedan tomar ideas para sus proyectos, así como lo hice yo. Por supuesto no soy un experto en el manejo de excel ni de VB, por ende todo lo que he hecho es mejorable y no se acerca ni loco al reconstructor de accidentes de verzulsan, sepan disculpar las desprolijidades…

Hola a todos! Hoy quiero compartir con ustedes, un archivo que muestra los "n" mejores... de una tabla, por medio de un formulario, este consiste en que deseamos ver dentro del formulario, segun el numero de "top" que elegimos, mejor vean el adjunto y ojala le sirva a alguien:) Nota: en relaidad es un filtro mejorado (comodo) y adaptado a un formulario Cualqiuer mejora o algo mejor pues aqui esperamos:D Private Sub TextBox1_Change() Dim uf Application.ScreenUpdating = False On Error Resume Next With Sheets("sheet1") Cells.Rows.Hidden = False ListBox1.RowSource = Empty If ActiveSheet.FilterMode Then ActiveSheet.Show…

Hola! Es un aporte muy sencillo pero bastante practico al cargar nuestros COMBOBOX (con meses y años) en nuestros formularios Saludos Obtener meses y años automaticamente_GP.rar

Hola juego rompecabezas con vba, utilizando shapes y algunas apis de windows. es compatible en Win x 32 y Win x 64. Sencillo juego donde mas que nada es mostrar una técnica de como mover shapes con el mouse estando la hoja bloqueada y también como partir una imagen en varias partes. Aclaro para todos estos juegos programados en vba y Excel se debe tener las Macros habilitadas. Rompecabezas.zip

Hola compañeros me interesa hacer una hoja para un control de alquileres de unos locales aqui os mando una copia y ver que tal la veis y si se puede mejorar evidentemente esta a vuestra disposicion GRACIAS libro prueba.xls

hola este es un código utilizando apis de windows, no puede adaptarlo a la versión 64bits motivos técnicos de mi webcam, el código no utiliza ninguna aplicación externa, es un modulo simple sin mayores complicaciones. Saludos. WebCam.zip

Hola a todos, les comparto la nueva versión de mi complemento MXUtilites Ver 1.4 el cual incorpora una interfaz de usuario mas amigable y nuevas herrmientas para la administración y gestion de hojas de un libro. Les comparto el link: https://mexcel.wordpress.com/2015/08/06/mxutilities-ver-1-4/ Saludos!

Una Forma en la que concilio mis Bancos Tanto con el Extracto Bancario y Extracto de la Empresa. Saludos. Contraseña: hugo Editado por administración para subir archivo directamente al foro. Conciliacion Bancaria.zip

Estuve revisando los aportes de este sub foro y me encuentro con una macro muy similar a la que hice en el 2012. Pude comprobar que funciona muy bien; sin embargo tengo mi propia versión. quise subir el archivo zip ... pero me aparece un mensaje que el archivo es demasiado grande; sin embargo el archivito pesa a lo mucho 300 kb.... Editado por administración: Subir archivo directamente al foro. Recopilador de Hojas.zip

Hola, dejo aquí un ejemplo de como crear juegos de cartas ,tanto de la baraja Española como la Inglesa(Poker) . En el documento hay cuatro hojas en donde detallo por separado como crear la carta mediante un objeto Shape, después esta en ustedes programar el resto juego, vale decir esto es solo una herramienta para facilitar la parte gráfica. En la hoja1 esta la baraja de poker, en la hoja2 la baraja Española en la hoja3 y aqui quiero resaltar algo muy interesante un truco de como arrastrar un shape/Imagen con el mouse teniendo la hoja bloqueada y que no aparezca seleccionado. y por ultimo en la hoja4 un ejemplo de como crear una animación de mover la carta como si se …

Buenas con todos. En esta oportunidad les compartire una macro que une las hojas de varios libros en una sola hoja. En la anterior entrega que hice comparti una macro que hacia lo mismo pero solo para los archivos de excel 2007 en adelante con extension (*.xlsx), hice una modificacion y ahora tambien sirve para archivos 97-2003 con extension (*.xls). Luego de descargarlo lo abren ejecutan la macro open files y les aparecera el cuadro de dialogo donde podran seleccionar los archivos de excel a unir. Espero les sea de utilidad Saludos Unir_varios_libros.rar

Buenas noches Genios de Excel, aquí les comparto este archivo por agradecimiento a aquellos que me han ayudado aquí en este foro de Excel, bueno talvez algunos ya los tendrán, pero el caso es que abecés se nos presenta alguna matriz donde necesitamos buscar un código pero resulta que ese código se repite varias veces en una matriz, pero esta función de buscarv con vba nos ayudará a encontrar esos códigos repetidos y nos lo traerá las veces que esta repetido. Bueno para que lo comprendan mejor aquí adjunto el archivo de ejemplo. Buscarv_varios.rar