Buenos días Envío una pequeña explicación de como usar los datos personalizados en VBA Un saludo José Carlos Datos personalizados.zip

En este ejemplo creamos una hoja excel que concilia, por importe, movimientos contables, en principio de bancos, pero aplicable a cualquier cuenta.

Copiar un libro sin fórmulas ¡ Ave ! Copiar la macro en un libro nuevo y ejecutar la macro. Sub GuardarComoLibroSinFórmulas() If Not Application.Dialogs([COLOR=#0000ff][B]xlDialogOpen[/B][/COLOR]).Show = False Then For Each hoja In Sheets hoja.Activate hoja.UsedRange.Value = hoja.UsedRange.Value Next Application.Dialogs([B][COLOR=#0000ff]xlDialogSaveAs[/COLOR][/B]).Show End If End Sub [/CODE] Solo para el libro activo, copiar la macro en un módulo y ejecutarla. [CODE]Sub GuardarComoLibroSinFórmulas() For Each hoja In Sheets hoja.Activate hoja.UsedRange.Value = hoja.UsedRange.Valu…

Les dejo una planilla bastante sencilla para llevar un control de valores (cheques) recibidos. En la hoja RESUMEN podrán consultar los movimientos y saldos en un periodo cualquiera. Me gustaria escuchar opiniones y sugerencias para mejorarlo un poco. Saludos Francisco ARQUEO DE CHEQUES.rar

Buenas tardes Como el coste de la energía eléctrica esta por las nubes, envío una pequeña aplicación para calcular el ahorro al cambiar la lámparas convencionales por lámparas led. Solo hay que rellenar todos los campos y observar las cantidades en los textbox Los precios están tomados por la última factura de gas natural fenosa, pero como es sabido casi cambian todos los meses. le agradecería a los maestros revisaran el código ( yo lo fui haciendo tomando datos de otros códigos del foro) y me dijeran donde se puede mejorar Gracias Un saludo José Carlos CALCULO CONSUMO LAMPARAS .zip

Hola: Pues el título lo dice todo. Saludos Subir y bajar elementos en una lista.xls

Hola a todos, No es una maravilla de la programación, pero puede ser útil. He montado un pequeño código que acumula entradas en una variable (entradas=líneas separadas, ítems) y permite crear una lista según se marquen los checkboxes en la hoja. Ideal para pasar lista y obtener una relación de todos los participantes en un evento, o para inventarios, o lo que mejor os vaya, cada uno le dará el uso que más le convenga Un saludo. lista segun checkboxes.xls

Buen día Compañeros del Foro, espero les interese y a la vez compartir este archivo con Ustedes. se trata de un Traductor con Google Translator el cual puede traducir en mas de 60 idiomas .A instancia del navegador se abre con el archivo, tanto en el idioma original y traducido al idioma que haya seleccionado. Aquí está la función que utiliza Google Translator para traducir palabras, frases y oraciones. Cabe decir que se requiere conexión a Internet. El archivo consta de 3 Hojas. Hoja1: consta de palabras en español el cual serán traducidas al ingles por defecto de acuerdo a los parámetros dados. Hoja2: consta de palabras en español el cual se utiliza la f…

Para los que les gusten las fórmulas, adjunto una variante de lo que se suele buscar con los "Filtros de texto" de las tablas en el caso: "Contiene..." que ya sabemos que no distingue entre mayúsculas y minúsculas cuando busca valores de texto. No he encontrado nada similar en el foro, pues este otro tema se basa en macros: Formula que busca un Texto o Numero Me ha venido la idea contestando a este tema: Buscar texto y copiar lo que contenga la celda BuscarTexto_PW1.xls

Aqui el trabajo con la posible solucion a un tema de Sub-totales al cual me tome la libertad de modificar. Espero les sea util. VENTAS y GASTOS 2012.zip

Hola a todo el mundo mundial: En su día prometí mantener actualizado el Índice de este foro, es decir el foro de Ideas y aportes. Y ahora, aunque con un poco de retraso, no nos vamos a enfadar por 6 meses mas o menos, jajaja, aquí está, todo vuestro. Paz y amor. Pd. Al que se crea que esto es un alarde de tecnología punta, se equivoca, copy/paste, copy/paste y mas copy/paste. Me ha costado toda la tarde de este sábado. Suerte que lleva todo el día lloviendo, VERSIÓN OBSOLETA: VER https://www.ayudaexcel.com/foro/ideas-aportes-64/nueva-version-del-indice-este-foro-actualizado-mejorado-30243/#post144262 Ideas y aportes a 10-11-2012.rar

Hace poco estuve trabajando a fondo en un proyecto que calcularía a futuro (3 meses) los días de inventario para varias divisiones, categorías, mg y sku por cliente. Para empezar las bases de datos con los que tendría que hacer los cálculos (inventarios, sell in, sell out) eran bases de datos que superaban los 500 mil registros, tuve que verme en la necesidad de previamente compactar la información de manera manual usando tablas dinámicas, luego supuse que tendría que crear varios resúmenes de datos, ya sea por cliente, categoría, etc… así que pensé pudiera hacerlo en Access (y quizás hubiese sido buena alternativa), desgraciadamente el prototipo tenía que estar listo en …

Hola: Se trata mas de una curiosidad que de una utilidad en si. Lo he adaptado a partir de un topic de Pearson Software Consulting Pero pienso que vale la pena tener en cuenta que existe por si alguna vez podemos emplearlo. Se trata de utilizar la combinación de .Resize y .Value en un rango para copiar los valores en otro rango, sea de la hoja activa o de cualquier otra hoja del mismo u otro libro. Saludos a todos Copiar con Resize y Value.xls Copiar con Resize y Value.xls

Hola bichos y foreros en general: El enunciado lo dice todo. Se trata de una serie de macros que copian una hoja/rango de una hoja a varias. Para probar, aseguraros de tener 4 hojas con los nombres "Hoja1", "Hoja2", "Hoja3", "Hoja4" Poner datos con distintos formatos en la "Hoja1" Sub HojaCopiarTodo()Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4") Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Cells, xlFillWithAll End Sub [/CODE] [CODE]Sub HojaCopiarContenido() Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4") Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Cells, xlFillWithContents End Sub[/CODE] [CODE]Sub HojaCopiarFormatos() Hojas = Array("Hoja1",…

Hola: Aporte tan estúpido como inútil. Se trata de una flecha que va siguiendo la dirección del desplazamiento de una celda a otra, indica la celda precedente y la copia en el portapapeles. Solo para viciosos y adictos. Saludos Dirección.xls

Buenas noches Estimados señores Les dejo un pequeño aporte para buscar datos de columna(1) en la Hoja1. Espero les sea útil. Mis respetos. Buscar Find.zip

Buen dia amigos del Foro, les proporciono un miniproyecto basado en la idea k plantearon en este Foro, sobre control de personal Turnos :Mañana Tarde y Noche, la finalidad de este proyecto es el reporte mediante tramos semanales e individuales por turnos. Ademas de las restircciones y las ventanas consultas para dicho fin, espero k el tiempo k invertir en elaborarlo sea de ayuda en conocimiento para los presentes seguidores del Foro. Proyecto Turnos.rar

Buenas tardes, continuando con el post https://www.ayudaexcel.com/foro/threads/reproducir-videos-y-oir-musika-en-userform.38372/ Subo archivo mejorado,. no es mas que un formularios mas mejorado visualmente,. agregandoles los controles de WMP. a los botones que nos proporciona el BVA.. le hiba a colocar imagenes en movimiento (.gifs).. pero tenia que direccionar al disco duro C: y ustedes al igual pegar la carpeta en el C: para poder visualizar las imagenes en movimiento.., ya que se ocupa el control WebBrowser. Tambien talvez mas adelante... dejare el reproductor,. sin el video y con un boton de que de la opcon de ver el video o no. Espero les guste.. MMM. talvez l…

Os traigo todas las commandbars y sus ids para poder implementarlo en nuestras macros cuando sea necesario. Un Saludo FernandoML Pruebas.rar

Señores adjunto algo que hice en mis ratos de ocio, espero le sirva a alguien. Números a letras.xls

Buen dia Espero que este pequeño aporte les sea util. Saludos. Sub-Total(Ayuda).zip

Sencillo, pero puede ser útil Código_de _Barras.rar

En este ejemplo vemos como añadir un submenú al menú que aparece cuando hacemos click, sobre una celda, con el botón secundario del ratón.

Enviar una hoja por Email Public Sub EnviarHojaPorCorreoElectrónico() Dim strNombre As String ActiveSheet.Copy With ActiveWorkbook .SaveAs "C:\ Admon y Economía con Integrales.xls" .SendMail Recipients:="ejemplo@correo.com", Subject:="Envío libro de Excel" strNombre = .FullName .Close End With Kill strNombre End Sub 'En .Save AS “ cambiar la ruta donde se encuentra el archivo con su nombre 'En SendMail Recipients: = cambiar el Email ejemplo@correo.com 'Aparecerá un aviso de Microsoft Outlook → Permitir 'y se remite al Email indicado Editado por moderación para insertar etiquetas al código y eliminar direcciones de correo... Agradezco aclarar las reglas. Remito a…

. Gracias a [uSER=143023]@Riddle[/uSER] en este link: https://www.ayudaexcel.com/foro/threads/rellenar-array-desde-un-rango-y-filtrar.39449/, me he enterado de como traspasar un array de una dimensión a un rango o viceversa. Hasta ahora creía que solo se podía, utilizando un array de dos dimensiones. Os dejo un ejemplo, se trata de una función para filtrar una columna sobre otra: La función tiene 3 parámetros, todos ellos opcionales: Texto de búsqueda, string, se asume=Empty Columna Origen, string, se asume="A" Columna Destino, string, se asume="B" La función obtiene como resultado, el número de filas filtradas. Paz y amor . FiltrarColumna.xls