Hola buenas Tardes tengo este codigo y solo me funciona para poder seleccionar un archivo TXT, y cargarlo a una tabla en sql server , Me gustaria poder seleccionar varios archivos txt y poder insertarlos a la misma tabla este es el codigo que uso donde podria modificar. Public Function ImportTextFile(cnn As Object, _ ByVal tblName As String, _ Optional FieldDelimiter As String = "|", _ Optional RecordDelimiter As String = vbCrLf) As Boolean Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim sFileContents As String Dim iFileNum As Long Dim sTableSplit() As String Dim sRecordSplit() As String Dim lCtr As Long Dim iCtr As Long Dim iFieldCtr As Lon…

Estimados: Como están, necesito saber si alguien de este foro sabe utilizar macros para extraer datos del programa MS project o viceversa, para ser más específico, necesito generar una macro para extraer del MS Project el "PV o CPTP" acumulado por corte de fecha (Ej. cada quincena o semanalmente, meses, etc.) y así con los datos extraidos construir una Curva S, se que hay una forma, he estado buscando por la web y no he encontrado nada, si alguien conoce acerca del tema, pasenme el dato. Saludos.

buenas tardes, tengo el siguiente código: '---------------------------------------------------' '--OPTION EXPLICIT--------------------------' '---------------------------------------------------' ' Option Explicit Dim tWebBrowser As Object ' '---------------------------------------------------' '--NAVEGADOR (CONSULTAR SALDOS '--BANCARIOS)---------------------------------' '---------------------------------------------------' ' Private Sub Worksheet_Activate() Range("C10").Select If Range("D3").Value <> "" Then If IsNull(Range("D3").Value) Then Range("D3").Value = "Banco online sin comisiones para Particulares y Negocios - ING DIRECT…

tengo unos comprobantes de pago en PDF y una lista de empleado con código de empleado en EXCEL. no se si abra o se podrá hacer un marco que extraiga un comprobante por el código de empleado para así poder imprimir comprobantes específicos y no todos lo que están en el PDF. no se si me he explicado. adjunto pdf y listado. saludos. Comp Pago 1Bis Enero 10002 Ambiente.pdf Lista de Empleados.rar

Buenas tardes compañeros. Soy nuevo en el lenguaje VBA, pero tengo unos proyectos que me gustaria mucho poder optimizar. ojala puedan ayudarme, les comento. Tengo un documento, en la hoja 1 hay una tabla con fecha inicio, fecha fin , nivel a ,nivel b y rango. en la hoja 2, columna A y B tengo una serie de fechas con sus respectivos valores. en la columnda D tengo las fechas de días inhabiles del calendario de la empresa... Lo que necesito es una FUNCION que: 1. cuente los días laborales entre dos fechas seleccionadas ( como si hicieramos un días.lab, seleccionando nosotros las fechas ) 2. si hay días inhabiles entre semana, que los cuente y que les asi…

Buenas, mi nombre es Larry, soy de Venezuela, actualmente diseñe un archivo para realizar nomina, actualmente lo utilizo por quincena (son dos periodos de pago) lo que aquí llamamos 15 y 30 (en referencia a los periodos de pago). La hoja funciona muy bien, pero hay muchos procesos que se deben hacer manual, en ese aspecto no se mucho sobre macros y quisiera saber si me podrían ayudar, para la automatización del libro. Características del Libro: -Hay una hoja para los datos de la empresa, sirve para los encabezados. - Tengo una Hoja donde están todos los Datos y Calculos de los trabajadores, nombre, identificación, computos de pagos, etc esta hoja se al…

buenas noches, tengo una macro para navegar por paginas web, la cual siempre me ha funcionado bien, pero siempre me ha costado dar con los objetos web he intentado con las siguientes sentencias sin éxito para el color: c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-hhw-c116")(0).innerText y para el valor 1,99 c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-xsn-c116")(5).innerText c.Value = htmlDeRespuesta.getElementsByClassName("col-xs-2 price")(0).innerText c.Offset(0, 3).Value = htmlDeRespuesta.getElementsByClassName("tableHere")(0).innerText pero no he podido dar con el valor de ninguna form…

Hola buen día. Gracias a todos por su ayuda, dsisculpen es que tengo una base de datos de la cuál quiero tomar algunos datos y pasarlos a otra hoja, eh intentado resolver con fórmulas pero las verdad no eh podido, se ve muy mal con fórmulas, lo que quiero hacer es que la hoja llamada "Basa de datos", me pase los datos a la hoja llamada "Pagos realizados", pero solo me pase las celdas que están en color verde en la hoja "Base de datos", que me pasara solo el Nombre, Fecha, Seudonimo, Producto, Método o Forma de pago, Costo de Producto y Costo de envió. La verdad ya no se como hacerlo con macro, ojala me puedan orientar un poco, gracias por su ayuda. Esta es la macro que…

