Buenos días escribo en esta ocasión para que me guíen puesto que deseo extraer la información de 400 informes, pero solo algunas celdas, la celda en este caso es C18 de todos los archivos, en este momento solo necesito esa celda, pero pronto necesitare sacar la información de otras que aun no conozco. Todos los informes tienen la misma estructura, necesito saber como luego de tener el codigo macro VBA, como irlo modificando de acuerdo a la necesidad de celda. Saludos PD: vi un post muy parecido en el cual tratan lo mismo pero no se como modificar el codigo. el codigo que sale en el post es el siguiente: Option Explicit Sub RecuperaDatoA2_y_I2_Opcion_1() 'Usando …

Hola, buenas tardes. No encuentro la solución para extraer información dependiendo del color de fondo de la celda. En el archivo adjunto se observa claramente el ejercicio que agradeceré si me pudieran ayudar. Puse dos colores (Columnas de salida) como resultado de la macro. TEXTOS EN CELDAS DE COLOR.xlsx

Hola buen día, Estimados tengan una excelente mañana, favor su ayuda si se puede extraer el formato de celda personalizado (solo la moneda) a otra celda. En la columna A y B tengo los siguientes datos y necesito extraer la moneda a la columna C y que mede el resultado en la columna D, he realizado un código muy largo me gustaría saber si se puede optimizar o alguna mejor forma de hacerlo. mil gracias HELP.xlsm

Buen día a todos, soy principiante en el foro e intermedio en EXCEL, les cuento lo que necesito: Tengo unas bases de datos que contienen una sola columna con unos 100.000 datos (todos numericos) y con esta columna tengo que crear n archivos de n cantidad de datos cada uno (por ejemplo ahora yo copio y pego de a 2.500 datos) alguien me puede guiar como puedo automatizar este proceso??? AHI DEJE EL ARCHIVO ADJUNTO DE EJEMPLO, LO TUVE QUE HACER RAR PORQUE NO LO PODIA SUBIR DE OTRA FORMA saludos Pablo ejemplo 42k de datos.rar

Hola buenas noches. Tengo la necesidad de en un libro 1 hacer una lista indice de las hojas que contiene otro libro (X), En mi libro1 tengo una hoja llamada lista. ahí me gustaría poder en listar los nombres de todas las hojas que contiene otro libro. Pero el nombre del libro en la que debo extraer los nombres esta escrito en la celda D2 de mi hoja basic. Espero me puedan ayudar con alguna opción. Muchas gracias Libro1Donde va lista.xlsm

Hola a todos nuevamente, ésta consulta no es que sea para Macro Antonio pero es quien me dió éste archivo con código, y como el tema vuelve a ser el mismo practicamente por eso lo nombro a él primero, pero indudablemente cualquier compañero puede solucionarlo, bueno cualquiera que sepa de ésto claro, yo sería imposible. Bueno supongo que se acordará, y es el tema de separar los nombre que ya me realizó, y es que ahora como los nombre no van en la columna B sino en la A, habría que cambiar algo del código para que tome esa columna como referencia, es decir, de la columna A extraemos los nombres de A1 y los ponemos en otra hoja en filas distintas hasta acabar con todos los…

Hola todos: Tengo un subform que contiene "checboxs" de peajes, se marca si se paso por el y tienen su tarifa correspondiente. El form se crea automáticamente a partir de una tabla de la hoja "peajes", el problema es que necesito guardar el nombre y el valor de los peajes marcados como "verdadero", ya que el Form principal al momento de ingresar los datos, copia los datos en una hoja pero ADEMAS hice un procedimiento que copia algunos de los datos en un libro "ConductorX"(Creado) en una ruta especifica. Hasta el momento no he podido guardar ni los nombres ni el precio y no encuentro el error... *el subformulario se llama "formulariopeajes" y esta contenido dentro de…

Por favor el código abajo descrito , necesite que funcione con tablas Sub REP_FUNC() 'BUSQUEDA POR CEDULA Set h1 = Sheets("DATA") Set h2 = Sheets("REP-FUNC") u2 = h2.Range("F" & Rows.Count).End(xlUp).Row If u2 < 2 Then u2 = 2 'linea de inicio h2.Range("F" & u2 & ":N" & u2).ClearContents 'h2.Range("F" & u2 & ":K" & u2).ClearContents j = 2 celda = "A1" 'CELDA DE LA CONSULTA Set r = h1.Columns("E") 'COLUMNA DE CONSULTA DATA Set b = r.Find(h2.Range(celda), lookat:=xlWhole) If Not b Is Nothing Then ncell = b.Address Do h1.Range(h1.Cel…

