Santiago Torres

Dante Amor respondió: No es posible obtener los datos como lo pretendes con copiar y pegar. Te preparé una macro que hace lo que necesitas. Sub copiar() 'Por.DAM u = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To Range("A" & Rows.Count).End(xlUp).Row fila =...

Luis Mondelo respondió: Mándame el archivo excel con los datos para trabajar sobre él [email protected]

Elsa Matilde respondió: Te paso mi sugerencia: recorrer el largo de la celda (Len(ActiveCell)) y cada vez que encuentre un salto de carro (CHR(10)) pasar el texto desde ahí hasta el próximo salto a una col siguiente. Son muchos los bucles a considerar, ¿te animas?

Elsa Matilde respondió: La instrucción más precisa para encontrar la primer fila libre es: finx = Range("A65536").End(xlup).Row+1 Por supuesto que hay que contemplar algunos detalles: -Cual es la col con más datos... y reemplazar A por esa letra. En tu caso A está bien. -...

Dante Amor respondió: Para que el resultado quede en la misma celda tiene que ser con una macro. Utiliza esta: Sub mayusculas() 'Por.DAM For Each c In Range("a1:j3000") c.Value = StrConv(c, vbProperCase) Next End Sub Saludos.Dante Amor

Elsa Matilde respondió: Esta es la instrucción, la 2da es opcional: Range("A2:J1500").UnMerge Range("A2").Select

Dante Amor respondió: Con esta macro Sub eliminarfilaspares() 'Por.DAM For i = 3500 To 1 Step -1 If Application.IsEven(i) Then Rows(i).Delete Next End Sub saludos.Dante Amor