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?
8680 temas en este foro
-
Buenas tardes queridos genios, hoy les pido su colaboracion para resolver lo siguiente tengo un código que toma una foto a un rango de la hoja y me lo sube a un control imagen de un formulario, y esto lo hago por un botón de comando. en la hoja 1 tengo cuatro rangos con un nombre cada uno. lo que quiero es utilizar un combobox que muestre los nombres de los rangos y los asuma en la macro, y a la medida que voy seleccionando me suba la foto del rango al control imagen.. Anexo archivo. Les agradezco su colaboración. pruebas rango-a-imagen.zip
-
0
Reacciones de usuarios
- 2 respuestas
- 603 visitas
-
-
Buenas noches, acabo de terminar de hacer un formulario que me permite agregar y modificar los productos pero cuando le doy clic en el botón que me permite agregar dichos artículos me lanza el siguiente error y si presiono depurar o finalizar el Excel me deja de funcionar y se cierra. Este es el código del botón. Espero me puedan ayudar ,muchas gracias de antemano. PROYECTO.xlsm
-
0
Reacciones de usuarios
- 4 respuestas
- 603 visitas
- 1 seguidor
-
-
Buenos días amigos de Ayuda Excel, La siguiente macro me da el error 91 en tiempo de ejecución, Variable de objeto o bloque With no establecido. Me resalta en amarillo la fila que está aquí en negrita y letra grande Sub EnviarDatosCostosProductosNacionalesAPreciosProductosYServiciosA() Application.ScreenUpdating = False Dim ult, ult1 As Long Dim rng As Range ult2 = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A" & Rows.Count).End(xlUp).Row ult3 = Sheets("COSTOS PRODUCTOS NACIONALES").Range("B" & Rows.Count).End(xlUp).Row ult = Sheets("PRECIOS PRODUCTOS Y SERVICIOS").Range("A" & Rows.Count).End(xlUp).Row + 1 ult1 = Sheets("…
-
1
Reacciones de usuarios
- 2 respuestas
- 603 visitas
- 1 seguidor
-
-
buenas amigos. aca otra de mis inquietudes, como poner clave de inicio a un userform osea registrarle usuarios, i como porner clave igual para que no puedan editar el codigo de programacion de los userform del trabajo grs - - - - - Mensaje combinado - - - - - tema solucionado
-
0
Reacciones de usuarios
- 0 respuestas
- 603 visitas
-
-
Buenas, les cuento, tengo casi nulos conocimientos de VBA para las macros de excel y se me asignó una tarea para los próximos días, la cual intento llevar adelante hace un tiempo pero no logro realizarlo. El problema a resolver es: En una carpeta se encuentran 7 archivos -libros de excel-, 1 por cada vendedor con su nombre. (este el formato base: https://dl.dropbox.com/u/10387731/Ejemplo.xlsx ) Y necesito generar un nuevo libro que reúna en UNA SOLA HOJA (las filas una debajo de la otra), la primer hoja de cada uno de los 7 libros de cada vendedor (se llaman "CARGA" las Hoja1, aunque no se si este dato importa demasiado). Ahora bien, necesitaría que se genere con cier…
-
0
Reacciones de usuarios
- 2 respuestas
- 602 visitas
-
-
Hola amigos de este gran foro, les doy un gran saludo, aqui con un tema que espero me puedan colaborar ya que lo requiero para mi trabajo, me gustaria saber como se hace para modificar un formulario de ingreso de datos agregando controles al mismo para tener otras opciones, bien para mayor detalle subo mi Excel, y en la primera hoja esta el contenido de lo que deseo hacer, de manera adelantada gracias... Registro_Clientes.zip
-
0
Reacciones de usuarios
- 2 respuestas
- 602 visitas
-
-
Buenas tardes estimados, Quisiera saber si se puede compartir un archivo que contenga ingreso de datos a través de una userform por red local, la cual se pueda ingresar datos simultáneamente entre 3 o 4 personas y que guarde en tiempo real. de antemano gracias! Saludos
-
0
Reacciones de usuarios
- 0 respuestas
- 602 visitas
-
-
Buenas. Primero gracias al foro pro la excelente ayuda que brindan a los usuarios, me he inscrito para agradecer y por primera vez preguntar y resolver mis dudas. Mi problema es el siguiente: Tengo 2 archivos Ventas y Planta. En ventas tengo la información ya estructurada, en planta tengo 2 hojas ya enumeradas respectivamente (1 y 2) en cada una deben ir los datos de Ventas, cada fecha de acuerdo a una hoja, el día 1/2/13 en la hoja 1 y el día 2/2/13 en la hoja 2 y asi hasta llegar a la hoja 28, solo copio y pego valores pero esto es muy tedioso, intente hacer mi propia macro pero no me funciono, así que resumo mi problema. Estoy en busca de un macro, que copie los d…
-
0
Reacciones de usuarios
- 3 respuestas
- 602 visitas
-
-
Buen día para todos, vuelvo después de un tiempito de ausencia. Necesito ayuda para saber que código debo escribir para lo siguiente: 1. Cuando cambie el textbox1 se actualizan textbox2 y textbox3 (esto lo se hacer) 2. Cuando se actualicen los textbox2 y textbox3 los tres datos se cargan al listbox (esto es lo que no se hacer) y quedan vacios. 3. Cada vez que se actualicen los textbox, esta nueva informacion se va adicionanado (no se como se hace) Les agradezco me ayuden con el codigo para el listbox, es lo que no he aprendido a manejar. Mil gracias Edwin Alexander Galeano
-
0
Reacciones de usuarios
- 1 respuesta
- 602 visitas
-
-
Hola: Me han pasado un libro de excel, Consolidado Mensual, que me carga una macro, esta me copia el rango de los libros existentes en una carpeta determinada. Ahora este rango ha variado y me piden que se amplíe hasta la columna L, pero no sé como hacerlo. Os adjunto los ficheros, espero que me podáis echar una mano. Muchas Gracias Nefe.rar
-
0
Reacciones de usuarios
- 3 respuestas
- 602 visitas
-
-
Hola, En la macro que adjunto al momento de darle doble clic a la casilla de chequeo, excel me pone un check y me lo tacha, al igual que el tema. En qué parte puedo modificar la macro para que no me tache las palabras?? Por favor su ayuda. Check_list_prueba.xlsm
-
0
Reacciones de usuarios
- 0 respuestas
- 602 visitas
-
-
Saludos Tengo un código VB que es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Si hay errores, que continúe On Error Resume Next 'Si cambiamos el dato de la celda X, mostramos la foto de ese Clan If Target.Cells = Range("E24") Then 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Pasamos a una variable, el nombre de la foto, 'que será el mismo que el nombre del Clan imagen = Range("E24").Value 'Añadimos la extensión "png" imagen = imagen & ".png" 'Buscamos la foto en el mismo directorio 'donde tenemos este fichero de Excel ruta = ActiveWorkbook.Path & "\clanes\" & imagen 'Borramos la foto del Clan (si hub…
-
0
Reacciones de usuarios
- 0 respuestas
- 602 visitas
-
-
Que tal buenas tardes acudo a ustedes con una duda tengo un formato en el cual copio datos de otra hoja mi problema es que puedo copiar de 1 a 60 datos entonces cuando excede los 25 voy ajustando la hoja para que me salga una o 2 dependiendo ya que en la parte inferior de la hoja a imprimir contiene datos que no quiero perder quisiera hacerlo de manera automática anexo archivo FILAS.xls
-
0
Reacciones de usuarios
- 0 respuestas
- 602 visitas
-
-
hola amigos estuve tratando de implementar un gestor de stocks la cual me encuentro con una traba en el desarrollo de esta macro las cuales acudo a ustedes, tengo un formulario donde genero informes de los ingresos y salidas y cuando modifico un datos los datos de stock no se actualizan, para eso eh creado un botton que recalcule todos los datos y me actualice el stock el los datos se encuentran en hojas distintas eh aqui les adjunto el archivo MATERIALES VARIOS VERSION 1.5.1.part1.rar MATERIALES VARIOS VERSION 1.5.1.part2.rar MATERIALES VARIOS VERSION 1.5.1.part3.rar
-
0
Reacciones de usuarios
- 0 respuestas
- 602 visitas
-
-
hola amigos de excel tengas buenas noches a todos y reciba un cordial salude de parte mia hoy he tenido una dificulta en diseñar una macro y no he podido desarrollar el siguiente caso 1 - Que cuando lleve 10 registro en la hoja de base1, me cree otra hoja de base para guardar los registro. 2- que en el segundo formulario pueda consolidar las base de datos que tenga saludos y gracias al que me pueda colaborar con eso bases.rar
-
0
Reacciones de usuarios
- 0 respuestas
- 601 visitas
-
-
Buenos días Tengo el siguiente código pero las condiciones en lo marcado en azul son más de 100 por lo que la línea se me hará infinita. Hay alguna otra forma de poner las condiciones usando más líneas ( no solo una ) o bien que vaya a buscar a un rango determinado donde estén todas las condiciones a buscar Paso fichero donde el rango a buscar sería de la pestaña CLIENTES. el rango D4:D25. Sub DESPRECIAR() Dim I, J As Integer J = 8 'DONDE EMPIEZA A ESCRIBIR For I = 4 To 4000 ' DONDE EMPIEZA A BUSCAR If Range("EXPORTACION!N" & I) = "CLIENTE 1" Or Range("EXPORTACION!N" & I) = "CLIENTE 3" Then Range("FILTRO!b" & J) = Range("EXPORTACION!B" &…
-
0
Reacciones de usuarios
- 2 respuestas
- 601 visitas
-
-
en las celdas desde la V2 a la V50 tengo en formato general los siguientes números: V2=510.941,44 V3=300,150.19 V4=156169,84 V5= 110023,59 quisiera una macro vba que en el caso de encontrar un separador de miles como en v5 lo elimine sea este un punto o una coma y si no tiene separador de miles como en v3 que no haga nada debería quedar V2=510941.44 V3=300150.19 V4=156169.84 V5= 110023.59 Es decir que los números finales deben quedar sin millares y con un punto para separar los centavos además el resultado debe pegarse en el rango que va de BA2 A BA50 Desde ya muchas gracias por la respuesta
-
0
Reacciones de usuarios
- 7 respuestas
- 601 visitas
- 2 seguidores
-
-
Buenas tardes, soy nueva en la creación de macros. Tengo que manejar una base de datos muy amplia que contiene los días comprendidos entre los meses de Abril a Septiembre (ambos incluidos) divididos cada uno de ellos en ramos semihorarios. El probleme que se me plantea es que en algunos días de estos meses faltan algunos tramos semihorarios y tengo que detectarlos para introducirlos. Este sería un ejemplo del primer día de mi período (1/04/2011) y así se repetiría sucesivamente hasta el final de mi período (30/09/2011) : [TABLE=width: 103] [TR] [TD=align: right]1-4-2011 00:00[/TD] [/TR] [TR] [TD=align: right]1-4-2011 00:30[/TD] [/TR] [TR] [TD=align: right]1-4-20…
-
0
Reacciones de usuarios
- 1 respuesta
- 601 visitas
-
-
Me pidieron realizar un proyecto, es un programa que clasifica películas, tomando datos de tablas que fueron insertadas en el excel desde un archivo .accdb. Se divide en 3 partes La primera te deja elegir mediante un combobox un actor, y te arroja en una listbox nombres de las películas donde aparece y el género de cada una. La segunda pestaña te deja elegir mediante un combobox una película, y te arroja los actores que están presentes en ella en una listbox. La tercera parte, y que es la que tengo problemas, se supone que desde un combobox se debe elegir un actor, y luego se debe poder agregar una película a la lista mediante un textbox, de manera que si yo voy a la…
-
0
Reacciones de usuarios
- 0 respuestas
- 601 visitas
-
-
Buen Día Tengo 5 archivos de excel con infromación diferente pero tienen en común la información de diferentes escuelas ej. Escuela 001, Escuela 002 etc. Podría hacer una macro en la cual de los 5 archivos de excel, en una hoja nueva de excel si yo pongo escuela 001 me salga toda la información de la escuela que esta contenida en los 5 archivos de excel ?? Gracias
-
0
Reacciones de usuarios
- 1 respuesta
- 601 visitas
-
-
Buenas tardes, Use el grabador de macros para que actualice automáticamente una tabla relacionada, me mostró este código: ActiveWorkbook.Connections("Consulta - Grupos").Refresh Lo puse en un módulo para que al hacer click en un botón me ejecute ese módulo, pero me lanza un error: y no me permite actualizar, que podría estar sucediendo? o hay algún otro código que me permita actualizar una tabla relacionada específica? lo mismo para actualizar una tabla dinámica relacionada específica. Muchas gracias
-
0
Reacciones de usuarios
- 1 respuesta
- 601 visitas
- 1 seguidor
-
-
Hola amigos, como puedo hacer una maquina de cambio con macros es decir si compro un articulo con que cuesta 50, pesos y pago con un billete de a 500, y otra como puedo rellenar una seier de datos dependiendo del del valor de la celda es decir si en la celda e2 escribo 12 me numere en la fila los 12 numero que se dieron y o en la celda pongo 5 solo me de la numeracion del 1 al 5 en la columna a, Saludos
-
0
Reacciones de usuarios
- 0 respuestas
- 601 visitas
-
-
Buenas Tardes, Una consulta amigos del foro: tengo un formulario con varios proveedores y a la vez un proveedor tiene diferentes productos . cuando selecciono un producto del listbox multiselect este se conecta a una database sql 2008 y me arroja informacion en la hoja 2 activa ,y a la vez cambia el nombre de la hoja. lo que deseo hacer es lo siguiente: que se genere un libro nuevo cuando selecciono un proveedor y se generen hojas con todos los nombres de los productos de ese proveedor cada vez que activo un producto este me genera informacion diferente en la hoja2 deseo que cuando se halla generado el libro y las hojas de ese proveedor copie la hoja activa (ho…
-
0
Reacciones de usuarios
- 1 respuesta
- 600 visitas
-
-
Buenos días estimados Quería solicitarles si me pueden ayudar con un código, debe ser simple, pero yo soy un novato en esto. Tengo en la Hoja1 tres columnas con datos, A tiene Fechas, B y C contienen números. Me gustaría hacer un bucle en donde los valores las celdas de la fila 1 se copien en determinadas celdas de la hoja2 y luego exportar hoja2 en pdf. ej. Hoja1 celda A1 en Hoja2 celda F5 Hoja1 celda B1 en Hoja2 celda D3 Hoja1 celda C1 en Hoja2 celda B2 y exportar hoja2 en pdf luego la siguiente fila Hoja1 celda A2 en Hoja2 celda F5 Hoja1 celda B2 en Hoja2 celda D3 Hoja1 celda C2 en Hoja2…
-
0
Reacciones de usuarios
- 1 respuesta
- 600 visitas
-
-
Buenos días, Tengo el siguiente código: Sub Copiar_NCAGT() 'MODULO11copia ndagt Application.ScreenUpdating = False Range("S2").Copy Windows("Caja Jesus 2016.xlsm").Activate Sheets("BOLETOS").Select Range("AA2").PasteSpecial xlPasteValues Application.CutCopyMode = False Range("AA2").Select Range("AA2").Copy Range("AA3:AA" & Range("I" & Rows.Count).End(xlUp).Row).Select ActiveSheet.Paste 'ActiveSheet.PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub Bueno este código lo tengo en mi libro NOTAS DE COBRANZA y lo que hace es copiar de mi hoja ND celda S2 el valor a mi otro libro Caja Jesus 2016 a la celda AA2…
-
0
Reacciones de usuarios
- 0 respuestas
- 600 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 [email protected]
Información adicional: Encontrarás más información en la política de privacidad.