Hola amigos del foro, utilizo actualmente el siguiente código para extraer un rango datos de todas las hojas de un libro y colocarlo en otra hoja. Este libro se hizo con el tiempo cada vez más pesado y tuve que hacer un libro para cada hoja, pues aquí radica mi problema: tengo que ajustar mi código para buscar en todos los archivos de la carpeta. On Error Resume Next Dim wrbLibro As Workbook Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet Dim CurFilename As String CurFilename = Sheets("RANGOS").Range("A1") Set wrbLibro = Workbooks(CurFilename) Set wrsHojaActiva = ThisWorkbook.Sheets("RESUMEN") For Each wsHoja In wrbLibro.Worksheets If wsHoja.Name = "VIAJ…

Buenos días, ¿Me podríais decir cómo se puede extraer a una celda el contenido que se selecciona en un combobox personalizado, que está colocado en la cinta de opciones? He encontrado mucha información cuando el combo está en una hoja, pero en la cinta de opciones, no. Muchas gracias

extraer siglas o iniciales de un nombre completo exeptuando "del" o "de" hola buenas noches aqui molestando con otra duda pues quiero hacer que en un textbox aparezcan las iniciales que contenga otro textbox: es decir; ejemplo: que si el -txtnombrecompleto- contiene "juan perez velazquez" quiero que en el -txtsiglasnombrecompleto- aparescan "jpv", pero si el -txtnombrecompleto- contiene "maria de los angeles montenegro barraza" que en el -txtsiglasnombrecompleto- "mamb" y elimine ese "de" o si fuera el caso de "maria del pilar" quite ese "del". Estuve investigando en la red del como hacerlo pero ninguno tiene esas excepciones que necesito y pues hasta ahorita no se c…

HOLA NECESITO SEPARAR TEXTO Y NUMERO A PARTIR DEL PRIMER NUMERO Q ENCUENTRE POR EJEMPLO KETOROLACO DE 10MG SEPARAR 10MG EN OTRA CELDA

Buenas, He buscado por el foro, pero no he encontrado una solución a mi problema. Seguro que es una tontería, pero no logro dar con ello. Tengo un documento de texto. Al filtrar para buscar una palabra, me la encuentra en varias líneas. Ahora necesito sacar parte de esas líneas. Ejemplo: Palabra a buscar: _palabra_ Línea encontrada: texto variable texto.variable_palabra_texto texto variable "12:39 15/04" texto variable Necesitaría el texto que precede a la palabra buscada (de longitud variable), desde el "." hasta "_", la fecha y la hora que están entre "". Luego ponerlo en columnas en una hoja de excel, pero en eso no ha…

Buenas, Una duda que no soy capaz de resolver: Tengo un rango de celdas (Q25:Q28), es el contenido de una variable tipo Objet ¿con que codigo podria aislar Q25? es decir que en la misma variable o en otra nueva solo me quede (Q25). (las j*****s celdas combinadas me tienen loco). Si alguien me puede echar una mano se lo agradeceria. Gracias Saludos

Muy buenas, me gustaria saber si es posible la creacion de una macro la cual coja la primera imagen de la base de datos de google de los articulos que tengo en una lista y los ponga en una columna a parte y que para que esta imagen sea valida tenga unas dimensiones especificas(600x480)minimo. Adjunto lista, saludos. Necesito que sea la url de la imagen y no la imagen en particular lo que consiga. ListaPrecios(4).rar

Buenas tardes, Amigos del foro estuve buscando información del tema en la web, antes de realizar mi consulta en el foro , pero no encontré nada que coincidiera . Detallo mi necesidad: Parte I 1, Deseo "Generar" mediante un botón en una hoja de Excel (Ver botón generar código en el libro adjunto), busque un valor en una tabla de Access" Clave dinámica "de forma aleatoria. la tabla esta compuesta de valores numéricos ordenados en filas y columnas : 2. En la hoja "Base "en la celda E1 colocar el valor del resultado del aleatorio. 3. Devolver el valor encontrado en un msgbox. Parte II 1. En el botón validar se desplego un userform com…

