Espero me puedan ayudar con lo siguiente, al descargar una informacion de la pagina web( crtl+e, ctrl+c, ctrl+v) se descarga una tabla con la informacion almacenada de dos maneras, una en las celdas de manera regular y la otra en cuadros de texto, son serca de 1000 cuadros y para manipular esa informacion se hace muy tardado hacerlo una por una, de que manera podria extraerla toda sin la necesidad de hacerlo manual?, adjunto excel para ilustrar problematica, saludos! Libro21.xlsx

Alguien sabe como leer y escribir en una var. de entorno, desde VBA excel?. Leer: Probando con la función Environ("variable"), me retorna una cadena vacía (a dicha "variable" la cree en DOS con el comando set variable=valor). Escribir: No he encontrado información sobre como puedo escribir en una var. de entorno desde VBA!! Gracias!

Por favor necesito ayuda, es un xml que tiene 4 conceptos distintos y quiero descargar cada concepto en cada celda de excel perome marca error en la palabra cfdi y quisiera solucionarlo es este error le doy click en depurar y asi aparece se los agradeceria mucho

Alguien sabe si existe código vba para hacer copias de archivos de una carpeta a otra. En este caso necesito una macro que me copie varios archivos pdf de una carpeta a otra conforme los va encontrando. Ya tengo el código para encontrarlos. Lo que necesito es el código para copiarlos. Gracias de antemano por su ayuda

Buenos días, soy nuevo en estoy de programar en excel, tengo un macro de evento de una lista desplegable, la cual si se le inserta un valor que no esta en la lista lo agrega automáticamente, aquí esta el código Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$5" Then Exit Sub On Error Resume Next fil = Application.WorksheetFunction.Match(Target, Sheets("Hoja2").Columns("B:B"), 0) If fil <> "" Then Exit Sub uf = Sheets("Hoja2").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1 Sheets("Hoja2").Range("B" & uf) = Target Sheets("Hoja2").Range("B5:B" & uf).Sort Key1:=Sheets("Hoja2").Range("B5"…

Hola a todos. Necesito ayuda sobre este asunto. Tengo una lista de nombres en una tabla. Por ejemplo así. ID_RH Orden Período Fecha Alta O.T. Clave Nombre Completo 76231 1 00 10/05/2018 0308 101224 ANDRES SANZ ORTIZ 76229 2 00 20/12/2006 0308 101222 ANTONIO LOPEZ RODRIGUEZ 76234 1 00 04/04/2017 0308 101227 BERNABE RIUZ TORNE 76235 2 00 13/11/2017 0318 101228 BRYAN RUIZ CHERS 76236 1 00 03/07/2017 0308 101229 CARLOS RUIZ LOPEZ 76237 2 00 05/06/2018 0318 101230 ERNESTO FERNANDEZ SANZ Quisiera con un Inputbox insertar un nombre y apellidos (por ejemplo DIEGO RUIZ CAMPOS) y este buscara en la lista como la del e…

Buen día estimados, Solicito su valioso apoyo para orientarme con lo siguiente: Quiero copiar un archivo Excel de una carpeta a otra por medio de una macro, sin embargo este proceso lo realizan diferentes usuarios por lo que el directorio del archivo cambia de acuerdo al usuario de red, tengo el siguiente código VBA pero no funciona: FileCopy "C:\Users\%Username%\Documents\SAP\SAP GUI\MB5L.xls", ThisWorkbook.Path & "\MB5L.xls" %Username% puede ser Rodrigo, Lorena, etc. Gracias de antemano por su apoyo.

Hola a todos, tenía intención de crear una intranet utilizando php + sql, pero el sistema es poco "dinamico", así que viendo algunas páginas de microsoft y tal me entró unas dudas antes de aventurarme a realizarlo, sería posible conectar un excel a una base de datos en acces a través de la red local? Que es lo que necesitaría? Sería muy complicado? tengo conocimientos de vba y demás, pero me gustaría información general para saber por donde me debo guiar. Gracias de antemano

Buenos días, tengo el siguiente código que intenta copiar el mismo rango desde el archivo "DATOS DEL SISTEMA" hacia el archivo "Escenario" en la hoja Datos, siempre y cuando el nombre de la hoja del primero sea igual al encabezado de columna de la hoja Datos del segundo archivo, la intención es que si falta alguna variable el proceso no se detenga y salte al siguiente con datos, y luego en el archivo Escenario, elimine las columnas que queden sin datos, ya que no todos los días hay datos para todas las variables, esto cambia día a día. Necesito que en la hoja datos solo aparezcan las columnas en forma consecutiva co n las que tengan información. El problema es que la macr…

