Buenas a todos/as: Voy a intentar explicarme de la mejor manera posible, para que se entienda lo que quiero hacer. Hemos desarrollado para el trabajo, un programa en vba excel, que a traves de formularios, ingresamos datos y se registran en tablas del propio archivo, tanto para consulta como analisis posterior. Ahora, queremos que este archivo se actualice automaticamente con datos de otros excel, me explico: Nos van a generar diariamente 5 archivos excel que van a contener datos. Estos datos queremos que, diariamente, se registren en el programa que hemos desarrollado (en una hoja especifica) automaticamente y sin necesidad de abrir el programa. Sabem…

Hola a tod@s, Soy muy novato. No veo el error en el código adjunto. ¿ Cual es ? Saludos cordiales.

Buenos días a todos y gracias de antemano por su atención. Tengo una hoja Excel con varias pestañas: en la primera de ellas aparece una estructura y, en la segunda, una base de datos. En la mencionada estructura existen una serie de registros que son la "columna vertebral" de la base de datos. En la base de datos existen unos "ids" los cuales tienen que tener todos los registros de esa estructura. Sin embargo, por diversas necesidades, a veces es necesario cambiar esa estructura y, por ende, todos los "productos" de la base de datos. Al tener muchos registros (ids) en la base de datos se me hace casi imposible hacerlo de forma manual por lo que necesitaría …

Hola , necesito una pequeña ayuda para generar una macro que me compare la columna A en dos hojas diferentes (Hoja 1 y Hoja 2). La columna A de la hoja 1 contiene DNI+ Nombre (123456 Pedro Perez) y la columna A de la hoja 2 contiene solo el DNI (123456) La idea es recorrer con cada dato que hay en la columna A de la hoja 2 , la Columna A de la hoja 1 Si el DNI esta en la celda marcar la celda en verde, sino pasar a la siguiente celda (los DNI pueden estar descolocados) Sino lo encuentra, copiar el dato a la hoja 3 y marcar en amarillo. Adjunto un ejemplo Ejemplo comparar columnas.xlsx

Buenas tardes, He googleado pero no llego a encontrar la solución, Primero quería utilizar la función INDIRECTO para importar datos, pero al ver que no funciona con libros cerrados he optado por una macro, pero no consigo realizarla. Antecedentes: 1.- Varios archivos, 20 aproximadamente, con la misma estructura de nombre, Ejemplo: CasaMalaga, CasaMadrid; CasaValencia 2.- Resultados en el mismo nombre de hoja: Ejemplo Alquiler 3.- En la Misma Celda R8 El problema que pueden ir aumentando el número de ficheros pero siempre van a tener la misma estructura y localización Había pensado utilizar una especie de BUSCARV o INDICE/COINCIDIR, pero…

buenas tardes , estoy tratando de exportar un la data de un sp a un archivo txt sin delimitadores pero me estoy quedando corto. favor podrian ayudarme que me falta.,GRACIAS 'On Error Resume Next Application.ScreenUpdating = False Dim FechaInicial As String Dim FechaFinal As String Dim i As Long FechaInicial = Format(FrmCalendarios.TextBox1.Value, "yyyymmdd") FechaFinal = Format(FrmCalendarios.TextBox2.Value, "yyyymmdd") Call Conectar_database '--------------------------- Dim cmd As ADODB.Command Dim Param1 As ADODB.Parameter Dim Param2 As ADODB.Parameter Set cmd = New ADODB.Command …

Buenas tardes comunidad, me presento, soy Luis, estoy apenas comenzando a adentrarme en el mundo de las macros VBA, y estoy varado con la siguiente situacion: Tengo un formulario en el cual voy a realizar un filtrado de productos para luego de ese filtro resultante, seleccionar un producto y llevarlo a otro formulario (facturacion), estoy usando filtro avanzado, y el criterio de filtro lo tomo de un texbox, y el resultado lo mando a copiar en una hoja de excel, no me esta funcionando me da un error. Aca las lineas de codigo y el error De antemano muchas gracias por la ayuda que puedan aportar. Saludos