Buenas tardes y agradecer cualquier ayuda sobre el tema : Necesito extraer las filas relacionadas con un valor el cual tiene un rango de búsqueda de dos columnas, el código creado sólo me extrae lo que aparece en la columna AT, pero necesitaría que me extrajese también si el valor buscado aparece en la columna AU. ´ Lo he intentado con dos códigos pero no llego a conseguirlo Opción 1- sólo me saca la columna AT If Range("DIARIOCABAL!AT" & I) = Range("MAYORES!C4") Or ("DIARIOCABAL!AU" & I) = Range("MAYORES!C4") Then Range("MAYORES!b" & J) = Range("DIARIOCABAL!F" & I) Range("MAYORES!c" & J) = Range("DIARIOCABAL!B" & …

Hola, saludos a todos. Necesito ayuda (he empezado hace poco con VBA), quiero extraer el valor de la celda de una tabla que tiene en la fila superior nombres y en la columna izquierda numeros. Como ejemplo la imagen Busco la letra B1 y el numero 6 y me tiene que devolver el valor 48. Muchas gracia por vuestra ayuda.

Hola: Tengo el siguiente problema: En la hoja de excel tengo una serie de datos, estos se van a sombrear siempre que el valor sea mayor que cero. el problema es que quiero que cuando se sombreen mas de 4 celdas seguidas ese numero que esta a la iquierda se extraiga y se ponga en otro lugar en la hoja, les adjunto el documento para que vean lo que les estoy diciendo. Muchas Gracias por la ayuda Barra Movil Ejemplo.xls

hola amigos buen dia construyo una base en acces que se alimenta a traves de un formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao, Call conexion Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable End With For a = 1 To 130 If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then combo1.Add CStr(rs.Fields("FACTURAPOST").Value) End If rs…

que tal buenas tardes amigo quisiera saber como puedo extraer un varios xml en una celda toda la infornmacion que viene en el xml en una tabla de excel, por favor se lo agradeceria demasiado ya que son un buen de xml los que me falta de ver para hacer una cuenta de gastos, eh intentado exportar el xml en excel , pero me sale repetido muchas veces informacion del xml, simplemente lo que me intresa del xml es el rfc el nombre del proveedor el subtotal el iva retenciones de isr iva y sie esta en dolares la factura asi como lo mas importante la descripcion de la factura asi como si es ingreso o egreso para eso quisiera extraer el xml amigos, ya que eh visto muchos ejemplos y …

Hola amigos Excel 2010 Tengo una hoja con datos string en el rango A1:A15600 Los datos (string) se presentan entre dos guiones. Después del primer guión puede haber ninguno o n ceros. Por ejemplo: A-0001234-XX debe quedar A-1234-XX A-01234-XX debe quedar A-1234-XX A-0001234-XXXX debe quedar A-1234-XXXX Como se nota en los ejemplos arriba indicados, después del segundo guión puede haber 2 o 4 caracteres. Si el primer caracter es >= 0 agregar 20 antes del primer caracter. A-000A-1234-00 debe quedar A-1234-2000 Si el primer caracter es mayor que cero agregar 19 A-000A-1234-95 debe quedar A-1234-1995 Si hay hay cuatro caracteres dejarlos. Por ejemplo A-00…

Cordial saludo. Estoy intentando hacer que este archivo funcione de la siguiente manera: cuando pulse en guardar a demás de que me genere el .pdf (funciona perfecto), me guarde los registros uno a uno en la hoja datos, puesto que solo me guarda el primer registro. Muchas gracias por su colaboración y su tiempo. por favor hacer las respectivas sugerencias de mejoramiento, estoy hasta ahora empezando en este campo Saludos desde Colombia.

Cordial saludo. Estoy intentando hacer que este archivo funcione de la siguiente manera: cuando pulse en guardar a demás de que me genere el .pdf (funciona perfecto), me guarde los registros uno a uno en la hoja datos, puesto que solo me guarda el primer registro. Muchas gracias por su colaboración y su tiempo. por favor hacer las respectivas sugerencias de mejoramiento, estoy hasta ahora empezando en este campo Nota: el archivo está en .xlsm, pero no logré subirlo con esa extensión, así que le hice ese cambio(.xls) favor revertirlo para que funcione Saludos desde Colombia. factura_.xls

Buen dia para todos o les traigo un problemilla que tengo con un programa en excel que me imprime facturas pero cuando estoy en el programa y le doy nueva factura no me genera un numero consecutivo y en verdad lo necesito ya que cada factura necesita su consecutivo pero no doy como crear una macro que me genere un numero consecutivo ya que es dentro del mismo formulario no doy estoy desesperado :hororr: el documento no es mio los descargue por la red y no SOY UN EXPERTO EN MACROS PERO SI CONOZCO TODAS LA APLICACIONES QUE TIENE por eso me cuesta mucho entender la programación; son cuatro hojas productos, clientes, factura y impresión en la hoja impresión me vota los datos…