Hola gente acudo a ustedes ya que realmente no se que hacer; tengo un userform que al ingresar "x" valor en el textbox1 buscara en la base de datos especificada y devolvera el resultado en textbox2. Si bien el formulario funciona, lo hace solo si busco numeros, es decir si busco el numero "1" me devuelve corretamente el valor que necesito, pero si busco por ejemplo "una palabra" ya no la encuentra. el código es el siguiente Private Sub CommandButton1_Click() On Error GoTo error: nombre = Application.WorksheetFunction.VLookup(VBA.CInt(Me.TextBox1), Sheets("datos").Range("A:B"), 2, 0) Me.TextBox2 = nombre: Exit Sub error: Me.TextBox1 = "": Me.TextBox2 = "" Me.T…

Buenos dias , quisiera saber si es posible mediante la funcion grabar macros realizar una macro utilizando el autofiltro de excel para poder imprimir listados actualizados un determinado dia o si hay otra manera. ejemplo que con un boton me imprima las personas que estan al dia. o vencidos o por vencer.adjunto un archivo con diferentes estados con filtrar como ejemplo muchas gracias consulta macro filtro.xlsx

Hola compañeros del foro, Tengo el siguiente problema de novato con el presente array que he creado: Este es el código: Option Explicit Option Base 1 Sub adminTemp() Dim admin As String admin = Array("...", "...", "...", "...", "Administrador", "Conectado", "...", "...") Dim fila As Long fila = Sheets("CONEXIONES").Range("A1048576").End(xlUp).Row Dim columna As Byte For columna = 1 To UBound(admin) If Sheets("CONEXIONES").Cells(fila, columna).Value = admin(columna) Then Sheets("CONEXIONES").Rows(fila).Delete Shift:=xlUp Next columna End Sub En otras palabras, me dice que el problema está en la declaración de la …

Realice la instalacion del programa Simular, que aporta macros para realizar la simulacion montecarlo. Resulta que excel no me permite ejecutar ninguna de las macros y me salen los siguientes errores: "Se ha producido el error ´1004´en tiempo de ejecucion: No se puede ejecutar la macro "registro.xlam!auti_open"Puede que la macro no este disponible en este libro o que se hayan desabilitado todas las macros" desde el centro de confianza tengo todas las macros habilitadas, el tema no temina ahi sino que al darle finalizar me permite trabajar pero no me corren las macros del programa. Luego cuando cierro el excel me salen las siguientes ventanas Una dice " Error de compi…

Buenos dias para todos, quereia molestarlos con la siguiente consulta pues no he podido detectar el error que tengo entonces acudo a su conocimiento. En el archivo adjunto aparecen dos formularios, el primero es donde se ingresa un documento de la hoja detalles, y al buscar aparecen los datos de esta hoja, luego mas abajo aparecen varios optionbutton en donde al seleccionar alguno me trae los valores de cada una de las hojas siguientes, es mas de consulta pero al escoger uno de estos valores y de seleccionar el boton azul de copntacto se me va para el segundo formulario en don escojo por medio de varios optionbutton la novedad a grabar, esta me desplega el combobox de r…

Alguien me podria decir como adaptar esta macro para poner 3 numeros de serie y que funcione en los 3? Es una macro que reconoce el numero de serie del disco duro y si no es igual, cierra la aplicacion. Private Sub Workbook_Open() Dim Serie As String Dim FSO As Object Dim DiscoDuro As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set DiscoDuro = FSO.GetDrive("c:") Serie = DiscoDuro.SerialNumber If Serie <> "XXXXXXXX" Then MsgBox "ESTE EQUIPO NO ESTÁ AUTORIZADO PARA EL USO DE ESTE PROGRAMA" 'Application.Quit End If Set DiscoDuro = Nothing Set FSO = Nothing End Sub [/CODE] Y esta es la macro para ver el numero de serie del disco d…

Hola a todos, estoy dándole vueltas y vueltas y no veo por donde meterle mano. Lo que pretendo es distribuir un texto de forma homogénea dentro de un textbox miltiline, es decir que una vez digitado todo el texto pulsemos Enter y el contenido del mismo quede distribuido tal cual se muestra en el formulario incluido en el archivo adjunto. El Textbox tiene en este caso un límite de 30 caracteres por linea. Alineado Textbox.xlsm

Buenas a todos Les consulto lo siguiente: Tengo dos archivos en los cuales concilio los movimientos de uno en el otro: Ejemplo: ambos archivos tienen las mismas columnas: Fecha, numero e importe. Lo que hago es lo siguiente: igualo en variables cada uno de los campos del primer archivo (Fecha, numero, importe) y recorro con la propiedad offset en el segundo archivo buscando las mismas coincidencias (Fecha, numero, importe). Cuando termino de recorrer el segundo archivo voy al primero y continuo con la siguiente fila de datos y asi sucesivamente. En si, me funciona pero si los archivos son bastantes extensos, el proceso se demora. A alguien se le ocurre alguna otr…

