Macro se llama: Registro. Solicitar a través de un inputBox el ingreso de los registros de la Tabla hasta que el usuario decida no ingresar más registros. Usar estructura While...Wend. El disparador permite Repetir todas las instrucciones hasta que usuario desea no ingresar más datos, hasta que respuesta sea: No → Disparador toma el valor de 0 y sale del ciclo repetitivo While Módulo 1: Sub Registro() disparador = 1 While disparador = 1 [A1048576].End(xlUp).Activate Fila = ActiveCell.Row + 1 Nombre = InputBox("Ingrese el nombre:") País = InputBox("Ingrese el País de origen " & Nombre) Ciudad = InputBox("Ingrese la Ciudad de procedencia " & Nombre) T…

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

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

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

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

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

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…

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…

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

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

Hola estimados amigos de este foro., como somos fans de vba.. subire este archivo para que disfruten de su musika y videos en excel desde un form.. esta es la version 1.0 hire mejorandola.. Pueden ver videos y audios,. ajustar volumen y todo lo demas desde tu lista de reproduccion q tu elijas.. estoy en eso de que sea continua la lsita para escuchar.. Gracias y saludos. REPRODUCTOR.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: 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

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

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

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",…

Sencillo, pero puede ser útil Código_de _Barras.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…

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…

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

Buenas dias, este complemento lo subi hace tiempo, creo que no esta de todas formas lo subo para quien lo pueda necesitar. Yo lo utilizo en Excel 2007 TextoV3R2.rar

Hola compañeros Acompaño un archivo con un ejemplo sencillo de cómo obtener símbolos mediante fórmulas. Un cordial saludo Edité para ampliar un detalle SÍMBOLO.zip

Aunque ya existe el método de seleccionar todas las hojas y dar el comando control+b, les comparto esta forma.. podemos crear un botón en nuestra hoja de calculo para no entrar hasta el código. Sub Macro1() Dim x As String, Hoja As Worksheet, Nombre As String, msg As String Nombre = InputBox("Introduce el nombre o dato a buscar:") For Each Hoja In ThisWorkbook.Worksheets On Error Resume Next If Nombre <> "" Then x = Hoja.Cells.Find(What:=Nombre, _ After:=Hoja.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ Se…