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…

Buenastengo el siguiente problema: tengo dos textbox en diferententes frame, los cales se activan segun la condicion de un combobox. Estos textbox debiesen insertar datos en una columna con entirerow, segun sea el caso. Envio un ejemplo, que por supuesto no hace lo que yo quiero pero se aproxima ejemplo.xltm

buenas noches, necesito de sus experiencias para este pequeño problema como podría hacer para que esta rutina me permita leer archivo pdf. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub agradezco desde su gentil aporte.

MTV-PPP-001 MTV-PPP-001 MTV-PPP-001 MTV-PPP-001 MTV-PPP-002 MTV-PPP-002 MTV-PPP-002 MTV-PPP-003 MTV-PPP-003 MTV-PPP-003 MTV-PPP-003 MTV-PPP-003 MTV-PPP-004 MTV-PPP-004 Estos datos los tengo en la columna A y sigue consecutivamente hasta un num. N pero yo los voy ingresando cada día, puedo ingresar 5 o 10 o solo 1 registro, y lo que deseo es cada vez que ingrese solo me cree en una direccion X una carpeta MTV-PPP-001 y solo una y despues solo una carpeta MTV-PPP-002 y asi sucesivamente. FAVOR AYUDENME como lo puedo hacer. Muchas Gracias, Slds,

Hola favor necesito de vuestra ayuda!!! mi problema es que quiero adjuntar un solo archivo (ya creados en pdf) a cada dirección de correo que esta en la columna 14 y filas 1 en adelante; y desde el segundo correo me va adjunto el archivo anterior más el correspondiente de fila 2; en el tercero, los dos anteriores, más el de la tercera fila y así sucesivamente. Favor vuestra ayuda en .AddAttachment Les dejo todo el código: Sub SendMail_Gmail() Dim Email As CDO.Message Set Email = New CDO.Message correo = "xxxxxxxxxxx@gmail.com" passwd = "123456789" mensaje = Range("A1") cuerpo = Range("B1") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail…

Buenas a todos Necesito ayuda para automatizar la colocación de unos txt importados a excel. Ya tengo macro para que me importe los txt, pero no consigo lo siguiente: Comento el excel que adjunto y que es lo que intento. La primera pestaña, es para lanzar las macros La pestaña txt 1 se pega los datos del txt importado, así como en la pestaña txt 2. En Hoja2, es donde tengo ya ordenados " a mano" como deberían de quedar los datos de (txt1), y me gustaría que fuera automático. en esta hoja, en la primera columna Suma la fecha + hora ( con formato personalizado), para quedar unido, y luego al ordenarlo de menor a mayor, se colocan el resto…

Hola, soy nuevo en el foro y queria compartir esta inquietud que me ha surgido a ver si alguien me puede ayudar. Tengo la siguiente plantilla en la que he logrado que al ingresar un dato en columna "A" se genere automaticamente fecha y hora actuales en columnas "B" y "C", bien pues ahora lo que necesito es que en columna "E" si la opcion seleccionada es "si" que se generen en columna "F" y "G" fecha y hora actuales respectivamente. A su vez me interesa que una vez ingresado los datos no se puedan modificar y que el dato numerico que se ingresa en columna "A" no se pueda volver a ingresar (que no se repita) a menos que tenga la opcion "si" seleccionada en columna "E". …

Muy buenas a todos: Os sigo desde hace ya algunos años y esta pagina a llegado a ser la mejor herramienta que he encontrado al momento de programar en VBA, os felicito por ella, y por los aportes que han sido realmente enriquecedores por los conocimientos aportados por todos. Pero, en esta ocasión acudo a vosotros a fin de encontrar solución al problema que tengo con VBA en Excel 2019 "Como puedo obtener las características del Sistema Operativo, específicamente con relación a la configuración general: Hora (Formato) Fecha (Formato) Separador Númerico Separador de Tablas etc. Posiblemente ya publicaron algún artículo al r…

buenos dias, hasta hace poco utilizaba excel de manera muy básica, pero he visto que creando una macro puedo hacer que me solucione mucho la vida a la hora de trabajar con el cuadro que tengo, cree la macro y añadi la función sumarcolor, pero a la hora de ponerla en la hoja de calculo no me la reconoce y no se porque...estoy un poco desesperada ya que no veo porque no consigo que funcione, he probado a añadir en la cinta el botón de programador y no me aparece para poder hacerlo, pero tengo todo habilitado para macros y el archivo con la extension que requiere, la cree desde intentar modulo pinchando en el botón derecho de la hoja, no se que le puede pasar estoy un p…

Hola!! Necesito armar un cuadro de lista dependientes, digamos que dos cuadro de lista. En uno quiero que salga las marcar de autos (Ford, Fiat, BMW, Etc) y dependiente de la selección de la marca en el otro aparezcan los modelos de las diferentes marcas. Gracias

Estimados Foristas: Realice un proyecto grande, pero ahora quiero añadir esta nueva tarea: Tengo que hacer un resumen de una base de datos solo que no encuentro como manejar los ciclos para que me haga lo que quiero como resultado. En el archivo adjunto solo les mando un ejemplo de las hojas de excel, y viene la explicación de que es a lo que quiero llegar. La lógica es la que se me complica de como quedaría el código. Saludos y de antemano, muchas gracias. Generar Resumen.zip

necesito un código para copiar la fila de la celda sobre la que estoy situado y a continuación me coloque en la columna A. Gracias de antemano copiar fila.zip

