Buenos días, Lo que tengo que hacer es desarrollar una macros en Excel en Visual Basic Aplication que haga la siguiente función: Yo tengo dos archivos que son parecido, es decir, tienen la misma cantidad de hojas, el mismo formato, las mismas tablas. El primero, que es el original, es modificado en algunos datos de algunas celdas en varias hojas del libro y ahí se crea el segundo archivo. Entonces, lo que quiero es que al activar la macros, en el segundo archivo se resalten en NEGRILLA las diferencias con respecto al archivo original y que además se le agregue un número uno así (˂1˃) en la columna "A" de la fila que se efectuó el cambio. Agradezco mucho la ayuda y espe…

En el libro excel adjunto hay cinco hojas. En la quinta hoja llamada ELEMENTOS COMUNES TABLAS tengo unos datos en la columna A y B y en la columna D y E. Lo que quiero saber en cada par de columnas es qué datos de la columna A están en la columna B y qué datos de la columna D están en la columna E. Utilizo una transacción que debería responder a los criterios e indicar de forma correcta los posibles elementos comunes pero el hecho es que cuando comprubeo los datos seleccionados me encuentro que en ocasiones los datos seleccionados en la Columna A y D no están respectivamente en la columna B y E. No sé si es un fallo en la fórmula, en el formato o de otra índole, algui…

Saludos.. La inquietud va por ver el form en la barra de tareas al esconder o hacer invisible el excel y solo visualizar el form La otra es como puedo crear mis propios botones de maximizar y minimizar un form. Muy agradecido por sus aportes... EJEMPLO.rar

Saludos a todos.. Amigos del foro acudo a Uds. para que me ayuden a resolver este problema que tengo con la suma de columnas de listbox no me salen bien. También tengo problemas para alinear solo las columnas 8 y 9 de números a la derecha el resto debe quedar a la izquierda use la propiedad columnacount pero no me sale me alinea otras y no las de los importes.. Por favor se que siempre que solicite su apoyo me lo dieron, agradecería que me ayuden con ello. Gracias por anticipado... (adjunto archivo) Consulta.rar

Hola a toda la gente de Ayuda Excel . Hoy traigo una duda con respecto a los complementos. Tengo un complemento con una función que armé llamada "CARGAR_COMBOBOX", que llena un combobox con los datos de una columna de la plantilla de excel. Ahora, el problema es que desde el formulario no logro llamar a la función que se encuentra en el complemento, me tira error. Quizás alguien sepa el por que. Dejo un adjunto con el archivo de excel, el complemento y la función .bas por las dudas. Desde ya muchas gracias a todos. Saludos! Libreria.rar

Buenas tardes Les pido de favor me ayuden con este asunto. Tengo un formulario de busqueda de datos de proveedores que devuelve los datos del proveedor de acuerdo al dato seleccionado. El problema es que cuando se ingresa un dato que no consta en la base de datos sale error en ejecución. Hay alguna manera de escribir el dato sin que salga este error? o que al salir el error se ejecute una macro que ingrese el nuevo proveedor?. Les agradezco por su atención. Adjunto ejemplo. BUSQ.zip

Buenas tardes Señores, se que me pueden ayudar en esto, tengo un archivo en escel para imprimir cheques que estoy modificando, el asunto es que quiero que al dar click en el moton "IMPRIMIR" me imprima la hoja (impresion), pero no logro configurar el VBA, para eso, por favor darme una mano con esto; al dar con la solución por favor díganme que hicieron para entender mejor. Saludos ELABOR. CHEQUE .rar

Hola Buenos dias. Necesito ayuda para terminar de implementar un macro. el tema esta en que se consolide el total de horas normales simples y dobles en la misma fila y columna donde se ubica el nombre y el dia a calcular. Adjunto mi avance el cual realiza el calculo por (dia o columna) Adjunto una imagen de antes y despues. Gracias por el apoyo HORAS NORMALES,SIMPLES,DOBLES.txt REPOTE PLANILLA.xls

Hola Tengo una macro con la que imprimo un rango concreto de una hoja concreta, lo que quiero es que cada vez que imprimo el archivo pdf tenga el nombre del contenido de una celda concreta. Les adjunto el código que utilizo Salud_2 y gracias Sub IMPRIMIR_FICHA() 'CON LA LINEA SIGUIENTE IMPRIMIMOS DIRECTAMENTE LA SELECCION Sheets("FICHA").Select Range("B3:AG50").Select Dim impresora As String With Application .Dialogs(xlDialogPrinterSetup).Show impresora = .ActivePrinter Selection.PrintOut End With End Sub

