Saludos a todos. Muy brevemente me presento como una persona ya jubilada que me entretiene y distrae programar macros en VBA para Excel. El problema que trato de consultar en este post es el siguiente: En una macro dentro de un formulario intento acceder a una tabla en una hoja de su correspondiente libro , y no tengo problema alguno. El problema aparece cuando ejecuto la misma macro pero el libro activo -que no contiene ninguna hoja con la tabla que se intenta accesar- es otro diferente. Entonces obtengo el error siguiente : "Error en el metodo 'Select' del objeto 'Worsheet'. Creo que se produce porque el libro activoal ser otro, y no ppoder encontrar la Hoja …

Consulta, necesito saber como unir los datos de ciertas columnas de dos documentos diferentes en uno tercero, quiero que esto se haga automáticamente cada ves que se introduzcan los datos en cada respectivos documento. ejemplo de mi problema: Documento1 "Carga de combustible" , Documento2 "Fletes" y el tercer documento y final se llama "Bitácora" en donde se almacenara las actividades diarias de cada vehículo. Ojala me puedan ayudar, seguiré todos sus consejos y aportes de ante mano muchas gracias.

Hola, Tengo un problema pero para explicarlo debo plantear lo que deseo hacer. Una macro que cree una nueva hoja con el nombre de un texto(APELLIDOS) de celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en la hoja recien creada o en una hoja que seleccione , o que aparezca formulario pidiendome el nombre de la hoja que deseo copiar, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.También que el pegado sea de en la celda c22. Dicho esto solo tengo una macro que crea una nueva hoja con el nombre de la celda que yo necesito: Sub Nuevopaciente() Dim i As Long ' Si el nombre ya existe, genere un mensaje y no cree …

Buenos Días: Necesito una macro que me busque un producto en la columna nombre producto cuando lo encuentre me traiga el dato de la columna codigoestado pero su numero mayor en este caso 9 y solicitar que si lo desea pasar a 10 que es un codigo nuevo. Agradezco su ayuda

BUENAS TARDES A TODOS. AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII. NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL" ESTE ES EL MACRO QUE USO PARA IMPRIMIR Sub Imprime_horarios() Application.ScreenUpdating = False For Each pestaña In Worksheets If pestaña.Name = "nombres" Then GoTo otra: pestaña.Activate If Range("d6") <> 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=2 pestaña.PrintOut End If otra: Next pestaña Sheets("nombres").Activate Application.ScreenUpdating = True End Sub DENTRO…

Estimados, Necesito poder ir alimentando una base de datos copiando datos desde una pestaña "editador" hacia Base_vigencia, pero a la ultima celda en blanco que seria en la base que adjunto la A19:L19. Si fuera posible también arreglar una macro que realice que limpia los datos del cuadro de los espació, pero no que no borre los datos de espacio de la celda "C4" Otra consulta, como llegan a aprender a programar macros tan geniales de forma autodidacta??? Vigencias_Matriculas.rar

Buenas Noches Ya que mi conocimiento de macros no me da para tanto, necesito su ayuda con el siguiente caso; espero me puedan entender es muy complejo de explicar. Tengo en hoja1 una base de datos, y en los encabezados hay unos que nos indican la vigencia (Fecha inicio y fecha fin) de cada fila. Asi mismo el valor que tiene cada una en el periodo total de vigencia. Por ejemplo en la fila dos la fecha es desde 01/07/2017 hasta 01/07/2021 lo que nos da una vigencia de 4 años y tiene un valor total de 1000. Lo primero que necesitaría es que en la hoja2 me lleve los mismos datos de la linea 2 de la hoja 1 y para el ejemplo antes dicho nos inserte la misma informació…

Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo. Cuando un articulo no cuenta con una imagen dentro de la carpeta imagenes me arroja un error y Cuando filtro un articulo por una sola palabra no lo realiza, es decir si busco la palabra cuadrada y esta está en medio o al final no la filtra, solo lo hace si esta al principio. Espero haberme explicado Dim C As Range, mPath$ Image1.Picture = LoadPicture("") Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If C Is Nothing Then Exit Sub Worksheets("inventario").Visible = True W…