Hola a todos. ¿Cómo crear una macro que permita eliminar (no ocultar) los ítems de una lista desplegable una vez estos hayan sido seleccionados? Muchas gracias por su ayuda. Subo un archivo para mayor comprensión. Eliminar item de lista desplegable.xlsx

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 .

Hola: Necesito eliminar las filas que contengan determinadas palabras en una columna concreta. Y quisiera poner en un rango (p.ej. A1:A5) las palabras a buscar. Las únicas condiciones son poder elegir la columna sobre la que buscar y que, con solo escribir una parte de la palabra (en A1:A5) -tanto en mayúscula como en minúscula- la macro funcione ¿Alguna idea? Adjunto ejemplo similar un 90%. Saludos Matriz de busqueda.rar

Hola, que tal soy nuevo en esta comunidad, de la cual he tomado muchos ejemplos para algunos trabajos, bueno, lo que me trae por aca es, el filtrado de datos para una base de resguardos, solo que filtro, pero no he encontrado como hacer para que tome solo un dato de los que se encuentren repetidos, anexo archivo para un mejor entendimiento. Resguardo.zip

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, Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes: Dim inicio, final As Integer inicio = InputBox("Indique Registro Inicial", "Inicio") final = InputBox("Indique Registro final", "Final") b = inicio For i = inicio To final Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" & Label1.Caption = Range("a1") Sheets("Hoja1").PrintOut b = b + 1 Next i En este caso el label toma el val…

Hola amigos espero puedan ayudarme con esto, paso a contarles Tengo una Aplicación que me genera un número al cual guardo en un archivo .txt, luego tengo una hoja excel la cual me genera un Codigo PDF417, o sea le ingreso en una celda algun dato y presionando un boton GENERAR me codifica la información. Lo que quiero hacer es agregar un boton que sea LEER para que me lea desde el archivo .txt el número guardado y lo inserte en la celda desde la cual generaré el codigo PDF. Espero me hayan entendio y espero sus comentarios. Saludos.-

Hola a todos: Quisiera diseñar un macro que me permitiera unir 20 columnas de 15 filas y luego ordenar los números de la macrocolumna de forma que yo pueda saber las veces se repite cada número y mostrar el resultado en una tabla con la disposición de las veces que se repite cada número. Saludos

Ayuda con Llenado de reporte (Rango Dinamico) Amigos necesito su valiosa colaboracion!!! Bien el detalle es este. En hoja Report tengo los articulos de los cuales necesito la informacion, que se encuentra en la hoja base. He generado una macro la cual me copia la informacion para la hoja report. pero si agrego una fila (Nuevo Item) en cualquier categoria tengo que cambiar el codigo para modificar los rangos, esto es tedioso cuando son alrededor de 30 categorias me entenderan :miserable:. Habria alguna manera de hacerlo dinamico? y de esta manera no tener que cambiar los rangos cada vez que se agrege un nuevo Intem , espero que puedan ayudarme al respecto. Anexo archi…

Hola estimados foreros, recurro nuevamente a uds porque sé que pueden hacer "magia" con la programación de códigos y que me pueden ayudar con lo que necesito... procedo a explicar...cuando abran el libro que adjunto éste se abrirá en una hoja llamada "Base" que es donde están todos los datos que fueron exportados desde otro software y pegados en esta hoja ("Base") y que a partir de estos datos se crearán algunos cálculos con estadísticas básicas al presionar el botón "Procesar Datos"... al finalizar todo este proceso de cálculos... quedará visible una hoja llamada "Estadística_Básica" que es la que uso como "reporte" ahí verán un gráfico que debería quedar igual al gráfi…

Hola a todos buen dia. Tengo una pregunta y un verdadero kilombo espero me puedan ayudar u apoyar, veran tengo una macro que genera varias hojas dentro de un libro lo que me gustaria hacer es que por cada hoja que exista en el libro me haga un libro nuevo, es decir si son 50 hojas dentro del libro, me genere 50 libros nuevos copiado dentro del libro la hoja que le pertenece y que el libro se guarde con el nombre de la hoja. Estaba empezando con la macro pero la verdad me eh perdido loco! Sub insert() For i = 2 To Sheets.Count Sheets(i).Select If ActiveSheet.Name <> "PRINCIPAL" Then Worksheets.Add Else End If Next End Sub […

web browser PDF Bueno amigos tengo una macro en el cual me marca erroar la hora de ejecutar el userform, Adapte un codigo y un diseño de la ayuda de aqui de nuestros compañeros del foro ya cambie variables peor la verda no me corre me sale el siguiente error. espero puedan ayudarme a resolver mi problema. Gracias Run time error ´380 Couln not set the list property. Invalid property value

[buenas tardes, A ver si alguien me echa una mano con esta macro en excel 2003 (donde funciona perfectamente) y al ejecutarla en 2007 me da un error '9' en tiemp de ejecución La macro, lo que hace es copiar hojas de un libro a otro libro con el mismo nombre que la hoja. Señalo la sentencia donde da el error ]Sub Macroañadehojafichero() ruta = ActiveWorkbook.Path nomor = ActiveWorkbook.Name For h = 1 To Sheets.Count nomh = Sheets(h).Name On Error Resume Next Workbooks.Open Filename:=ruta & "\" & nomh & ".xls" nh = Sheets.Count Windows(nomor).Activate Sheets(nomh).Copy After:=Workbooks(nomh…