Buenos dias. Le anexo mi codigo, y espero y me puedan ayudar a minimizarlo ya que cuenta con muchas lineas, y es lento. Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer On Error Resume Next filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err On Error GoTo 0 Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function Sub copiar_a_Datos() Application.ScreenUpdating = False Dim Celda As Range Dim palabra As String Dim Libro As String Dim wb As Object Libro = "I:\Respaldo 28-09-2012\…

Estimados Amigos, Buenas noches, me encuentro realizando un archivo de nómina(rol de pagos), pero no sé cómo hacer para que de una planilla de datos(base de datos), agarre uno y cada uno de sus datos y los ponga en una plantilla informe resumiendo dichos datos. Hasta que no haya datos en la planilla y pare la instrucción. He intentado con For , Do Loop, pero no me funciona. Tal vez alguien me pueda ayudar, adjunto el archivo donde consta la hoja nómina y la hoja plantilla. De antemano muchas gracias. Saludos. Nomina Para Empresa.rar

Hola amigos recurro a uds pues no encuentro solucion en internet, mi consulta es: Como envio el foco (SETFOCUS) a un determinado valor de un combobox, les explico el contexto: Tengo un combobox con 3 estados Estado1 Estado2 Estado3 Un formulario que esta en estado1 no puede pasar a estado3, tienen que pasar por estado2, entonces si mi formulario esta en estado1 y le cambio a estado3 y le doy guardar, me envia una alerta y me envia a mi formulario pero pierdo el foco de mi valor inicial "estado1" Muchas Gracias

Buenas tardes a todos, reciban un cordial saludo, quería solicitar su ayuda para saber si es posible lograr del archivo adjunto que por factura los conceptos de las columnas Descripcion_ELEMENTO-Descripcion_glosa glosa-Codigo se contatenen y elimine los conceptos repetidos dejando solo un numero de factura con los conceptos unidos sin repetición, se tiene en cuenta que el número de filas por facturas no es igual. Es posible que una macro realice esta tarea ejemplo.xls

