Jump to content

Luis Antonio Torres

Members
  • Content Count

    22
  • Joined

  • Last visited

About Luis Antonio Torres

  • Rank
    Member
  1. Estimados Amigos, Buenos días, tengo el siguiente libro que realiza un procedimiento basado en buscar la última fila con información y recuperar el rango en la columna E. Me gustaría poder trabajarlo únicamente con un rango seleccionado, es decir, que cuando ejecute la macro no lo haga para todo el rango si no para el rango que seleccioné. Alguien me podría dar una mano por favor. Gracias. libropruebas.xlsm
  2. Hola Amigo, Muchas gracias por tu respuesta, el archivo es el siguiente: libroadcccc.xlsm
  3. Estimados Amigos, Buenas tardes, tengo una pregunta sobre como podría optimizar una macro que recorre 300.000 registros y concatena información con el siguiente código: Sub ConcatenaColumnas() Dim numzeros As String numzeros = "0000000000" Range("A:B").Select Selection.NumberFormat = "@" Range("E3").Select '------------------Columna Validación-------------------------------------------------------------------------------------------- Do While ActiveCell <> "" 'Bucle hasta la celda este en blanco ''de la celda activada retroceder xx números (0, -xx) a la izquierda y escribir fórmula ActiveCell.Offset(0, -4).FormulaR1C1 = _ Format(ActiveCell.Offset(0, 0), "dd") & Format(ActiveCell.Offset(0, 0), "mm") & Format(ActiveCell.Offset(0, 0), "yyyy") _ & Left(numzeros, 10 - Len(ActiveCell.Offset(0, 3))) & ActiveCell.Offset(0, 3) _ & Left(numzeros, 10 - Len(ActiveCell.Offset(0, 4))) & ActiveCell.Offset(0, 4) _ & ActiveCell.Offset(0, 5) _ & ActiveCell.Offset(0, 6) ActiveCell.Offset(0, -3).FormulaR1C1 = _ ActiveCell.Offset(0, 2) _ & ActiveCell.Offset(0, 6) _ ActiveCell.Offset(1, 0).Select Loop End Sub El código recorre la celda del rango "e3" validando que tenga información y concatena creando una cadena de texto en el rango (a1), sin embargo ha tardado 12 minutos en cumplir la tarea. Alguien podría darme una mano para poder optimizar el código, sin recurrir a power bi o pivot? De antemano muchas gracias.
  4. Hola @digitalboy muchas gracias por tu respuesta. Me ha servido muy bien, he utilizado vbtextcompare, y quedó tal cual lo venía buscando. Con lo de las librerías no la tengo muy clara, sin embargo, muchas gracias por la guía ya mismo voy a "guglear". Muchas gracias por tu tiempo y ayuda.
  5. Estimados amigos buenos días, Por favor, alguien me puede dar una mano la siguiente cuestión: Tengo un xml que tiene el campo nodo llamado <adicionales> </adicionales> mismo que tiene campos nodo hijos <tagadicionales nombre"Apellido"> </tagadicionales> <tagadicionales nombre"Nombre"> </tagadicionales> <tagadicionales nombre"Numero"> </tagadicionales> Mas o menos así: <adicionales> <tagadicionales nombre="Apellido">Turanga</tagadicionales> <tagadicionales nombre="Nombre">Leyla</tagadicionales> <tagadicionales nombre="Numero">1723495</tagadicionales> </adicionales> Entonces tengo el siguiente código que busca el tag y extrae el valor: If InStr(1, TextStringNumber2, "<tagadicionales nombre=""Apellido"">") > 0 Then ActiveCell.Offset(0, 30).Value = Mid(TextStringNumber2, InStr(num1, TextStringNumber2, "<tagadicionales nombre=""Apellido"">") + 34, InStr(num1, TextStringNumber2, "</tagadicionales>") - InStr(num1, TextStringNumber2, "<tagadicionales nombre=""Apellido"">") - 34) End If Sin embargo no me arroja valor alguno cuando ejecuto la macro, sé que talvez en la línea "<tagadicionales nombre""Apellido"">" estoy teniendo un error pero no sé que estoy haciendo mal ya que cuando es un tag normal que no tiene comillas en el texto sí me recupera la información. Alguien que por favor me pueda dar alguna guía o sugerencia. Muchas gracias de antemano.
  6. Estimado @Antoni como lo ha dicho @isidro usted es un genio pensé quedaría desamparado. Muchas gracias por su tiempo y ayuda.
  7. Estimado @isidrod, Muchas gracias por tu respuesta, después de verl los archivos me parecen interesantes. Pero tengo un problema, mi archivo *.txt no tiene separadores que me pueda servir de comodín, ni texto separados en columnas. Tienen simetría en número de filas, pero, no tiene más que pueda ayudarme. Entonces no sé como podría ayudarme de algún otro medio para importar el texto y tenga prolijidad en la hoja excel. El archivo me queda algo así como el adjunto. Alguna sugerencia más, cualquier guía o ayuda será bienvenidad. De nuevo muchas gracias. excel pdf.xlsx
  8. Estimados Amigos, Buenas tardes, tengo un archivo que genera pdf a partir de la información que existe en una hoja de excel; que esta a su vez importa información de un archivo *.txt El problema es que al importar estéticamente queda disparejo y sin presentación que valga la pena. No sé si haya alguna forma de importar esta información sin tener que utilizar las opciones establecidas por excel de divir las columnas al importar o copiar el texto directamente. Alguna forma de importar con una macro talvez leyendo el texto del archivo txt, alguna guía o sugerencia? Quedo muy agradecido con todos.. El archivo en cuestión: https://drive.google.com/file/d/1OkUWBfwgfZyK8Cbm2Oca96JQ6i5YL2jM/view?usp=sharing texto a ser importado.txt
  9. Hola @isidrod realmente muchas gracias por tu ayuda. Me sirvió muchísimo. Solamente al código he incluído lo siguiente: Sub Macro1() If Range("A1").Value = "" Then 'valida que haya texto en la celda "A1" para que pueda realizarlo. Range("A1").FormulaR1C1 = "=+RC[1]" With Worksheets("Hoja1").Range("A2:A" & Range("B65536").End(xlUp).Row) .FormulaR1C1 = "=IF(LEFT(RC[1],1)=""T"",RC[1],R[-1]C)" .Value = .Value End With End If End Sub Muchas gracias de nuevo por tu valiosa ayuda.
  10. Hola, muchas gracias por tu respuesta me funcionó como lo esperaba. Obviamente la celda A1 la referencié a B1 para que pueda continuar la fòrmula. Hay la posibilidad de hacerla con una macro? Gracias nuevamente.
  11. Estimados amigos, Buenas tardes, por favor alguien me podría dar una mano con una fórmula/macro para recorrer una columna validando la columna de al lado. Por ejemplo en la columna A tengo que escribir la fórmula dependiendo de la columna B Validando que mientras no exista en columna b otra tienda en columna a quede el mismo nombre de tienda así más o menos: y que pueda quedar así dependiendo de la columna b, puede haber más días. De antemano muchas gracias por su ayuda. Adjunto archivo. https://drive.google.com/file/d/1y7ux28jiCreITudkEmtS8rqbAAT7ARRL/view?usp=sharing
  12. Gerson, Muchas gracias por tu respuesta, lo imaginaba que con una fórmula una locura. Crees tú podrías darme una mano con la UDF? Muchas gracias por la ayuda!
  13. Amigos, Buenas tardes, nuevamente acudo a ustedes con el fin de solicitar su ayuda tengo un archivo que tiene una fórmula de BUSCARV, pero dentro de una celda tengo varias palabras a buscar así por ejemplo: La fórmula funciona cuando existe un valor, pero estoy buscando la manera o la fórmula que me ayude a identificar primero cuantos criterios va a buscar (cada criterio es separado por una coma) y después el resultado de la fórmula me arroje igualmente el número de criterios separado por una coma (APROBAR DR, REVISADO, DE LAS QUE HAYA...........) Ojalá alguien me pueda ayudar, de antemano muchas gracias. El archivo lo adjunto para que me puedan por favor dar una mano. NUEVO ESTADO DE CUENTA.xlsx
  14. Muchas gracias por su ayuda quedó mucho mejor que al iniciar. Doy por cerrado el tema.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5