buenos días, bendiciones ! serian tan amables de aconsejarme para poder organizar la información de una manera mas rápido, ya que todos los días tengo que hacerlo manual y me gasto mucho tiempo organizando. les agradezco mucho su consejo como quiero que quede : así se exporta el informe: informe empaque.xlsx

Buenos días estimados compañeros. La presente tiene como finalidad me ayuden con el siguiente tema, tengo un formulario el cual registro los pendientes de una persona. El detalle que quiero y no he podido es que al ingresar un nuevo dependiente al guardar me valide por el textbox de identificación si esta duplicado. Agradezco sus comentarios. Saludos Adjunto el archivo. Base_ de_Datos.xlsm

Hola amigos, como estan De nuevo recurro a ustedes para que me echen una mano, necesito sumar numeros en la facturacion, yo utilizo esta formula Sheets("Gestion").Select Range("F3").Value = Range("F3").Value + 1 Esto me va muy bien cuando sumo una unidad al numero actual, el problema lo tengo cuando delante van unos textos, ( ejemplo, PVR/ 324/ ) Espero que me puedan ayudar, gracias por anticipado

Que tal ! Saludos a todos! Necesitaría hacer una macro que recolecte datos de unos archivos en un directorio con subcarpetas. Basicamente, el tema es asi. Generé un tablero de comandos externos, en donde yo necesito volcar datos de varios excel que estan distribuidos en una carpeta (Nota: C:\X\x\*.xls es decir una carpeta raiz, y varias subcarpetas, cada una con un excel) Al linkearlo, mientras el archivo esta abierto, me toma los datos. Pero cuando lo cierro, pone !REF#. Yo necesito que se actualize, sin la necesidad de abrir el archivo vinculado, a mi tablero de comandos. DEsde ya, muchas gracias!

Buenas tardes!! Tengo una libro llamado prueba, con 3 Hojas en las cuales la hoja 2(base) y hoja 3 son hojas donde se cargan datos desde la hoja 1. No tengo mucho conocimiento con manejo de macros y necesitaría una mano para filtrar datos de las Hoja 2 y 3 que se visualice en un cuadro en la hoja1. Tengo una duda, cuando se acabe las filas en las hojas donde cargo los datos ya que los datos se cargan por filas podría orientarme en seguir en un cuadro en la misma hoja y también se pueda visualizar en la hoja 1. He encontrado ejemplo pero la verdad que no suple implementar su me podria dar un ejemplo les agradezco mucho. Adjunto un formato de la planilla. Desde ya mu…

Para desplegar la lista de información en un ComboBox no dependiente y del cual tampoco depende ninguno otro (concretamente para una lista de Proveedores), he escrito el siguiente código, y sin embargo no logro que me despliegue la lista referida. Private Sub cmbVendNameR_Enter() Sheets("Proveedores").Select Range("C29").Select Do While Not IsEmpty(ActiveCell) cmbVendNameR.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Loop End Sub[/CODE] ¿Que estoy haciendo mal? Gracias anticipadas Anexo el archivo correspondiente. EMR.xls

Hola buenas tardes. Debido al trabajo debo estar comparando en un periodo unos archivos dentro de una carpeta o subcarpeta. en base a la fecha de creacion o modificacion. pero tengo que estar viendo carpeta por carpeta y aveces son varios. Con una macro intente listar los archivos de cualquier carpeta y subcarpeta, esto activandolo segun la celdaactiva. El problema es que tiene algunos errores. 1. si la carpeta cuenta con subcarpetas me los manda a muchas filas abajo. Mi idea es hoja(Así debe quedar) Que con una macro pueda seleccionar la carpeta desde el buscador y me de la lista de archivos a partir de la fila 6. siendo c…

Este tema lo habia iniciado en excel general pero nunca recibí respuesta. mas o menos lo que quise explicar y he adelantado es sobre la busqueda y poner un check que me indique que ya está revisado. Les paso el archivo para que vean mas o menos lo que quiero. El archivo original que subi primero se llama ¨para Foro´´ el otro el que pongo como ejemplo de lo que quiero se llama ´¨Prueba´´.. Gracias de antemano. Prueba.xls Para Foro.xls