Acudo a ustedes por qué no soy muy buena para programar macros y quisiera que me ayudaran a crear una que me permita filtrar varias tablas dinamicas según el filtro de la tabla dinamica principal. Tengo cuatro tablas dinamicas en cuatro hojas diferentes. Una de ellas es la hoja principal y quisiera que la macro filtre (y que permita selección multiple) todas las tablas dinamicas, según la selección que se haga en la hoja principal. Las cuatro tablas parten de la misma base y tienen los mismo filtros: "Cost Center" y "Sponsor". Creen que me puedan ayudar? De antemano muchas gracias! Ejemplo.xls

Buenos dias desde Mexico para todos. Recurro nuevamente a ustedes para solicitar su ayuda. Tengo un archivo con varias hojas(pueden ser 1,2,3...n) de las cuales quiero pasar algunos datos de cada una de las hojas a una hoja que se llama "Explosion de materiales" la siguiente hoja se llama "Explosion de Avios" y la ultima se llama "Listado de lotes" Estas 3 ultimas hojas no las tomaremos en cuenta para nada, a excepcion de la hoja llamada "Explosion de Materiales" que es donde iran los datos recolectados. Cabe mencionar que existe o existen varios temas con mi misma inquietud pero no he podido adaptarlo a mis necesidades. Dentro del archivo vienen los datos que se pret…

deseo ingresarle a un textbox un calendario que me permita escoger una fecha para luego llevarla a una hoja de excel

Buenas tardes, Tengo el siguiente inconveniente, un archivo de varias líneas a partir del cual necesito que se generen varios archivos, en función del valor de una columna. Por lo que busqué en el foro, hay un tema relacionado con una macro que genera los archivos, pero que el criterio para separarlos es la cantidad de filas. https://www.ayudaexcel.com/foro/threads/dividir-gran-archivo-excel.27398/ Luego encontré otro que divide un archivo en varias hojas: https://www.ayudaexcel.com/foro/threads/macro-para-dividir-una-hoja-en-varias.31783/#post-150267, a partir del valor que aparece en una columna. Lo que necesitaría es que, siguiendo con el ejemplo del primer link (…

Estimados amigos del foro, la situación de este tema es que tengo una nomina general en el que tengo una lista para 70 estudiantes, en el ejemplo solo tengo algunos con resultado aprobado, suspenso o reprobado me gustaría poder hacer uso de los botones para poder separar en nominas de aprobados, suspensos y reprobados de los 70 que pueda tener en realidad, como puedo lograr esto? Subo el archivo para que lo vean Agradezco su gentil apoyo Separar nominas segun resultados.rar

hola buenos dias a todos estoy tratando de buscar un patron numerico entre los cuadros de acuerdo a sus movimientos cada vez que cambie el numero y primero me gustaria que los numeros queden en color blanco como en el ejemplo del primer cuadro para visualizar mejor sus movimientos y lo segundo seria que hiciera el movimiento de color rojo en los cuadros de acuerdo a cada celda de la columna A en vez de lo que esta haciendo con las flechas actualmentey como dije desde un principio busco un patron numerico tomando como ejemplo los movimientos en la tabla de ajedrez si alguien tiene una gran idea para identificar o que me acerque al patron numerico se los agradeceria mucho …

Hola amigos, estoy haciendo una base de datos en acces la cual quiero ingresar los datos desde un formulario en excel ya tengo le codigo, pero al correrlo me marca Error 13: No coinciden los tipos En esta linea es donde marca el error: Set reg = bd.openrecordset("select * from analisis", dbOpendynaset) Gracias por su ayuda!!

Saludos, tengo que copiar unas filas de hojas diferentes en una hoja resumen (hoja1). Algunas de estas celdas estarán combinadas y podrán sufrir cambios y modificaciones de combinación de celdas ampliando o reduciendo e incluso de colores o formatos...la hoja1 no se tocará, y recoge toda la informacion de las hojas2 y 3 que se cambiarán esa filas (matrices) a su antojo sin que dejen de ser filas con una extensión de antemano fijada. creo que el ejemplo que adjunto es claro. de antemano y como otras veces gracias por los maquínas de este foro que siempre me resuelven todo. COPIAR CELDAS COMBINADAS CAMBIOS COLORES.rar