Cordial saludo: por favor a quien me pueda colaborar y compartir su conocimiento, le estaré muy agradecido ... Tengo un formulario con un listview, el cual deseo que me calcule la columna " SUBTOTAL ", de acuerdo con los registros filtrados . ya poseo el mismo formulario pero con un listbox y lo deseo implementar y saber el procedimiento para adaptarlo pero con la herramienta de listview. Nota: Anexo los dos formularios para mejor comprensión de lo que requiero. Mil gracias . prueba_filtrarPorFecha_Listviewcalcular1 - copia.xlsm

Hola buen día a todos los que hacen de este espacio una gran comunidad. Actualmente estoy trabajando con con excel y access (Set dataread = CreateObject("ADODB.Recordset")), para realizar extracciones de datos. Pero la base debe pasar por un proceso de limpieza y formato, y mi duda va encaminado a eso: ¿Es posible eliminar columnas usando un proceso similar? ¿Se puede separar texto en columnas identificando un caracter? y si fuera posible ¿Como podría hacerlo?, supongo que debe haber otras formas con otras herramientas, pero me encantaría seguir este proceso. De antemano muchas gracias por interes y el tiempo dedicado a la consulta.

buen día foro bendiciones alguien de a qui sabe como abrir un archivo que no aparece cuando se abre, no se que le active con las combinaciones de tecla este es como parece gracias de antemano saludos a este equipo

Jelow, Vengo con una duda muy tonta, pero que me está dando quebraderos de cabeza en el código (aunque funciona todo bien, para mi sorpresa...) Tengo una tabla, que borro fila por fila, hasta dejarla vacía y dolo dejo, la cabecera y la última fila sin borrar. El caso es, que en el bucle que hago, al darle vueltas al código, veo que esto quizás me puede dar algún error y he lanzado un debug.print para ir testeando detalles. DUDA: Si la tabla tiene CABECERA + FILA CON DATO + FILA FINAL (es decir, 3 filas)... ¿Porque el debug.print de "Tabla".rows.count me da 4? Entiendo que no puede empezar la cuenta en 0 ni en 1, porque …

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 …

Buenas tardes ¿Cómo se puede evitar el parpadeo de pantalla en cada pulsación dentro de un TextBox? Se trata de filtros (AutoFilter) que aprendí en YouTube. Se trata de una tabla (la mía) con 21 campos y más de 20.700 registros. Private Sub Txt_Obra_Change() Dim obra As String obra = "*" & Sheets("Proveed_Detalle").Txt_Obra.Value & "*" Range("A4").AutoFilter field:=18, Criteria1:=obra End Sub Private Sub Txt_Proveedor_Change() Dim proveed As String proveed = "*" & Sheets("Proveed_Detalle").Txt_Proveedor.Value & "*" Range("A4").AutoFilter field:=17, Criteria1:=proveed End Su…

Hola buenas soy nuevo en esto de Excel pero me gustaría que me ayudaran a crear una macro.quiero crear una macro para borrar contenido de celdas cuando llegue a una fecha específica; gracias

Equipo buenas noches, espero esten bien. Soy nuevo en este mundo del vba de excel. En sintesis mi proyecto es crear estados de cuenta para clientes, para ello disene en excel un estado de cuenta, ahora toca salvar en pdf, esa parte esta lista para un solo documento, pero tengo un data validation list con todos mis clientes, la idea es que se cree un loop que vaya nombre por nombre de la lista y me salve un pdf por cada cliente en una ruta previamente definida. les dejo el codigo que tengo hasta el momento para ver si me pueden ayudar: Option Explicit Sub GuardarEstado() Dim nombredearchivo As String Dim NombreHoja As String …

Buenas noches a todos espero se encuentren muy bien La presente es para solicitar amablemente su orientación con lo siguiente: Tego un libro de excel para registrar las horas laboradas en excel, los meses y el nombre del empleado cambian al usar una lista desplegable, sin embargo lo que necesito es ir guardando los datos que se ingresan manualmente en la plantilla y que corresponden a cada empleado y que a medida que cambie de nombre la hoja se ponga en blanco Para mayor comprensión adjunto el archivo Muchas gracias por su gentil colaboración INCENTIVOS LIBRO DE TRABAJO.xlsx

