Macros y programación VBA

Buen día a tod@s: Estoy trabajando en un reporte de ventas desde la factura, donde básicamente se compila la información de la factura (cliente, razón social, ciudad, fecha de factura y de vencimiento de la misma, el asesor y el valor facturado) en otra hoja en la que hay un listado para consolidar la información, de hecho realice una "macro" que funcionaba inicialmente, pero con los días la macro se daña y deja de funcionar, no sé que sucede. Necesito que la información de la factura se copie al consolidado y adicionalmente me permita llevar el número consecutivo de la factura y me genere el espacio para ingresar a los nuevos clientes. Adjunto dos archivos, el que se…

Buenos días a todos: Requiero de su gran ayuda para poder unir varios archivos PDF en uno solo, anexo un ZIP en donde están los archivos PDF y una hoja de Excel y GRACIAS por la ayuda que se me pueda dar.

Hola La duda que tengo, y por la que me gustaría recibir ayuda, es que quiero hacer una copia de seguridad de un libro, que me lo guarde en pdf y en la ruta que indica una celda. Por ejemplo, si en la celda B4 está escrito C:\Copias\Datos\ , cuando se guarde la copia del libro, en pdf, lo hará dentro de la subcarpeta Datos. Muy agradecido de antemano saludos ejemplo.zip

necesito saber si existe la formula para que no cambien el codigo o la formula. el archivo esta configurado por varias hojas - La 1° hoja se llama VER (Donde muestro todas las celdas de fechas de las hojas) - La 2° Segunda es enero, hasta diciembre. donde seleccionan reservado. ----------------------- A la hoja VER le puse un codigo para q me muestre la posicion de la celda Si haces doble click muestra la formula =enero!M11 es posible ? cuando haga click que se vaya a la hoja enero y se ponga en la misma posicion y bloquear la hoja VER, para que no modifiquen. Y en la hoja enero y febrero, bloquar celdas, para que no dañen el codigo, solo les permita usar el bot…

que tal buen dia, bueno queria saber si me pueden ayudar con la siguiente macro, lo que quiero que haga es que a determinada fecha se cree un archivo con un nombre especifico a una ruta especifica y cuando se quiera acceder a ese archivo cheque primero si no existe el archivo creado y si existe se elimine el archivo que se esta utilizando y si llegaran a tener otro archivo como el borrado y cambien la fecha se elimine igual porque seguira el archivo guardado...AQUI LES DEJO LA MACRO QUE ESTOY MODIFICANDO TIENE UN ERROR ES QUE SI YA SE GUARDO UN ARCHIVO Y LE CAMBIO LA FECHA NO APARECE EL MENSAJE Y SE SUPONE QUE SE DEBE DE APARECER EL MENSAJE AYUDA.rar

Buenos días. Estoy preparando un formulario (Excel 2007) para una orden de trabajo y necesito que a partir de un combobox donde selecciono la referencia, me devuelva el valor de la descripción del producto a un textbox, entiendo que será con la función "buscarv". He buscado por los diferentes temas de foro y he visto algunos con dicha función pero no he conseguido adaptarlo a mi caso. Subo un fichero con un pequeño ejemplo de lo que pretendo. Saludos y gracias de antemano Prueba buscarv.rar

Buenos Dias a todos espero que puedan ayudarme y orientarme en un problemilla que tengo: Problema Tengo un archivo de excel con macros el cual lo tengo instalado en 34 instituciones diferentes, es posible que se pueda hacer un programa en vba que actualice el codigo vba, ejemplo: En el archivo de excel instalado tengo el siguiente codigo: Private Sub BuscarContra() Buscar = Buscar + 1 End Sub Pero debo de reemplazarlo por: Private Sub BuscarContra() Buscar = Buscar + 5 Buscar= Buscar +7 End Sub Es posible hacer una función o programa para que lo modifique automaticamente y no volver a copiar el archivo de excel en t…

Estimados En esta ocasion necesito de vuestra ayuda, ya que tengo una macro con la funcion select case para sumar, restar, multiplicar y dividir dos valores, pero no me funciona..Revise el codigo y no encuentro el error , ya que soy novato en esto de VB. El ejercicio es el siguiente: En la celda A1 Y A2 estan los valores , en la celda B1 esta el signo de la operacion y el resultado debe ir en la celda A3, este es el codigo: Public Sub ejemplo_select_case() Dim Signo As String Dim Valor1 As Integer, Valor2 As Integer, Total As Integer Valor1 = ActiveSheet.Range("A1").Value Valor2 = ActiveSheet.Range("A2").Value Si…