Hola Estimados. En esta oportunidad le escribo para ver si de casualidad alguien de ustedes me podria faciliar un plan de mantenimiento de algun equipo en donde la planificacion este hecha en excel. Gracias de ante mano

Necesito su ayuda estimados: En un formulario que tiene un combobox para seleccionar unas hojas y dos textbox para ingresar las fechas correspondientes FechaInial y FechaFinal y un botón para ejecutar acción y que me visualice en un listbox. les adjunto es archivo avanzado pero no me filtrar ... la informacion que deseo. Porfavor necesito de su ayuda. Ayuda-busqueda por fecha.zip

Hola a todos, gracias de nuevo por ayudarme. Tengo una macro que me crea una carpeta según el nombre de una celda en éste caso D1: Dim Nom_Carpeta As String Nom_Carpeta = Range("D1").Value MkDir "C:\HPRPACIENTES\" & Nom_Carpeta Lo que quiero es crear una macro que me permita mover esa carpeta a otro lugar. En resumen tendría que poder mover la carpeta (cuyo nombre es igual a D1) a otro lugar. Gracias y espero que puedan ayudarme

Buenos días. Estoy intentando aplicar un formato determinado a tres texbox distintos en mi formulario de Alta Proveedores. Utilizo el siguiente código: TextBox2 = Format("# - ##.###.###") ' aplica formato C.I.F. X - 00.000.000 TextBox3 = Format("# - ##.###.### - #") ' aplica formato N.I.E. X - 00.000.000 - X TextBox4 = Format("##.###.### - #") ' aplica formato D.N.I./N.I.F 00.000.000 - X Pero no lo hace, alguien podría aclararme un poco. También me hago la pregunta de si el hecho de que los formatos lleven letras influye a la hora de realizar el código. Un saludo IVA.rar

Hola.. Como estan..Una pregunta Algún código VBA Donde Pueda Dar Click y Me Muestre Por Ejemplo la pagina 4.. Que solo Sea Para Visualizar Que no se pueda Editar..solo ver como va... Pese a que tengo un Formulario que me alimenta La pagina 1 y quisiera ver Como va.. Gracias

Estimados: Como están, necesito sacarme otra duda, se me ocurrio agregarle a un listbox un código scroll para desplazarme verticalmente (arriba a abajo y viceversa) pero con el scroll del mouse, lo he intentado con muchos códigos que vi en varias webpages, en los cuales me daban un código que debian ser ingresado en el listbox del userform creado y otro código que debía ser ingresado en un módulo creado, claro que habia que cambiar los nombres para que haya compatividad, pero al correrlo no hace nada de nada o bien se colgaba el excel, por casualidad alguien ha utilizado estas propiedades, porfa una ayudadita.

Hola buenas tardes a todos. He estado buscando y no he encontrado nada sobre ello. Vereis tengo un código VBA para que me indique un número con 3 cifras significativas (ojo no 3 decimales). Por ejmplo: 123 65.1 8.89 0.235 0.0457 etc El código es el siguiente: Sub Macro2() Range("b2").Select While Not IsEmpty(ActiveCell) cifra = ActiveCell.Value a = 0 i = 0 While (a = 0 Or a = ",") i = i + 1 a = Mid(cifra, i, 1) Wend If i = 1 Then If InStr(1, Mid(cifra, 1, 3), ",", vbBinaryCompare) Then cifra = Left(cifra, 4) Else cifra = Left(cifra, 3) End If Else cifra = Left(cifra, 2 + i) End If ActiveCell.Offset(1, 0).Value =…

Muy buenas tardes tengan, queria preguntar si sería posible seleccionar un archivo excel desde otro archivo excel y copiar totalmente su contenido, algo así como cuando le das a abrir en las opciones y abrir. No sabría que dejar de ejemplo, así que os dejo esto mil gracias Copiar.zip

Buenas tardes, he generado una plantilla en word para que al seleccionar una fila en excel los datos contenidos en ella se reemplacen en la plantilla, logro hacer que la primera fila llene completo y sin errores mi plantilla, pero al momento de exporar la segunda fila me aparece el error de "El parametro de la cadena es demasiado largo" Sub GenerarWordFila() ruta = ThisWorkbook.Path & "\Marksheet Template2.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Add Template:=ruta, NewTemplate:=False, DocumentType:=0 For i = 2 To 42 busqueda = Hoja2.Range("D" & i).Text remplazar = Hoja2.Range("C" & i).Text W…