Filtros avanzados

Hola hector creo hace un tiempo me diste un codigo de macros que em permitia
transponer en filas en grupos de 4, cada grupo separada con una fila en
blanco y la cantidad de grupos que quisiera.

Espero pueda contar con tu ayuda.

Saludos
Ruben Gomez


"Héctor Miguel" escribió:

hola, Rubén !

no sera que los dos "cementos" (aunque "se parecen") no sean exactamente "lo mismo" -?-
(algun espacio de mas al inicio y/o al final de cada palabra e igual con los demas donde sucede algo parecido ?)

saludos,
hector.

__ OP __
> ... luego de hacer uso de filtro avanzado y colocar solo registros unicos no me funciona con la palabra siguiente:
>
> RANGO INGRESADO
> cemento
> operario
> calderero
> operario
> calderero
> cemento
> cemento
>
> SALIDA DESPUES DEL FILTRO AVANZADO
> cemento
> operario
> calderero
> cemento
>
> A que se debe que despues del filtro avanzado y activo la opcion de solo registros unicos
> me coloque 2 veces CEMENTO, este es un ejemplo tambien me sucede con algunas otras palabras...

hola, Rubén !

... un codigo de macros que em permitia transponer en filas en grupos de 4
cada grupo separada con una fila en blanco y la cantidad de grupos que quisiera...

encuentro uno para transponer 14 filas a 14 columnas buscando con una fila en blanco...

=> LOS DATOS SE INCIAN EN LA FILA 2, YA QUE EN LA 1ERA ESTA EL ENCABEZADO

ENTRE CADA GRUPO DE LAS 14 CELDAS HAY UNA CELDA EN BLANCO

(no es necesario que GRITES !!!) :))

prueba con una macro +/- como la siguiente:

Sub Transponer()
Dim Fila As Integer
For Fila = 2 To [a65536].End(xlUp).Row Step 15
Range("c65536").End(xlUp).Offset(1).Resize(, 14).Value = _
Application.Transpose(Range("a" & Fila).Resize(14).Value)
Next
End Sub

saludos,
hector.
==