Saber cuando ocupa un rango

30/03/2005 - 13:41 por Julio Ríos | Informe spam
Buenos días a todos, tengo una hoja y he programado una macro. Esta
macro actua sobre los registros de una hoja. En las pruebas que hice los
registros eran 4, pero la idea es que los datos sobre los cuales voy a
pasar la macros no las se de antemano, unas veces son 100, otras son
2000, otras 345, etc., estos registros los copio y pego de otra hoja que
se me proporciona.

Mi pregunta es ¿cómo puedo saber cuando acabo de copiar a una hoja en
blanco los registros que hay en la hoja para que se me pase la hoja en
todos los registros?

Al hacer la macro en el código aparece esto

Selection.End(xlDown).Select
Range("C4").Select

Y aquí es donde tengo el problema porque la macro selecciona C4 como
último registro, pero al copiar y pegar de otra hoja la macro sólo
actuará sobre los 4 primeros registros y no los datos que he copiado
desde otra hoja excel.


Un saludo, Julio.

Preguntas similare

Leer las respuestas

#6 KL
19/04/2005 - 10:43 | Informe spam
Hola Julio,

Gracias a ti por el "feedback".

Saludos,
KL

"Julio Ríos" wrote in message
news:%
KL escribió:
Hola Julio,

Prueba el siguiente codigo.

Saludos,
KL

'Inicio Codigo-
Sub test()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
.CutCopyMode = False
F = "=IF(LEN(RC[-1])=9, LEFT(RC[-1],LEN(RC[-1])-1), ""ERROR"")"
With ActiveSheet
.Columns("C:C").Insert (xlToRight)
.Columns("C:C").Insert (xlToRight)
.Range(.Cells(1, "E"), .Cells(65536, "E").End(xlUp)) _
.Offset(0, -2).FormulaR1C1 _
= F
End With
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
'Fin Codigo-




Muchas gracias por tu ayuda una vez entendido el código ha servido
perfectamente.

Un saludo.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida