Hola amigos, quiero mediante una macro copiar los datos de la hoja FORMULARIO a la hoja DATA (tabla). por ejemplo: Paso 1.- Llenar hoja FORMULARIO, clic en el botón Guardar, y que se grabe en la hoja DATA en la fila 2. Paso 2.- Llenar hoja FORMULARIO, clic en el botón Guardar, y que se grabe en la hoja DATA en la fila 3. Paso 3.- Llenar hoja FORMULARIO, clic en el botón Guardar, y que se grabe en la hoja DATA en la fila 4. y así sucesivamente. Ojo: no quiero que en la hoja DATA, se inserten filas, si no mas bien que la macro busque la ultima fila vacía y la copie. me pueden ayudar?. Saludos Formulario Pedidos.rar

Buenas noches tengo este problema, tengo un archivo Excel con conexión a una base de datos Access, que funciona bien solo, le adicione un visor de archivo pdf que encontré en la web. Al implementarlo en un solo archivo al ejecutar la macro para ingresar información a Access funciona bien; llamo al visor de pdf y visualizo correctamente, cierro el formulario. El Problema: se origina al ingresar información por segunda vez a Access. saliendo el siguiente error Microsoft Excel dejo de funcionar: Firma con problemas: nombre del evento de problema: BEX64 Nombre de la aplicación: EXCEL.EXE Versión de la aplicación: 16.0.12228.20364 Marca de …

Registra los datos, pero aparece Error: 2147467259(800004005) en tiempo de ejecución Escogí una sola imagen: 2.Localización y Replanteo. Las imágenes las inserta bien, pero al dar Clic en Registrar genera ese Error El Botón Ejecutar está en Hoja 2 Averigüé que se corrige con los siguientes pasos: Paso 1Abre tu proyecto de Visual Basic e introduce la siguiente línea en la parte superior de la función que llama "SetFocus": On Error GoTo FocusErr. Paso 2 Crea una etiqueta en la parte inferior de la función, escribiendo lo siguiente: FocusDone: Exit Function Paso 3 Crea otra etiqueta debajo d…

Buenas a todos de nuevo. Necesito ayuda con esto. Subo un archivo donde necesitaría que al hacer doble click sobre las celdas donde hay un formato condicional que al poner 1 se marca un check, pues que si hay un 1 se ponga 0 y al volver a hacer doble click borre el 1. Así no tengo que estar escribiendo constantemente o borrando. No encuentro como hacerlo. ¿podéis ayudarme? Gracias de antemano. Nuevo Checklist.xlsm

Hola a todos! Espero alguien me pueda ayudar. Tengo el siguiente código pero al ejecutarlo coloca la formula con referencias fijas (con signo $) si quisiera que fuera relativa para poder copiar y pegar ¿cómo puedo cambiar el código para que la celda sea relativa o fija? ¿Alguna idea? fil = ActiveCell.Rows.Row Selection.FormulaR1C1 = "=(R" + Trim(Str(fil)) + "C4*8)" Muchas gracias.

Hola de nuevo. Hace tiempo que no molestaba pero he retomado algun proyecto que tenía aparcado y ya tengo problemas. Creo que es fácil, pero no logro salvar el error. Es con la combinación de Range y Cells. .Sheets("RES_Origen").Range(Cells(61, Val(mMes) + 2), Cells(84, Val(mMes) + 2)).Copy wdatos.Cells(5, col + 2).PasteSpecial xlPasteValues Con este código me salta un error. Sin embargo si lo hiciera con Range no da error. .Sheets("RES_Origen").Range("G61:G84").Copy wdatos.Cells(5, col + 2).PasteSpecial xlPasteValues He de usar la combinación con Cells porque está dentro de un bucle que va copiando diversas coumnas y no puedo fijar el Range. …

Buen dia expertos recurro a ustedes con esta consulta que espero no les quite mucho de su valioso tiempo y en espera me puedan ayudar, y es que requiero que un textbox acepte solo caracteres que yo quiera como en este caso requiero el textbox solo acepte letras mayusculas y minusculas, y los caracteres exceptuados son el guion bajo, el espacio y los dos puntos ":" y tengo el siguiente codigo pero no logro adecuarlo Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ' osea Esto es para que el Textbox1 solo acepte números ' If KeyAscii < 48 Or KeyAscii > 57 Then ' KeyAscii = 0 ' End If ' del 32 al 126 son caracteres imprimibles …

