Macros y programación VBA
Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?
8684 temas en este foro
-
Muchas gracias a las personas que me Han colaborado en anteriores problemas que he tenido. en esta oportunidad quisiera pedirles su ayuda ya que no logro hacer que cada ves que seleccione una zona en el filtro que esta en la columna A me Aparezcan solamente los 20 mejores promedios que están en la columna B de ante mano muchas gracias por su colaboración Adjunto archivo de ayuda ejemplo.xls
-
0
Reacciones de usuarios
- 0 respuestas
- 602 visitas
-
-
Esta permite que el form tome el tamaño según el monitor (pantalla) y resolución de este. Private Sub UserForm_Initialize() With Me .Height = Application.Height .Width = Application.Width End With 'Para controles en el form End Sub[/CODE] Para que los controles acompañen el tamaño (en proporción) del form, ¿Cuál seria en código? El form es este caso tiene TextBox, ComboBox, Label y CommandBottons
-
0
Reacciones de usuarios
- 2 respuestas
- 857 visitas
-
-
Buenos dias, Estoy tratando de crear una macro que me produzca un indice que me linkee ubicaciones diferentes en una misma hoja. No logro que funcione y en internet encuentro ejemplos pero solo linkeando una misma ubicacion en diferentes hojas. En base a un ejemplo que crea un indice de diferentes hojas he estado tratando de realizar la macro pero no lo puedo lograr. El codigo es el siguiente: Sub Crear_Indice_Hojas() Fila = 1 For Each Hoja In Worksheets ' Agregar vinculo a cada hoja del mes If Hoja.Name <> "Indice" Then With Worksheets("Indice") .Hyperlinks.Add Anchor:=.Cells(Fila, 1), Address:="", _ SubAddress:=H…
-
0
Reacciones de usuarios
- 0 respuestas
- 699 visitas
-
-
Buen día, amigos espero puedan ayudarme, estuve buscando modelos para poder ejecutar mi pequeño proyecto, pero me perdí en el intento de interpretar códigos, necesito ayuda, saben mi problema es el siguiente: tengo un libro llamado rendiciones, consta de tres hojas bd, consulta y rendición, la hoja rendición es la principal, deseo que mediante el comando consultar pueda derivarse a la hoja consulta y al ingresar un dato en la celda pueda filtrarse información de la base de datos, DESDE YA AGRADESCO INFINITAMENTE SU APOYO. RENDICIONES.xlsx
-
0
Reacciones de usuarios
- 3 respuestas
- 936 visitas
-
-
Saludos Estoy trabajando en un proyecto de automatizar una página WEB en el campo INPUT (anexo imagen) logro introducir los datos en el INPUT por medio de la siguiente instrucción HTMLDoc.all.RFC.Value = "FIVG760415889" Lo que deseo es que este INPUT por medio de VBA excel reciba TAB para pasar al siguiente INPUT ¿Cómo puedo lograr esto? Explorador: IE explorer 11 con JAVA 8u101
-
0
Reacciones de usuarios
- 2 respuestas
- 1.3k visitas
-
-
buenos dias amigos de excel tengo el siguiente problema tengo un formulario que al darle click a un boton me busca las coincidencias numericas de un numero de 4 cifras de acuerdo al codigo y me las marca con color verde en una hoja pero quisiera llevarlo a un nivel mas alla quisiera que el codigo no se ejecute en la hoja donde esta el formulario pero que si en la hoja siguiente Sub coinciden() Dim n As Range Dim lookup 'se solicita ingreso del nro de 4 dígitos lookup = Format(Val(InputBox("ingrese NUMERO de referencia", "BUSQUEDA DE COINCIDENCIAS")), "0000") If Len(lookup) <> 4 Then MsgBox "Número no válido.", , "ERROR" …
-
0
Reacciones de usuarios
- 2 respuestas
- 747 visitas
-
-
Buenas noches, hace unos días pedí una macro y gentilmente Gerson la hizo y funcionó muy bien en el ejemplo, el tema es que cuando lo quiero aplicar en mi archivo no funciona, tira el error "Se ha producido el error '1004' en tiempo de ejecución: error definido por la aplicación o el objeto" Pintando de amarillo la línea que pongo en negrita: Sub ARREGLAR() With Hoja2 'BD BOL VENTAS f = Hoja1.[E16] .Range(.Cells(f, "A"), .Cells(f, "K")) = Hoja1.[BF4:BP4].Value End With End Sub El problema será porque tengo 19 hojas en el libro y en el ejemplo hay solo 2? o por los nombres de las hojas?, no se. Probé agregarles más hojas al ejemplo …
-
0
Reacciones de usuarios
- 6 respuestas
- 1.4k visitas
-
-
Hola. Tengo un problema con las macros que tenía creadas en Office 2013 al ejecutarlas en Office 365. El office 365, a parte de ir lentísimo en comparación con el Office 2013. Resultan que dan error, pero no siempre en el mismo punto, unas veces nada más empezar, otras veces casi al terminar, otras veces es capaz de terminarlas. Casi siempre son errores al crear tablas dinámicas. He mejorado un poco al incluir en la macro al principio el siguiente codigo: screenUpdateStatus = Application.ScreenUpdating statusBarStatus = Application.DisplayStatusBar calcStatus = Application.Calculation eventsStatus = Application.EnableEvents dis…
-
0
Reacciones de usuarios
- 8 respuestas
- 5.5k visitas
-
-
como puedo agregarle al codigo para que realice la busqueda de derecha a izquierda y igualmente en diagonal hacia la izquierda sopa de letras.xlsm
-
0
Reacciones de usuarios
- 3 respuestas
- 1k visitas
-
-
Con Botón: BUSCAR CLIENTE al dar doble Clic, se registran en Hoja PEDIDOS Con Botón: BUSCAR ARTICULO al dar doble Clic, se registran en Hoja PEDIDOS En Hoja: PEDIDOS al dar Clic en Botón “Guardar e Imprimir “ se Borran las Fórmulas de Columnas B,D,E,G En Hoja Registro las 3 primeras Columnas: FECHA, CONSECUTIVO y CLIENTE se registran mayor número de veces Favor colaborarme PEDIDOS.rar
-
0
Reacciones de usuarios
- 0 respuestas
- 1k visitas
-
-
Buenos días a todos; -Tengo creada una macro que hace una consulta Sql sobre una tabla Access con un Where donde le pongo los parámetros de fecha. Ahora estoy intentado cambiar los parámetros de fecha (DD/MM/AAAA) por solo año (AAAA). Lo que he añadido a mayores al formulario son dos SpinButton que insertan los años en cuestión. Private Sub btn_Buscar_Click(): On Error Resume Next Dim vConsulta, where As String Dim Fecha1, Fecha2 As Date '<<<Dim Año As Variant Dim i As Integer Conectar Application.ScreenUpdating = False Application.DisplayAlerts = False vConsulta = "sql_Resumen" Fecha1 = Format(Me.TextBox100, "DD/MM/YYYY") '<<<<&l…
-
0
Reacciones de usuarios
- 2 respuestas
- 2k visitas
-
-
Hola a todos; He estado viendo si hay alguna macro que pueda convertir un archivo a pdf a Excel. He encontrado algo pero necesita tener instalada una librería de adobe acrobat para que funcione. No se si conocéis alguna otra forma. Saludos. Adjunto la macro MPdf-Excel.xlsm
-
0
Reacciones de usuarios
- 4 respuestas
- 7.9k visitas
- 2 seguidores
-
-
Estoy en búsqueda de una hoja de excel que me permita llevar la contabilidad de préstamos sin tener que gastar en un software para prestamistas. Lo que busco es poder llevar las operaciones de un pequeño negocio de financiamiento en el cual estoy incursando sin tener que gastar dinero mientras aprendo bien el negocio. Me gustaría encontrar un template de Excel que esté bien completo por lo que me permitiría hacer cálculos de préstamos, procesar cobros de cuotas, moras, y costos, y organizar los préstamos en base a carteras y clase de préstamos. Dentro de las funciones que busco este template debe incluir: Múltiple frecuencia de pagos y métodos de cálculos cuando se …
-
0
Reacciones de usuarios
- 2 respuestas
- 509 visitas
- 1 seguidor
-
-
Hola buenas tardes: Necesito ingresar una formula en la columna C solo si una celda celda anterior tiene valor Columna B. Mi formula es (=SI.ERROR(EXTRAE(B3,ENCONTRAR("*",SUSTITUIR(B3,"\","*",LARGO(B3)-LARGO(SUSTITUIR(B3,"\",""))))+1,LARGO(B3)),"") Espero me puedan ayudar. Gracias Insertar formula si.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 511 visitas
- 1 seguidor
-
-
Estimados amigos, espero me peudan ayudar tengo un problema al parecer de compatibilidad, en mi Lapto en l cual he programado no me sale error, pero al correr la macro en otra PC me salen los siguiente errores y no puedo ejecutar la macro Hay alguna forma de poder resolverlo? Error01_ este formata lo utiilzo para que en la caja de texto aparezca el formato moneda Error02_ este formato lo utilizo para que me aparezca el año concatenado con un numero espero me puedan ayuda por favor se les agradece
-
0
Reacciones de usuarios
- 2 respuestas
- 675 visitas
-
-
Buenas noches estimados espero estén bien Dentro del Formulario VTL (frmvtl) estan los TextBox 16, 17, 18, 19, 20, 21, 22 los cuales necesito que cuando contengan un valor cualquiera la macro los tome como 1 (TextBox<>””=1) y cuando los TextBox estén vacíos la macro los tome como 0 (TextBox=””=0) seria como usar la Función Contar de Excel, siendo así y conforme al funcionamiento de la Macro Calculo en el TextBox23 en la medida que se van introduciendo los datos el conteo o suma debe reflejarse de manera automática y simultánea en los Textbox 25, 27, 28, 29, de la siguiente manera: TextBox25 = TextBox16 +TextBox17+TextBox18+TextBox19+TextBox20+TextBox21+Tex…
-
0
Reacciones de usuarios
- 17 respuestas
- 2.1k visitas
- 2 seguidores
-
-
Hola a Todos, necesito buscar un nombre dentro de una base de datos. y para eso kiero poner un inputbox, usando la info del inputbox , kiero buscar, ej: nombre direccion edad Pablo Reyes Mexico 26 bueno. poner el input box donde yo ingrese el nombre y en otra hoja, ,me ponga los datos de Pablo ryes,,,--- si me expliko?!?! de antemano les agradezco la a yuda ke me puedan dar
-
0
Reacciones de usuarios
- 0 respuestas
- 1.3k visitas
-
-
Comprobar números en un textbox mediante macro Hola a todos, Mi pregunta es la siguiente. ¿Cómo puede verificarse que en un textbox sólo haya números, de cualquier tipo: enteros, decimales, etc? Por ejemplo: -Bien: 100; -50; 50,5 -Mal: "100 "; --50; 50.5; H Cuando pongo esto para comprobar si en el textbox2 hay un número o no: If [U][B]IsNumeric(CDec(textbox2))[/B][/U] = False Then Msgbox "Error"[/CODE] Me da error de VB (el de programa, de Finalizar o Depurar, el "no coinciden los tipos") cuando por ejemplo pongo una letra (simulando "un error al introducir un número"), y no puedo llegar al Then. Pongo anidado el CDec porque si pongo una coma "," para escribi…
-
0
Reacciones de usuarios
- 2 respuestas
- 1.8k visitas
-
-
Buenas amigos del foro Tengo la siguiente macro que me funciona bien pero no me guarda o imprime el pdf con el nombre de la celda ai1, me podrían ayudar. Ademas me gustaría indicarle donde guardarlo, pero ya para mi eso es muy profundo. Les agradezco su valiosa ayuda [/code]Sub SavePDF() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="Nitro PDF Creator" Dim filename As String filename = Range("ai1").Value End Sub[/code]
-
0
Reacciones de usuarios
- 6 respuestas
- 5.7k visitas
-
-
Buenas a todos! Necesitaría hacer lo sisguiente. Tengo un libro TOTAL con una pestaña que se llama RESUMEN y es la suma de las pestañas RESUMEN de otros 5 libros que tengo. Como podría automatizar el cálculo con una macro?. El formato de la hoja de resumen es igual en todas es decir: la celda A1 del libro TOTAL = suma de celda A1 de mis cinco libros. Alguna sugerencia? Muchas gracias!
-
0
Reacciones de usuarios
- 1 respuesta
- 1.9k visitas
-
-
Saludos mis estimado compañeros... Les comento que estoy trabajando en un proyecto, y dentro de las características del mismo, es necesario llevar un control sobre el número de día que hay de una fecha a otra (sin tomar en cuentas los fines de semana), pues en éste asunto todo me ha ido bien. La información es mostrada en un formulario. La información está asociada a un número de registro y efectivamente el calculo de los dias entre fechas si ocurre (dicho cálculo se muestra en una etiqueta llamada "LB_R").... dónde necesito que me orienten (porque no doy como) es: que al evaluarse el resultado de la etiqueta y si éste es mayor o igual a 90 en otra etiqueta me muestre l…
-
0
Reacciones de usuarios
- 4 respuestas
- 1.2k visitas
-
-
Buenas tardes, he llegado aqui por buscar info en la web. Tengo el siguiente problema, ya he probado varias cosas y no le encuentro la vuelta. Tengo un archivo de excel 2007 con dos hojas, en una una tabla con 3 columnas: codigo,descripcion y precio; en la otra una planilla con esos 3 campos mas cantidad y total. Lo que necesito es que cuando en la planilla ingrese el codigo y le de Enter, me coloque en forma automatica la descripcion y el precio, asi solo tengo que ingresar la cantidad. He probado con la funcion =buscarv, me funciono, pero si la copio para todas las filas, me aparece N/A en las filas que no coloco ningun codigo, entonces no puedo sumar la columna de …
-
0
Reacciones de usuarios
- 4 respuestas
- 845 visitas
-
-
Muy buenos Días. Tengo que crear una macro la cual me alerte por medio de un correo cuando el inventario llegue a sus puntos mínimos, son alrededor de mas de 7000 artículos y pues cada articulo tiene su mínimo no todos los mínimos son iguales. No tengo muchas bases en el VBA de excel solo lo mas básico. Lo que busco mas específicamente es que cuando se actualicen las existencias de los artículos, la macro automáticamente me envíe un correo con todos los artículos que estén por debajo del mínimo. Les agradecería mucho su ayuda. - - - - - Mensaje combinado - - - - - En el archivo estan como tengo acomodados los datos - - - - - Mensaje combinado - - - - - El correo e…
-
Que tal, he estado buscando en muchos foros pero no he logrado dar con lo que necesito nadamas sale el de convertir fecha en numeros. Lo que necesito es pasar los numeros de las horas y los minutos.. por ejemplo 02.40 = dos horas con cuarenta minutos Como es el codigo si alguien me puede ayudar.. Se los agradezco mucho
-
0
Reacciones de usuarios
- 10 respuestas
- 3k visitas
-
-
Buenas a todos amigos, De nuevo por aquí y como siempre para dar dolores de cabeza jejeje. Os cuento el asunto. Estoy intentando realizar una macro que me cree una conexión con datos externos web para así importar unas tablas, hasta ahí no hay muchos problemas. La problemática es la siguiente, necesito pasarle a la web de donde obtengo los datos una fecha, para que se modifique un control de fecha que hay en la dirección web y así poder obtener los datos de las tablas correspondientes a esa fecha. Además, por si no fuera poco, he de conseguir también de algún modo que seleccione cierto valor de un control de lista desplegable de dicha página. Por ejemplo, si deseo obt…
-
0
Reacciones de usuarios
- 1 respuesta
- 2k visitas
-
Información básica de protección de datos
- Responsable: Sergio Andrés Celemín
- Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
- Legitimación: Consentimiento del interesado.
- Destinatarios : Hetzner Online GmbH.
- Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
- Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email sergio@ayudaexcel.com
Información adicional: Encontrarás más información en la política de privacidad.