Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro compleja

26/09/2006 - 16:01 por Angel Romero | Informe spam
Ayuda Hacer una pregunta
Hola os comento lo que quiero hacer, puesto que es bastante complejo.

Tengo una tabla con dos columnas en una única hoja de un libro, similar a la
que os indico abajo.

A B
1 x 356
2 345 fffff
3 342 fsdf
4 tet 454
5 x 453
6 342 456
7 123 321
8 011 134
...

y así sucesivamente.

Deseo hace una macro, que primero mire en la columna A, si está el valor "x"
, me seleccione la columna B, desde el valor a la derecha de la "x" hasta el
anterior del siguiente que tiene a la izquierda la "x". Luego esa selección
será puesta en una nueva hoja en modo "traspuesto". Y así sucesivamente con
el resto de datos de la columna B, poniendolos en filas unos debajo de otros.

¿Sabríais alguna manera?

Muchísimas gracias.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 AnSanVal
26/09/2006 - 16:54 | Informe spam
Suponiendo que la hoja origen es Hoja1 y que la hoja destino es Hoja2,
prueba con
:
Sub prueba()
Dim celda As Range
Sheets("Hoja2").Activate
For Each celda In Sheets("Hoja1").Range("A:A").Cells
If celda = "" Then Exit Sub
If celda = "x" Then
Cells(65535, 1).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
End If
ActiveCell = Sheets("Hoja1").Cells(celda.Row, 2).Value
ActiveCell.Offset(0, 1).Select
Next celda
End Sub

Saludos desde Tenerife (Islas Canarias).
**************************************
"Angel Romero" escribió en el
mensaje news:
Hola os comento lo que quiero hacer, puesto que es bastante complejo.

Tengo una tabla con dos columnas en una única hoja de un libro, similar a
la
que os indico abajo.

A B
1 x 356
2 345 fffff
3 342 fsdf
4 tet 454
5 x 453
6 342 456
7 123 321
8 011 134
...

y así sucesivamente.

Deseo hace una macro, que primero mire en la columna A, si está el valor
"x"
, me seleccione la columna B, desde el valor a la derecha de la "x" hasta
el
anterior del siguiente que tiene a la izquierda la "x". Luego esa
selección
será puesta en una nueva hoja en modo "traspuesto". Y así sucesivamente
con
el resto de datos de la columna B, poniendolos en filas unos debajo de
otros.

¿Sabríais alguna manera?

Muchísimas gracias.

Preguntas similares

 

Busqueda sugerida :