Saludos, quisiera saber si puedo desde una archivo de excel crear una macro que lea un archivo de texto realice la búsqueda por un o dos condiciones y si encuentra el registro me copie el código del cliente en la hoja de Excel, el archivo de texto cambia todos los días llega a pesar mas o menos 10 mb, filas 25702 y columnas 48 Adjunto archivo de texto Archivo.csv

¿Libro bueno para principiantes Macros y VBA con muchos ejemplos?

Buenos días, Ante todo, gracias por adelantado y disculpad que no me haya presentado oficialmente en el foro, soy nuevo (jelow: presentación hecha (?)) Mi caso es el siguiente: Tengo dos hojas en un archivo. La primera hoja es una tabla, con imágenes y otros datos La segunda, una fórmula que devuelve una de las imágenes en la tabla, según el dato encontrado en una lista de validación de datos desplegable de una celda designada (hasta aquí, todo bien, funciona y todo) EL PROBLEMA: Cuando, en la primera hoja se hace scroll hacia abajo y vuelves a la segunda hoja, al hacer click en la celda de la lista de validación, Excel mueve la imagen qu…

Hola a todos; -Os comparto un video y una macro donde muestr como insertar imágenes usando la propiedad Caption en nuestras Labels y ComandButton. Pinchar sobre el enlace. Video: Saludos a todos MCaptionImg.xlsm

Hola buenas tardes . Me llamo gustavo soy nuevo en este foro , gracias por aceptarme en este foro espero aprender estos conocimientos de excel . hay os dejo una problema que no puedo solucionar haber si alguien me puede echar una mano , el problema es que quiero copiar de la hoja NOTAS DE ENTREGA a una tabla que hay en la hoja NOTAS , el problema es que e echo una macro que me pega los datos pero en la hoja NOTAS tengo en la columna D y E notas que yo escribo a mano y cuando en los datos que hay en la columna C y D de la hoja NOTAS DE ENTREGA inserto algun dato cuando ejecuto la macro y copia los datos los datos que e copiado a mano en la fila D y E de la hoj…

Buenas, llevo ya un tiempo rompiendome la cabeza con este problema: Antecedentes: Creo una base de datos de las entradas de una factura, en ella hay un dato que es la fehca =hoy() copiada con .value a la columna x. La columna con sus datos tienen formato "fecha corta" . HAsta aqui todo bien. Pongo un textbox para filtrar los clientes, pero cuando quiero añadir un segundo textbox para filtrar el "AÑO" y no la fecha me resulta imposible sacar el codigo. Si lo uso con autofilter a mano me lo hace perfectamente. Saco el importe del cliente en el año 2023 (por ejemplo). Me resulta imposible hacerlo con textbox. Mi primer textbox lo tengo…

Primero que todo les doy gracias por la ayda que me han brindado en otros momentos. Ahora requiere desde una tabla que me cree en automatico hojas con la información de la tabla. en el archivo adjunto se puede ver un ejemplo de lo que se requiere. En total son mas de 1000 lineas las que tiene el archivo por eso la necesidad del macro. Casos.xlsm

Sub FORMATO() ' ' TEXTO_COLUMNAS Macro ' Sheets("A-S1-001").Select Range("J2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.TextToColumns Destination:=Range("J2"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 9), Array(10, 1)), TrailingMinusNumbers:=True Selection.NumberFormat = "h:mm:ss" Range("K2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("K2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 =…

Dim Titulo$ Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", "https://sitioaverificar", False objHttp.Send "" Titulo = objHttp.ResponseText If InStr(1, UCase(Titulo), "<TITLE>") Then Titulo = Mid(Titulo, InStr(1, UCase(Titulo), "<TITLE>") + Len("<TITLE>")) Titulo = Mid(Titulo, 1, InStr(1, UCase(Titulo), "</TITLE>") - 1) Else Titulo = "" End If MsgBox Titulo Hola a todos, Estoy utilizando esta macro para obtener el título de un sitio http para saber si se encuentra ok o no, funciona a la perfección, pero no me resulta para los sitios https Sólo necesito extraer el título de la…