Hola a tod@s. Tengo una aplicación muy sencilla aparentemente que no se como terminar y espero que alguien pueda arrojarme algo de luz. Tengo una Tabla dinámica con unas columnas y quiero cargar los datos de dos columnas desde un Formulario. Una de estas columnas es una Fecha y el problema es que al copiar el TextBox de fecha en la casilla correspondiente, no me reconoce el formato de Fecha. He mirado en muchos foros y probado múltiples posibilidades (hasta trocear la fecha en día, mes y hora y luego "pegarlas" de nuevo, he probado con el comando Format, etc y no hay solución. cunado me refiero a que no me reconoce la fecha es que cuando meto la fecha con el Formulari…

Buenos Dias, Comentandoles, que tengo un archivo con Macros el cual lo pase como Complemento Add-In que contiene 2 procedimientos este disponible en cualquier Excel que se abra, esto es, porque para el procedimiento 1 que es la conversion de Listas de Materiales (BOM) sea mas sencilla para el usuario y que no este teniendo que abrir el archivo de macros para ejecutar la conversion, pero porque? Bueno, el BOM se genera desde un ERP Epicor en un archivo de Excel simple, pero no esta formateado, la macro lo que hace es, crear una nueva hoja en ese libro con la informacion del BOM, y complementa las descripciones de los productos que quedaron truncadas en el report…

Hola chicos, tengo un cuadrito que marca algunas personas que han bajado del promedio y quisiera poder enlistarlos aparte uno tras otro sin dejar blancos, me ayudan por favor? En base a la calificación se tiene que dar el nombre del individuo y el día en que reprobó, gracias por su apoyo! lista aparte.zip

Buenos días Tengo que agradecer por toda la ayuda brindada en el pasado Tengo un proyecto de completar un archivo de Word con información de Excel para eso he tratado con el siguiente código: Sub A_crear_word() mi_carpeta = ActiveSheet.Range("A2") Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Add Template:=mi_carpeta, NewTemplate:=False, DocumentType:=0 For I = 3 To 8 busqueda = ActiveSheet.Range("B" & I).Text remplazar = ActiveSheet.Range("A" & I).Text With objWord.Selection.Find .Text = busqueda .Replacement.Text = remplazar .Execute Replace:=2 End …

Buenas noches, una solucion a mi problema necesito una macro para cruzar informacion, es decir coger dos o 3 archivos y compararlos por las columnas especificadas es decir que me de como resultado tantos archivos no coinciden. espero haberme echo entender de antemano agradezco su gentil ayuda

Buenas noches, He recibido muchas recomendaciones de este foro, de la calidad de personas que lo administran y de que llegan a solucionar problemas que aveces parecen imposibles. En esta oportunidad quiero dejarles un archivo que me ha provocado varios dolores de cabeza. Todo esta especificado en el archivo, pero cualquier consulta me la hacen llegar. Desde ya les agradezco enormemente sus opiniones y apoyo. Noriega. Noriega Archivo_2003.xls

Tengo un archivo Excel habilitado para macros en el cual tengo una hoja en la cual he definido 6 listas, a las que necesito ir agregando Items, he creado un formulario que contiene 6 TextBox y cada uno de ellos con un Botón de Comando para Ingresar el dato en la correspondiente tabla dinámica ubicada en la hoja "Listas" y un Botón de Comando para hacer una limpieza del TextBox. Estoy recién iniciándome en la programación de macros y les agradecería muchísimo me pudiesen ayudar con un código para realizar esta tarea. En otra oportunidad los miembros JSDJSD y Antoni me brindaron una valiosísima ayuda en un ListBox con la que pude avanzar, de la cual estoy muy agrade…

Buen dia, Me pueden hacer el favor de ayudarme.? El adjunto hace lo siguiente: Guarda datos en en la hoja RELACION, CTAS, Y FACT, cada cuenta esta asociada con un numero el cual esta ligado a las facturas de dicha cuenta. Mi pregunta es: Como hago para modifica la cuenta y la facturuas asociada a una cuenta? ya que una cuenta se puede dar la posibilidad de modificarle, eliminar y agregarle facturas a esa cuenta. De antemano les agradezco su valiosa ayuda. Gracias. Registros Asociados.xlsm

Hola amigos de Ayuda Excel Tengo el siguiente código que sirve para insertar filas en una hoja (la cual es copiada de la fila 5 y pegada en la primera fila disponible de la columna A. Quiero agregarle una condición al código que evite pegar la fila si la celda de la fila activa correspondiente a la columna K es igual a 0. Es decir que no la copie. Sub Insertarfila() Application.ScreenUpdating = False Dim ult As Long ult = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A5:K5").Select Selection.Copy With ActiveSheet.Range("a" & Rows.Count).End(xlUp).Offset(1) .PasteSpecial Paste:=xlPas…

Buenas noches: Tengo codigos de personas, a quienes quiere asignar cierto numero de llamadas, por ejemplo repartir 6 llamadas entre 3 codigos, a la primera le puede tocar 3 llamadas,a la seguda 2 y a la tercera 1, lo que se quiere es que la distribución de llamadas sea aleatoria. Adjunto archivo Muchas gracias Muestrita.zip

Hola Me gustaría saber como he de formular una macro para que una vez acceda a una determinada web búsque si en ella hay algun enlace que empieze por "blablabla?ID=..." y si lo hubiese clicar en el y si no avise de que no lo hay. Dicho enlace siempre empieza por "DriverProfile.asp?ID=" y siempre se encuentra alojado en el mismo lugar del html de haberlo, pero puede darse el caso de no estar... en función de quien visite la web. Sólo necesitaría conocer cómo formular esa consulta.. el resto del código (acceder a la web etc ) lo tengo armado. La estructura donde se encuentra el elemento a buscar dentro del html de la web es ésta: <table cellspacing="0" cellpaddin…

Saludos estimados foristas, alguien me puede ayudar para revisar una macro que haga lo siguiente: en un libro quiero que las Hojas "CASA" , "PEZ" , "total" crear otro ibro lo que es igual a copiar y mover a otro libro, lo que deseo que una vez que esto se realice las hojas esten bloqueadas con una clave "XX" y deshabilitar las funciones de copiado, pegado con clic drecho solo en las Hojas "CASA" , "PEZ" la hoja "total" solo bloqueada con "XX". adjunto ejemplo Sub ANEXO() ' Sheets(Array("CASA", "PEZ")).Select Sheets("PEZ").Activate Sheets(Array("CASA", "PEZ", "total")).Copy Sheets("CASA").Select ActiveSheet.Protect "XX" …

Hola buenas tardes debido a mis constantes movimientos entre archivos necesito estar moviendome de un libro a otro y aotro. En un archivo 1, tengo mas de 30 hojas y en archivo 2 tengo 3 hojas o mas (funciona como plantilla). Que es lo que sucede: Cuando estoy trabajando en alguna de las hojas(X) del archivo 1 necesito ir al archivo 2. y a su ves regresar. Lo que me gustaria es que en mi archivo 1, poder poner en cada celda (R3) de todas las hojas un hyperlink o boton con la que pueda ir al archivo o libro 2. Con esto poder lograr que en cualquier hoja que me encuentre poder ir al archivo 2. y si agergo mas hojas en el archivo 1 se coloque en au…

Hola buenas tardes: Estoy realizando un formulario para el registro de ventas diarias de mis productos, el proceso es el siguiente: 1. En un cuadro de busqueda ingreso cualquier parte del texo de mi codigo. y por medio de una lista me muestra las coicidencias a lo escrito, 2. selecciono la descripción que requiero y al seleccionarlo se muestra en un combox. 3. ingreso cantidad y precio, 4. Con el boton de registrar se ingresa en otra lista el codigo, la descripcion, cantidad, precio e importe. asi con los diferentes productos . el problema que me encontre es que si mi codigo buscado contiene una letra al registralo con el boton "registrar" e…

Buenas me podrían ayudar con este error. Gracias

Hola amigoa buenas tardes, estoy intentando realizar una busqueda de daos atraves de un textbox que tengo en un formulario, este textbox debe buscar el id en un hoja y traer los resultados a el formulario, pero la verdad es que no tengo idea de como hacer la busqueda y el llamado de la información, les dejo el archivo que tengo. y de antemano gracias por su ayuda Control de Cambios 2.zip

Cordial saludo, acudo hoy a este foro para dar solución a un dilema: Tengo en un userform VBA un texbox que se llena con las selecciones de un listbox que dependen a su vez de un filtro con combobox; el dilema es que al realizar cambio en el combobox, el listbox se limpia pero antes, almacena la selección en un textbox. Ahora bien, ¿Cómo puedo hacer para que al realizar nuevas selecciones, estas se "sumen" a las anteriores en el textbox, y no que los actuales registros reemplacen a los anteriores. Espero haber sido suficioentemente clara, agradezco toda la asesoria posible, ya que este proyecto se me ha estado retrasando por el inconveniente expuesto anteriormente. …

Muy Buenas Tengo una curiosidad,: tengo en una carpeta 3 libros, dos de ellos con macros en el libro (xlsm) que funcionan de la siguiente manera. uno.xls: ejecuta una macros del libro personal, que abre el archivo "dos.xlsm" actva una macro de este archivo que extrae parte de una info de un excel que está alojado en un sevidor y la copia en diferentes columnas en un nuevo libro excel que se crea con nombre"nuevo.xls" (por ejenplo) con parte de la info de uno.xls y la extraida del servidor. Despues la macro abre el archivo "dos.xlsm". dos.xlsm: La macro de este archivo que como he dicho, ha sido activada por "uno.xlsm", abre tres.xlsm y copia una parte de info de un ar…

Hola amigos: Solicitando su valioso apoyo para resolver un problema que me surgio en la impresion de unos archivos, resulta que en una pestana tengo unos contratos los cuales constan de varias hojas, y lo tengo configurado en hoja tamaño oficio por asi requerirlo, pero la ultima hoja necesito que se imprima en tamaña carta, todo esto automaticamente mediante una macro, ?? , y agradezco de antemano si alguien me pudiera apoyar las primeras 4 hojas se imprimen bien, pero la ultima al cambiar la configuracion se descuadra en mi macro utilizo la sig, instruccion: ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True With ActiveSheet.PageSetup .P…

Buenas noches: Tengo el siguiente macro que lo acomode a mi utilidad Sub Copiar_a_RecKardex() For Each Hoja In Worksheets If Hoja.Name <> "REC" Then 'Comprobamos antes si la hoja está entre las mencionadas en la columna R Dim qRangoR As Range 'Set qRangoR = Application.Intersect(Columns("P:P"), Hoja28.UsedRange) Set Origen = Range("P2") For Each cell In Origen If cell.Value = Hoja.Name Then 'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta uFila = Worksheets("REC").Range("A" & Rows.Count).End(xlUp).Row …

Buenos dias a todos: Espero que me puedan ayudar, no se mucho de macros pero viendo tutoriales he podido listar los archivos de una carpeta a través de listado de nombres de una ruta y posteriormente tengo una macro que mueve los archivos de la carpeta "A" a la carpeta "B", pero los mueve todos, a mi me gustaría que solo moviera los que filtro. Sub MoverArchivos_Trabajo_en_curso_a_Compartido() Dim MiArchivo As String MiArchivo = Dir("D:\Users\carodrigueza\OneDrive - FCC\Prueba planos vigentes\01 Trabajo en curso\*") If MiArchivo = "" Then MsgBox "No hay archivos a mover.", vbExclamation, "torpe" Else Do Until MiArchivo = "" …

BUENAS ALGUIEN QUE ME AYUDE ESTOY REALIZANDO UN LIBRO DE EXCEL QUE PERMITA CREAR PROFORMAS GUARDARLAS Y REGISTRARLAS PARA PODERLAS VISUALIZAR LO QUE NECESITO ES QUE CON EL BOTON GUARDAR SE ABRA EL USERFORM Y ESTE SE GUARDE EN UNA CARPETA DEL ESCRITORIO Y ADEMAS EN LA HOJA DE PROFORMAS SE REGISTRE LA PROFORMAS CON NUMERO DE PROFORMA CON UN HIPERVINCULO AL ARCHIVO CREADO NO SE SI SE PUEDA O AYUDENME CON ALGUNA ALTERNATIVA ADJUNTO MI PROYECTO PRUEBA 0.rar

buenas compañeros: como puedo hacer para que un textbox tenga un valor máximo a mostrar por ejemplo. si voy a importar un datos numérico a un textbox el cual es 125.333. el textbox me muestre 100.000 que sea el valor máximo a mostrar. si la cifra es mayor a 100.000 que el textbox solo me muestra 100.000 y si es menor obvio la misma cantidad... espero sus ayudas gracias

Saludos mis expertos, con la siguiente cuestión. En una hoja tengo varios objetos lo que quiero es pasar estos objetos a un userform para que estén disponible en cualquier momento. ___de antemano muchas gracias.

Buenas tardes, agradeceria vuestra ayuda. Utilizo hasta ahora una macro que envia un rango de excel en pdf por outlook, la cual, enviaba el mismo pdf a todos los emails de una columna. Ahora lo que necesito es mandar el pdf pero a cada email, modificando cada vez la celda A1 por cada Id de la columna, para que asi se genere un pdf para cada id. La idea es que antes se mandaba un cuadrante a todo el mundo (1 pdf a todos los emails), y ahora quiero enviar el que corresponde a cada uno.(1 pdf a cada email) Imagino que se hara por un bucle, pero no se como insertarlo en la macro. Muchas gracias Calendario1.xlsm