¿Cómo seleccionar una rango a partir de una celda variable por VBA?
Quisiera programar un acción de copiado y pegado de un rango variable en función de si hay algún valor en el rango de la columna B, me explico: en funcion del último registro que haya en el rango B14:B33 seleccionar esa celda e ir hacia la derecha hasta el rango I14:T14 (sería variable el valor de la fila al estar condicionado a partir del último valor de la columna B) y seleccionar y copiar ese rango transponiéndolo a otra hoja.
Sheets("DATOS").Select
Range("B14").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 9).Select
Selection.End(xlToRight).Offset(0, 12).Select
Loop
Selection.Copy
Sheets("PORTADA").Select
Range("J13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
He usado este código pero no consigo obtener resultados.
2 Respuestas
Hola, mi intención es que detecte el última fila con datos del rango (B14:B33) y que en esa fila seleccione el rango (I:T) y lo copie en otra hoja.
Se ejecutaría cuando se activará esa hoja.
Gracias
Hola,
lo que necesito es que detecte la última fila en el rango B14:B33 que tenga texto la celda y que seleccione en esa fila el rango (I:T) y lo copie en otra hoja.
La acción se ejecutaría cuando se activará la hoja.
Gracias
Ok vamos por parte
Si lo hace al activar la hoja estos seria problematico para ti por cada ves que entre en la hoja va a copier y si no hay dato nuevo te va a repetir el mismo dato varia veces es decir si sales de hoja
Y vuelve y entra esta ejecutaria copiando los datos si lo hace varias vese se repetirian
Mi opinion di digitas la informacion en una hoja y quiere que se copie en otra uso
El evento target asi me ahorro tiempo
Sino es como yo digo explicame in poquito major
Prueba con algo como:
Sub prueba()
Dim r As Range
Set r = Range("Datos!I15").Resize(Range("Datos!B34").End(xlUp).Row - 14, 12)
r.Copy
[Portada!J13].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Set r = Nothing
End Subpero mejor en una copia del libro, por si no hace exactamente lo que necesitas.
Saludos_