Macro compleja

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.

Funcionó!!!!!!!!

MUCHÍSIMAS GRACIAS.

Ángel

"AnSanVal" wrote:

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.

Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"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.

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA















Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"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.