Amigos, Necesito su ayuda, deseo crear un código en VBA con el cual al buscar un valor de una columna ( ingresandolo en un Textbox me presente todos los resultados posibles en un combobox de la columna © y luego al escoger las opciones del Combobox me presente en otro Textbox el valor de la columna (D). Adjunto el archivo de referencia. Agradezco me puedan ayudar con este tema. Materiales (NF).xls

Buenas Tardes, lo que deseo es que a la siguiente Instrucción escrita en un modulo: {If Target.Address = "$AQ$3" Then Call abre"} le pueda anexar una condional más por ejemplo que el valor de la celda en cuestion sea agual a "0", esto estrictamente para que se pueda ejecutar la macro "abre" Gracias.

Buenas Tardes: No sé si a alguien le haya ocurrido antes, pero me ocurre lo siguiente. Al teclear dentro del textbox para buscar productos, presiono una letra del teclado, y automáticamente ingresa la letra y luego se selecciona la celda activa para escribir la siguiente letra a teclear. Por tanto queda escrita una letra en el textbox y debo pinchar nuevamente el textbox para escribir la siguiente letra, de lo contrario, sigo escribiendo en la celda. Lo probé en otro PC: Funciona de Maravillas, es muy probable que si descargan el Excel les funcione también a la perfección el buscador. Lógicamente, antes no me ocurría esto, tengo la idea que la macro se finaliza en alg…

Hola, Estoy iniciándome en VBA y tengo una tarea cruzada. Necesito generar una tabla dinámica en base a datos que proceden de rangos de diversas hojas. Quiero generar la Tabla dinámica en una hoja (TD), cuyos rangos (hoja1,hoja2,hoja3) de por sí, empiezan siempre en la Celda B2, pero no siempre tiene el mismo tamaño de filas. Me gustaría hacer una iteración para no tener que incluir el nombre de las hojas de rango (x,z,y) ya que el número de rangos se iran incrementando con el paso del tiempo. Me preocupa el Array, no sé cómo optimizarlo para que me lea los datos de todas las hojas y los imprima en la TD. SourceData:= _ Array(Array("Hoja1!R1C2:R7C3", "Element1"), A…

Hola tengo la siguiente macro, pero solo lo hace en la primera celda, pero la info la tengo en varias, como puedo hacer que lo haga en las demas??? gracias!! Sub crearCita() Dim objectOutlook As Object Dim objectCita As Object Set objectOutlook = CreateObject("Outlook.Application") Set objectCita = objectOutlook.CreateItem(olAppointmentItem) With objectCita .Subject = Cells(2, 2).Value .Body = Cells(2, 2).Value .Start = Cells(2, 3).Value .End = Cells(2, 4).Value .RequiredAttendees = Cells(2, 5).Value .ReminderMinutesBeforeStart = Cells(2, 6).Value .ReminderSet = True .Display (True) ' .Sen…

Hola! Supongamos que tengo la tabla que les adjunto, como hago para crear una macro que me permita crear una cita en el Outlook 3 días antes a la fecha que me figura en E2. ¿Cómo hago también para que se me creen otras citas cada vez que yo ingresando más datos? Gracias!

Hola que tal, Trataré de explicarme con lo que estoy intentando hacer. Tengo una hoja de excel donde en una fila hay un mes con sus días, ejemplo: Enero: 1 2 3 4 5 6 7 ... 31 abajo de esa fila está Febrero: 1 2 3 4 5 6 ... 30 y así consecutivamente cada mes en una fila mas abajo. Cada numero de los días del mes va en una celda. Ejemplo de hoja aquí. Mi duda es como hacerle para que con código al seleccionar una celda o un grupo de celdas donde están los días del mes estas se pongan de un color de fondo especifico. NOTA: Excel me permite ponerle color de fondo a las celdas sin código, nada complicado, pero de esa manera primero hay que seleccionar las celdas y luego…

hola, amigos de ayuda excel se he ha presentado un inquietud que no he podido resolver, necesito agilisar procesos y uno de ellos es enviar archivos por email, lo quiero hacer de excel subo el archivo haber si alguien que me pueda colaborar en esoo gracias saludos @[uSER=179514]marroco312[/uSER] E-mail.rar

Hola a todos, necesito de su valiosa ayuda, tengo una macro que corre dentro de Private Sub Worksheet_SelectionChange(ByVal Target As Range) la cual es la siguiente: If Target.Address = "$AQ$3" Then Call ABRE If Target.Address = "$AQ$4" Then Call ABRE If Target.Address = "$AQ$5" Then Call ABRE If Target.Address = "$AQ$6" Then Call ABRE If Target.Address = "$AQ$7" Then Call ABRE .... Al final el rango arriba descrito termina filtrado y lo que necesito es que analice si la fila AQ3 esta visible y si es asi ejecute la macro abre() y si no tiene la propiedad visible no ejecute la macro y en ambos casos haga el recorrido automatico osea bajarse a la siguiente fila. Gra…

Hola con todos los integrantes de esta gran comunidad, desde ya las gracias por atender mi solicitud. Bueno si no es abusar de su confianza les comento que he buscado por la red antes de incomodarlos y los ejemplos que logrado encontrar digamos que no hacen lo que necesito y lo que necesito es un código o macro que me permita ocultar automáticamente las hojas del libro con el cual trabajo (20 hojas), y que cuando abra el libro se muestren estas hojas, pero antes de mostrarlas me pida una contraseña y usuario si fuera posible o simplemente que pida contraseña, si es correcta que abra la hoja y si no que se cierre el libro automáticamente . Gracias antic…

Estimados amigos con la ayuda de ustedes pude hacer una macro con BUSCARV como se detalla: 'En un Módulo: Sub Buscarv() ActiveCell = Application.VLookup(ActiveCell.Offset(, -1), Sheets("Hoja1").Range("A1:B15"), 2, False) End Sub 'En la hoja activa Private Sub Worksheet_Change(ByVal Target As Range) Celda = "A:A" If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then ActiveCell.Offset(-1, 1).Select Call Buscarv End If End Sub En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla. Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy …

Hola a todos: Cada día y cada vez con mas asiduidad, archivos de consultantes me dan este error al abrirlos: Al pulsar Abrir muestra lo siguiente: ¿ Le pasa a alguien mas ? ¿ Tiene algo que ver con el SO de 64 bits ? ¿ Hay alguna forma de evitarlo ? Saludos .