Buenas tardes a todos, necesito una ayuda para copiar un rango de filas de una hoja a un archivo externo(Base de Datos), la situacion es la siguiente: 1. Un archivo tiene varias hojas, numeradas del 1 al 30, que son los dias del mes, en este caso el ejemplo es 1,2. 2. En cada hoja hay unas filas, o sea registros del dia, estan de la fila 500 hasta máximo la fila 649, pueden ser menores, o sea, un dia puede ser de la 500 a la 510, otro de la 500 a la 520, así sucesivamente. 3. Estos registros los debo copiar a Una Base de Datos Externa, o sea, adicionarlos dia a dia, es decir buscar el ultimo registro de la base de datos externa y copiarlos al final. 4…

Buen dia Tengo la siguiente macro en la cual debo ir filtrando cada una de las columnas, con valores y las demas en ceros para poder sacar la suma y copiarla en la parte superior, y asi ir recorriendo todas las columnas, en la siguiente la columna 5 ya no hago nada y a la 6 la filtro con los <> a cero, esto lo quiero meter en un ciclo pero no he podido, creeria que seria un for e ir eliminando de una columna en cada nuevo ciclo hasta llegar al ultimo, si tienen alguna idea de como lo podria realizar, les agradezco este es parte del codigo que tengo hoy en dia manual, pero para que vean que en el siguiente va saliendo una columna. ActiveSheet.…

Hola, La duda que me surge, es como hacer para obtener 2 valores de un modulo. Os dejo el programa del modulo que es un max si 2 condicionantes. La idea es ademas de obtener el valor maximo es obtener numero de contador para saber de que celda lo ha obtenido. He probado declarando la variable columna como publica y o no lo he echo bien o no ha funcionado. Alguna idea??? Function MAXIF2(RngMaximos As Range, RngCriterios As Range, Criterio As Variant, RngCriterios2 As Range, Criterio2 As Variant) As Double Dim c As Range Dim Max As Double Max = 0 counter = 1 For Each c In RngMaximos If RngCriterios(counter) = Criterio And RngCriterios2(counter) …

Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez el usuario hace clic arroja un tiempo en formato "hh:mm:ss", este tiempo sale después de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango de tiempo le ponga un color u otro, de la siguiente manera si es >= 00:05:00 ponga el color del forecolor del textbox15 rojo si es > 00:02:00 y 00:05:00 ponga el forecolor en amarillo si es < de 00:02:00 p…

Buenas tardes, tengo un formulario con un listbox que muestra datos de otro libro, también tiene un botón modificar, eliminar, pero me falta agregar un buscador, lo he intentado hacer pero me sale error, necesito de su ayuda, espero me pueda ayudar de antemano muchas gracias baseprueba.xlsx InicioPrueba.xlsm

Buenos días a todos; -Necesito una pequeña ayudita. A ver si sois tan amables de echarme un cabo. En una hoja Excel y en el evento "doble_click" hay un procedimiento que abre la ventana emergente de archivos de Windows y al seleccionar un elemento me inserta su nombre en un rango de celdas que he determinado. He hecho lo mismo desde un módulo. A este módulo hago la llamada a través de menú contextual de Excel. Supe configurarlo, pero me funciona con todas las celdas. No sé como hacer para que sólo funcione con un rango determinado, (igual que he puesto en el procedimiento de la hoja) Saludos y buen día a todos. Adjunto macro. MModulo.x…

Estimados(as) Junto con saludar y esperando estén todos bien, paso a exponer mi duda: como puedo copiar un rango de celdas, que conozco numericamente su fila y columna en otra hoja donde conozco el destino lo conozco tambien en forma numerica tambien Intento hacer esto ------>>>> worksheets(3).range(cells(valor1,valor2), cells(valor3,valor4)).Copy Destination:=Worksheets(2).range(valorx,valory) ?????? gracias

Buenas a todos tengo un problema de error, Que es lo que hace mis 2 códigos:1.- Al momento de escribir las letras transforma en mayúsculas automáticamente.2.- En determinadas celdas al cambiar la nota notifica mediante un un mensaje la modificación de la nota. Archivo: https://www.mediafire.com/file/1oteeptzmzv0spk/Modificación+de+notas.xlsm/file Ambas funcionan bien de manera independiente pero al momento de ambas me sale un error, como este: Acá se los dejo el código:--------------------------------------------------------------------------------------------------------------------------------------------Private Sub Worksheet_Change(ByVal T…