Tengo un Listbox que por necesidad debo abrirlo muchas veces para seleccionar un item, llega un momento en que ya no muestra los datos. Tengo que reiniciar Excel y comienzo de nuevo. ¿Que puede estar sucediendo?

Buen día a todos! Soy nuevo en esta comunidad tan padre y me gustaría empezar mi participación con la siguiente duda: Estaba trabajando en una macro y de repente me apareció el mensaje "cant find project or library" y desaparecieron mis módulos. Intenté ver referencias pero ni siquiera me permitió abrirlas. Lo guardé con nombre distinto y aún así me sigue apareciendo mismo mensaje de error y nada en los módulos. Me gustaría por favor si me pudieran orientar en qué es lo que está pasando y cómo lo puedo solucionar? Ya que restauré versiones anteriores pero perdí todo el código que había cambiado antes del error. Muchas gracias…

JuanPerezNuevo Usuario Buenas a todos, Tengo un problema que he encontrado ya en foros antiguos pero al que no he encontrado que se le diera solución. Se trata de un archivo para compartir con muchos usuarios, y lo que deseo es que cuando lo abran no tengan ni los encabezados, ni la barra de fórmulas (no quiero pantalla completa). Tengo una macro que deshabilita : - la que deshabilita la barra de estado (Application.DisplayStatusBar = False) - la que deshabilita los encabezamientos de líneas y columnas (ActiveWindow.DisplayHeadings = False) - la que deshabilita la barra de fórmulas (Application.DisplayFormulaBar = False) El problema es que al ejecutar estas líneas…

Hola amigos: La duda que tengo es la siguiente: Me cree varios userform's para la introducción de datos, estos aparecen desde que abro el archivo excel. Cuando termino de introducir todos los datos desaparece el ultimo userform mostrándome la planilla excel. Lo que realmente quiero es tener en planilla excel un botón que me vuelva a traer uno de los userform con los datos que coloque, para poder cambiar algún dato. Espero puedan ayudarme.

hola expertos algun codigo que de acuerdo al numero que este en la columna z lo busque en el rango a1:w42 y si lo encuentra colocarle borde grueso a esa celda Libroprueba.xlsm

Hola He leído varios temas muy similares, mi nivel en Excel es escaso y en macros nulo. No encuentro un caso similar. Necesito que cuando K y L ambas contenga TERMINADO. Cortar la fila, pegarlas en FINALIZADOS. Eliminar la fila ¿Podéis ayudarme? Gracias de antemano TEST_PENDIENTES_MACRO.xlsm

Hola a todos. Tengo el siguiente código para copiar columnas de una hoja a otra, pero si en la primera tengo fórmula, me copia la fórmula; y ahora necesito que me copie solamente los valores, como cuando hacemos un pegado especial manualmente. Dim ShER1 As Worksheet Dim SHDestino1 As Worksheet Set ShER1 = Worksheets("b.p.") Set SHDestino1 = Worksheets("b.d.") ShER1.Range("b10:D1500").Copy SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlAll Application.CutCopyMode = False ¿Alguien puede decirme el código para hacer lo que pretendo? …

Buenos Dias, Estoy haciendo un codigo VBA que al dar duplo click en listbox, el mismo dirrecionda todos los dados al formularios, pero que pasa es el seguiente, yo coloque tambien unos botones de adelantar y volver y un label que informa en que valor estamos, soloque este label no avanza quando selecionamos con doble click, y tambien la funcion excluir solo exclui el registro si selecionamos pelos botones de avanzar y recuar, necesito de sus ayada para mi caso Abajo un enlace con mi trabajo en VBA Download Templat2.zip from Sendspace.com - send big files the easy way Atenciosamente

Hola... Tengo una serie de datos estimados y necesito automatizarlos para obtener la Campana de Gauss de una manera más rápida, usando como base el archivo adjunto. Coloqué una imágen que refleja como debería ser el resultado final, hombres del lado izquierdo en color azul y mujeres del lado derecho. La idea es obtener la Campana de Gauss con proyecciones de más años, por ello la intención de automatizar la tarea. ¿Es posible? Apu-1.rar