Este es mi primer post aquí... Je je. Tengo un archivo en Excel: A1: Fecha | B1: ID | C1: Nombre | D1: Líder | E1: Correo. | F1: Adjunto Generé una macro para enviar correos a distintos destinatarios almacenados en la columna E1 pero solo envía el correo al primero de la lista y no a los demás. Y no he logrado que el texto del mensaje se acomode a los campos que necesito. El texto del correo debería ser: Estimado (Líder), le informo que (Nombre) con el ID número (ID) ha recibido la documentación la fecha (Fecha). Adjunto copia del documento. (Firma) ¿Cuál sería el código para realizar esto? ¿Cómo coloco mi firma de Outlook? Envio de correos (Plantilla).xls

si bien existen modelos, pero no llego acondicionarlo a ,is archivos tengo mi archivo "Formato Factura Lukoll 2016.xlsm" origen del cual quiero copiar el detalle de mi factura en otro archivo ("Formato_Resumen_2016.xlsx") ejecuto una macro pero no llega a copiar, marca el origen, pone en memoria, abre el archivo destino,pero no llega a pegar la información. lo que deseo es: pasar siempre un mismo rango de mi archivo origen (Range("A25:Z40")) al archivo destino pero al final o insertando espacios al inicio de mi archivo destino; y la copia debe ser tantas veces como genere una nueva factura desde ya les agradezco la ayuda Gracias Neil Lopez …

Hola amigos: Acudo a uds. nuevamente para que me proporcionen una ayudadita, Este es el caso: tengo una base de datos de Access con varios campos, y lo que quiero es importar un registro completo a excel, tengo ya un macro con el cual puedo visualizar desde excel por medio de un combobox el segundo campo de la BD, esto con el fin de poder ver cual de los registros deseo importar, el problema es que si logro ver los registros e incluso puedo importar el primer dato del registro a excel a la celda A2 el problema es que no encuentro la manera de a partir del nombre del registro pueda importar el restro de los datos de dicho registro, los restantes 7 datos de dicho registro …

He cargado mi Base Datos Excel 2010, en un ListBox de varias columnas. Si selecciono una fila del ListBox(con todos sus datos distribuidos en las columnas) ¿Cómo puedo hacer para que mediante un Botón, ubique éste registro único en la BD que está en la hoja excel y modifique el contenido de una de sus celdas(columna). aaaAaaadaaaa

Buenas tardes. Necesito ayuda con el archivo adjunto. Tengo un archivo donde realizo un control sobre las cuentas de varios empleados (+ de 50 en total), donde al apretar el botón de "CTROL CTAS. EMPLEADOS", automáticamente se copia el primer numero de cuenta del Excel, se activa otro programa llamado "Emulación 3270", se realizan un par de acciones donde dentro del programa se pasa por diferentes opciones para luego pegar el numero de cuenta, y lo pega en el programa Emulación donde luego imprime la pantalla con "F6", vuelve a la pantalla de inicio del programa y empieza nuevamente con el siguiente numero de cuenta, así sucesivamente hasta que llega a la celda …

Buenas tardes Tengo un listbox donde recojo dos tiempos distintos. Uno es el tiempo estimado y el otro es el tiempo real dichos datos estan en la celda en formato [hh]:mm el problema está cuando cargo en un listbox dichos datos. Si es menor a 24h se muestra sin problemas con cdate Me.ListBox.List(Me.ListBox.ListCount - 1, 19) = CDate(HojaBase.Cells(i, "AA").Offset(0, 0)) 'TIEMPO REAL Me.ListBox.List(Me.ListBox.ListCount - 1, 20) = CDate(HojaBase.Cells(i, "AB").Offset(0, 0)) 'TIEMPO ESTIMADO pero si los valoren superan las 24h no muestra el tiempo y si una fecha (ADJUNTO IMAGEN). Que tengo que hacer para que …

Hola Amigos Nesecito guardar los datos ingresados en el formato en una hoja nueva. para luego poder poner solo el codigo del cliente y que salga todos los datos ya anteriormente guardados, poder modificar tambien esos datos. luego poder imprimir la hoja 1 demoooooo.rar

Hola a todos, Estoy intentando crear macro de envío correo electrónico a través de OutLook a los destinatarios de la columna B si la fecha de revisión que está en la columna E es mayor de 2 años con respecto a la fecha actual. Envío archivo de prueba Gracias envio correo.zip

Buena noche, por este medio quisiera pedirles su apoyo u orientación para ver la posibilidad de poder consultar a través de VBA la garantía de un equipo de Dell en su sitio web usando el Service Tag que esta en la columna A y que en la B aparezca la fecha de envío, en la C fecha de Inicio, en la D la fecha de Vencimiento y la D el Código de Servicio Expreso, he investigado pero no he obtenido resultados, el Tag para prueba podría ser 2PTCB2S. Si alguien me puede apoyar con este tema les estaría muy agradecido.

