Macro no recorre todas las celdas
Grabe una macro para que me extajera al lado de una columna una parte de esa, el problema es que cada archivo tiene diferente Nº de filas y solo me recorre las mismas filas que tenia el archivo con la que la grabe. Os paso la macro para que veáis como esta. Como podría hacer que recorriera en función de las filas que tuviera.
Gracias de antemano.
Fran
MC Macro
'
' Acceso directo: CTRL+c
'
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("C:C").EntireColumn.AutoFit
Range("D1").Select
ActiveCell.FormulaR1C1 = "mc"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],3,8)"
Selection.AutoFill Destination:=Range("D2:D903")
Range("D2:D903").Select
1 respuesta
Te anexo la macro actualizada
Sub macro()
'Act.Por.Dante Amor
'
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("C:C").EntireColumn.AutoFit
Range("D1").Select
u = Range("C" & Rows.Count).End(xlUp).Row
ActiveCell.FormulaR1C1 = "mc"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],3,8)"
Selection.AutoFill Destination:=Range("D2:D" & u)
Range("D2:D" & u).Select
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
¡Gracias! Por tu tiempo, la pruebo y valoro tu respuesta.
Un saludo desde León.
Fran
Hola de nuevo me devuelve un error, no se ha definido la variable y me lo marca en la U=
? perdona es que estoy un poc pez en todo esto...
Agrega esto al principio de la macro
dim u as integer
