Tema: EndRw, macro
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/07/2012, 10:05
Avatar de dorde
dorde
 
Fecha de Ingreso: diciembre-2003
Mensajes: 145
Antigüedad: 20 años, 5 meses
Puntos: 7
EndRw, macro

Hola a todos, buenos días....tengo esta macro:
________________

Sub copiar()

'Contar los registros
Application.Goto Reference:="R1C1"
RwEnd = Range(Cells(6, 10), Selection.End(xlDown)).Count
'Llena el resto de los registros en las columnas L(Mes_Fiscal) y M(Mes_Año)
Range(Cells(6, 10), Cells(RwEnd, 11)).FillDown
'Copia y pega solo valores
Range(Cells(6, 10), Cells(RwEnd, 11)).Copy
Application.Goto Reference:="R1C1"
Application.CutCopyMode = False
End Sub
___________

y me copia, las celdas pero solo en 20 filas, necesito que lo haga hasta el final de los datos de la columna inmediata derecha.

de alguna manera RwEnd es = a 20.....

Ojala puedan echarme una mano ..
__________________
Pero si alguno de vosotros se ve falto de sabiduría, que la pida a Dios, el cual da a todos abundantemente y sin reproche, y le será dada. Pero que pida con fe, sin dudar

Santiago 1.5-6