Hola a todos Tengo una duda, hice un formulario (una especie de planilla) y una de las preguntas es escribir en una textbox Por cuestion de ahorrar espacio en el formulario, el usuario deberá hacer clic a un boton tal que abrirá otro formulario donde va a ingresar los datos en la textbox El problema es que cuando una vez que termine de ingresar el texto y cierra el 2do formulario(donde está la textbox) y lo vuelva abrir para revisar(por ejemplo), el texto que escribió desapareció. Quisiera que el texto se mantuviera hasta que el usuario le de clic al boton ¨agregar datos¨ Ajunto el archivo 1prueba.xls

Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como solucionar el ERROR en la siguiente instrucción que detallo, los archivos estuvieron trabajando sin ningún problema, pero haces 2 días comenzó con a fallar Error ejecución. Set objWord = CreateObject("Word.Application") Siendo la macro original: Sub tablaaword() patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 Worksheets("TELECREDITO").Range("A1:D7").Select Selection.Copy textobuscar = "[tabla_ex…

Hola, Tengo un programa de facturacion que lee los contratos en pdf rellenable. hace la factura los pasa a visual basic (base de datos) y hace el libro de gastos e ingresos. Pido ayuda porque mi programador ha fallecido, entonces necesito retomar el proyecto o rehacerlo. email:

Buenas, tengo un problema con estos codigos. El siguiente, me falla en la parte del codigo donde graba el archivo temporal (negrita). y Me aparece el siguiente mensaje de eror al depurar: Se ha producido el error '1004' en tiempo de ejecucion: No se puede tener acceso al archivo. Intente lo siguiente: Compruebe que la carpeta especificada existe Compruebe que la carpeta que contiene el archivo no es de solo lectura Compruebe que el archivo no contiene ninguno de los siguientes caracteres: < > ? [ ] : o *[/HTML] Lo extraño es que anteriormente funcionaba facilmente y lo unico que hice antes de que dejara de funcionar es cambiarle el nombre de la hoja a enviar.…

Estimados. Necesito de vuestra ayuda. Estaba creando un Dashboard en Excel 2010 sin problemas hasta cuando una de los Gerentes me dijo que casi todos tienen Excel 2007. Lo que necesito es Vincular una tabla dinámica con muchos "Filtros de Informe" a otras hojas que teniendo los mismos filtros estos pueden estar como "Filtros de Informe" , "Etiquetas de Columnas" o "Etiquetas de Fila". Leyendo en el Foro encontre que este tema ya a sido visto pero solo vinculando las tablas dinamicas a otras hojas pero no a las columnas de estas. Adjunto el archivo que estaba en el tema anterior que por cierto trae el codigo para que se ejecute en las otras hojas pero especifico lo de l…

Ya se como: Crear controles en tiempo de ejecución. Hacer que de un modulo de clase, controles creados en tiempo de ejecución hereden eventos. Gracias @Antoni Pero me surge la duda ahora, de como hacer que los controles que voy creando a través de un modulo, hereden propiedades como: Caption, BackColor, BackStyle, etc... Hay forma de hacer que en modulo de clase tenga estas propiedades previamente definidas para que lo hereden objetos en un Formulario? ¿Lo anterior puede hacerse en el mismo modulo de clase en donde están los eventos?

Hola buen día!! No he podido hacer con un bucle que se cambie la ubicación de referencia relativa para copiar desde otra hoja. El programa que he hecho (adjunto) funciona como quiero pero quisiera hacerlo en dos líneas y con un bucle que haga que la ubicación de las celdas para copiar la información vayan cambiando. Use contadores, uno disminuyendo de uno en uno (R) y el otro de cuatro en cuatro (C) pero no me funcionó. Al mismo tiempo quisiera ir recorriendo hojas diferentes en el libro. 'Corrida 10 años Lote 171, 173', etc. Esta es una fracción del código: ActiveCell.FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-132]C[-140]" ActiveCe…

HOLA BUENAS NOCHES SOLICITO SU GRANDIOSA COLABORACIÓN EL SIGUIENTE ARCHIVO ES UNA BASE DE DATOS DE PRODUCTOS GENERAR TXT.xlsx NECESITO GENERAR EL TXT PARA PODER SUBIRLOS A UN SISTEMA, LA SEPARACIÓN ES CON "," (COMAS), ME PUEDEN AYUDAR PARA PODER GENERARLO EL ARCHIVO TXT, DE ANTEMANO MUCHAS GRACIAS

hola buenas tardes tengo una duda aver si me pueden apoyar despejando mi duda tengo un userform el cual contiene varios textbox en uno de ellos deseo que solo se pueda dijitar la pabra niño o niña y otro textbox solo acepte numeros del 1 al 12 he intentado con uno pero me marca error solo logro validar una palabra o otra de antemano muchas gracias dato introducido.xls