Recurro a ustedes con la siguiente duda. Estoy haciendo un complemento, pero tengo un problema. Necesito que el formulario activo detecte el cambio de hoja, para que se ejecute una macro. Existe alguna forma de realizar esto ¿? Gracias de antemano

Muy buenas a tod@s quisiera realizar una liga en la cual me permita determinar a parte del numero de jugadores el numero de partidas que se ha de jugar para clasificar. buscando por el foro he encontrado una de Bigpetroman, que se ajusta bastante a lo que necesito pero no soy capaz de poder hacer para que indicándole el numero de rondas que quiero que se jueguen me realice un sorteo aleatorio y sin repetición en la hoja SORTEO. Espero su ayuda y muchas gracias de antemano. TORNEO LIGA.rar

Buenas noches, Necesito una ayudita. Tengo un archivo excel con una macro que convierte los datos introducidos en columna A y B en fechas cada vez que introduzco una fecha sin barras. Por ejemplo, si introduzco 020219(ddmmyy) me lo convierte en 02/02/2019 (dd/mm/yyyy) automaticamente. Solo lo convierte si introduzco los datos uno a uno. Necesito cambiar la configuración para que haga lo mismo pero solo si pincho en un botón de comando. Si no pulso ese botón no haga cambios Este es el código que utilizo con el metodo " Worksheet_Change" y Tarjet Private Sub Worksheet_Change(ByVal Target As Range) Dim rngData As Range Set rngData = Range("A2:…

Agradeciendo a todos los del foro y al administador por crear esta ayuda de excel. bueno yo tengo una base de datos"base14" es donde en cada "fila de la celda escribo un total de 15 expedientes como maximo dependiendo la labor a trabajar , aveces son menos de 15 y despues tengo varios archivos en word con "15 cedulas, ejemplo: CED 1,CEDE2,...C15 la cuales me encargo de hacerles la fusion de la combinacionde de correspondecia, ahora quisiera que me ayuden para crear una macros en el cual yo con un solo boton pueda hacer ese paso y dependiendo la cantidad que yo tenga en la fila en excel me mande al archivo de wor "CED" que corresponda la cantidad Ejemplo:CED 15 , CED 09…

Beunas noches. Tengo un formulario en el cual llevo trabajando algunos días, bueno bastantes. Lo que pasa es que tengo una macro que guarda los datos del formulario a una hoja de excel, pero al darle clic en registrar me sale un error "Se a producido el error 13 en tiempo de ejecucion, No coiciden los tipos" Si alguien pudiese revisar mi archivo para decirme en que estoy mal. Se los agradezco.

Buenas, Con excel 2003 tengo un formulario cuyos eventos 'enter' (obj_GetFocus) y 'exit' (obj_LostFocus) controlo desde un modulo de clase salvo en los controles internos (textbox, commandbutton...) del control Multipage. Hasta llegar a el (indice de tabulación: 15) paso por controles 'textbox', 'optionbutton' y 'cuadros combinados' y en todos consigo poner el valor en el formato que quiero, pintar de otro color al entrar (.BackColor) y salir para saber en cual estoy, guardarlo en una columna de una hoja concreta si el valor cambia... salvo cuando llego al multipage que nada funciona y no hace por ejemplo lo anterior indicado en los distintos controles existentes en cad…

Muy buenas tardes, les pido el favor para ver si ustedes muy amablemente me pueden colaborar con la siguiente macros: una macro que busque una identificasion en varias hojas en excel, que salga un mensaje que diga si o no la encontro, si encontro dicha id , que copie la palabra "si" en una celda de una hoja destino ya seleccionada por el usuario y que siga copiando la busqueda debajo en la misma columna de esa hoja destino , al igual lo mismo en las demas busquedas de las otras hojas y arrojar el resultado en las otras hojas destino tambien. - - - - - Mensaje combinado - - - - - les agradeceria mucho que me colaboraran con esto. a todos buen dia. gracias. libro2.…

Hola a todos! Tengo un problema ya que no se como generar esta parte de la macro, por ejemplo si tengo un libro llamado Capital Federal y su unica hoja tambien se llama Capital Federal, y tengo una macro que genera hojas con el nombre las ciudades de la Argentina, necesito saber como hacer que de esa nueva hoja llamada Capital Federal busque el libro Capital Federal y agregue la hoja nueva SIN REEMPLAZAR LA HOJA YA EXISTENTE, se puede lograr esto? Aprecio mucho su aporte, ayuda u orientacion. Desde ya muchas gracias. SAludos cordiales. Gerardo A.