Javi Fr

Dante Amor respondió: H o l a: Te anexo la macro actualizada: Sub CopiarRango() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Range("A:G").Clear j = 1 u = h1.Range("E" & Rows.Count).End(xlUp).Row For i = 2 To u If i + 1 <= u Then If h1.Cells(i,...

Dante Amor respondió: H o l a: Pero solamente hay que revisar esto: "E1<>E2" ¿O son varias filas? Puedes poner una imagen de lo que tienes en la hoja1 y de lo que esperas como resultado en la hoja2. Procura que en las imágenes se vean las letras y los números de las filas...

Dante Amor respondió: Te anexo una macro Sub cobro() 'busca "cobro" copia y pega 'Por.Dam Sheets("hoja1").Select 'obtiene la última fila con datos de la columna L ufila = Range("L" & Rows.Count).End(xlUp).Row 'obtiene el número de columna que representa la letra L col =...

Dante Amor respondió: H o l a: Te anexo una macro para que la pruebes. Sub ImportarTxt() 'Por.Dante Amor ruta = "C:\trabajo\" arch = "archivo 1" hoja = "Hoja3" On Error Resume Next ActiveWorkbook.Connections(arch).Delete On Error GoTo 0 ' With...

Luis Mondelo respondió: Para ello la única línea que tendrías que modificar es la siguiente y dependiendo de cada caso: -Separado por comas Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, comma:=true -Separado por punto y coma...