¡¡Hola!, buenos días. Tengo un archivo que tomé de la comunidad para realizar un reporte por material y calcular de cada uno sus proporciones utilizadas. Lo anterior lo realiza de manera correcta, lo que busco es que de todos los materiales utilizados me arroje una tabla con los totales. El problema es que los materiales los tengo divididos en columnas y me es algo difícil saber cómo sumarlos correctamente. Adjunto el archivo de ejemplo. De antemano muchas gracias por su ayuda. Cálculo_Materiales.rar

Hola a todos! Estoy tratando de progamar una macro para importar datos de una hoja de otro libro. Soy muy principiante en esto y me trabé, no logro dar con el error en lo que hago y además quisiera agregar cosas que no sé ni cómo empezar a pensar. Tengo dos libros de Excel, uno con movimientos de caja y asiento de ventas y otro con la lista de precios de mis productos, que se modifica con bastante regularidad. Quisiera, en la primer hoja de mi libro de movimientos insertar un botón que copie toda la lista de precios del otro archivo, solo los valores. Llegué hasta este punto, no sé cómo hacer que sólo pegue valores y no incluya fórmulas. También qui…

Hola un cordial saludo a todos. Tengo un libro con 365 hojas cada una con nombre de un día mes y año en especifico agradecería me ayuden a como puedo realizar la vinculación de cada hoja (día) para extraer valores totales a otra hoja y obtener los resultados necesarios, ya lo tengo echo de manera manual pero tardo mucho quisiera de su ayuda para no hacerlo de forma manual , ya que es muy laborioso dado que lo tengo que hacer de una por una. NO puedo adjuntar archivos por que tiene un tamaño de 4 Mb. Como podrían ayudarme por favor....

Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión. Recibo Inmobiliaria 1.xlsm

Un saludo cordial a todos, me podrian ayudar con este tema, necesito extraer los datos de una fila que esten pendientes y colocarlos en un nuevo libro de excel. Adjunto dos archivos. A ver si me pueden ayudar, les agradeceria bastante. Espero su pronta respuesta :joyous:. BCP $.xls BCP S.xls

Amigos, he creado un conjunto de 3 archivos, 2 xls y 1 doc, para automatizar los finiquitos en la empresa donde trabajo, funcionan de maravilla, necesitaba automatizarlos lo mas posible para que cuando lo use otra persona solo ingrese los datos necesarios, y asi no modifique lo medular del finiquito. pero el problema se genera cuando quiero traspasarlo a otro pc, o a otra carpeta dentro de mi pc, ya que para lograr la interaccion entre los 3 archivos le di rutas fijas a las macro, y no se me ocurre como cambiarlas, porque las macro no las cree en su totalidad, solo adapte unas que tome de este mismo foro. les dejo una macro, a ver si me pueden ayudar, se que hay una forma…

Hola a todos los amigos del foro, nuevamente recurro a ustedes los expertos a que ayuden con el siguiente caso: En el formulario que les subo de ejemplo deseo que al usar la función "Buscar", el botón de "Ingresar" se inhabilite, bloquee, o no permita que el dato buscado, por error se ingrese nuevamente o duplique Quedaré muy agradecido al amigo que me ayude. Les saludo. Elmo Rodríguez Form Ejemplo.zip

buenas tardes amigos hace tiempo encontré una consulta en otro foro pero es exactamente lo que necesito espero me puedan ayudar en esta ocasión quisiera pedir apoyo para lograr un control de Inventario Bajo tres Variables de Control, es decir, en lugar de solo controlarlo por medio del Item, también se pueda ese control con Lotes y Caducidades. He intentado varias cosas pero no logro cristalizar mi idea.... Dado esto, es que no subo un archivo, solo comparto la idea por si alguien lo tiene o lo sabe hacer. Se Ingresarían al Inventario Productos que tienen un código de Referencia, un Lote de Fabricacion y una Fecha de Caducidad, el proveedor puede surtir un solo codico…

Hola a todos, tengo el siguiente problema que me gustaria me pudiesen ayudar tengo una hoja en la cual realizo consulta a BD SQL, hasta el momento logre conectarme a la base de datos y rescatar la informacion que necesito el problema es que cuando filtro por fechas mediante DTPicker y consulto por Ej. por el dia 04-12-2012 el resultado que obtengo son los datos del 12-04-2012. El problema es que considera los 2 primeros digitos como el mes y los segundos como el dia y no he logrado solucionar esto. le pido por favor si me pudieran ayudar. Saludos Libro3.rar