Selecionar un rango y añadir uno celda mas

[lphant]

Buenos días;

 

Hoy estoy muy espeso y mi cabeza no rula na de na…….me puedes ayudar

 

Estoy intentando señalar un rango de celdas en una fila ( de A5 a Axx ), para ello estoy usando “Range(Selection, Selection.End(xlToRight)).Select”, la cosa es.......a lo que señalado tengo que añadirle una celda más.

 

He probado un par de cosas y no doy con ello, la cosa es, que ya lo hice en su momento en una macro hace años pero…..mi cabeza ya no es lo que era.

 

Muchas gracias y un saludo,

Ejemplo.xlsm

[Haplox]

Mira a ver si te sirve asi @lphant

Sub

Sub seleccion()
Dim Uf As Long, Uc As Long
 
Uf = Range("A" & Rows.Count).End(xlUp).Row
Uc = Cells(5, Columns.Count).End(xlToLeft).Column + 1
Range(Cells(5, "A"), Cells(Uf, Uc)).Copy
 
End Sub

 

[lphant]

Hace 17 minutos , Haplox dijo:

Mira a ver si te sirve asi @lphant

Sub

Sub seleccion()
Dim Uf As Long, Uc As Long
 
Uf = Range("A" & Rows.Count).End(xlUp).Row
Uc = Cells(5, Columns.Count).End(xlToLeft).Column + 1
Range(Cells(5, "A"), Cells(Uf, Uc)).Copy
 
End Sub

 

Gracias  @Haplox pero no me vale la opcion de ".end(xltoleft).column +1", tengo varias tablas en la misma hoja.

Pero muchisimas gracias.

[lphant]

Lo he intantado con la linea "Uf = Worksheets("Hoja1").Range("A5").End(xlToRight).Row + 1" y me da 6 cuando deberia de darme 26

[Haplox]

Hace 14 minutos , lphant dijo:

tengo varias tablas en la misma hoja.

Avisa antes. En tu ejemplo solo hay una, y ademas solo hasta la columna E, luego el +1, a la dcha o izda es la 6

Si todas tienen el cabecero en la misma linea te va a pasar eso.

Sube un archivo reptesentativo

[lphant]

Hace 23 minutos , Haplox dijo:

Avisa antes. En tu ejemplo solo hay una, y ademas solo hasta la columna E, luego el +1, a la dcha o izda es la 6

Si todas tienen el cabecero en la misma linea te va a pasar eso.

Sube un archivo reptesentativo

tienes razon, no me explique bien, son tablas dimanicas filtradas.

adjunto nuevo ejemplo.

Ejemplo.xlsm

[Haplox]

Hace 50 minutos , lphant dijo:

• adjunto nuevo ejemplo. 

Creo que te estas liando un poco . Te dejo un ejemplo. Dos cosas para que funcione

Puedes tener tantas tablas como quieras

Todas deben estar a la misma altura (fila)

Entre tablas siempre debe haber la misma separacion

Ejemplo.xlsm

[lphant]

Hace 25 minutos , Haplox dijo:

Creo que te estas liando un poco . Te dejo un ejemplo. Dos cosas para que funcione

Puedes tener tantas tablas como quieras

Todas deben estar a la misma altura (fila)

Entre tablas siempre debe haber la misma separacion

Ejemplo.xlsm

Me estaba liando pero bien.....

Muchisimas gracias, funciona a la perfección.