23/02/2007, 09:39
|
| | Fecha de Ingreso: febrero-2007
Mensajes: 2
Antigüedad: 18 años Puntos: 0 | |
Re: tarea diaria en excel Dentro de una tabla de registros hay una columna alfanumerica ala que debo extraer sus numeros,esto me genero la macro de excel.
Pues quiero que la macro identifique hasta que celda de la Fila F hay valores,porque obviamente esta grabada para la 42 y tengo tablas con distintos numeros de filas, espero que me entiendan y disculpas por la poca claridad en la cita anterior.
Range("F2:F42").Select
Selection.Copy
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=MID(RC[-1],4,10)"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K42")
Range("K2:K42").Select
Range("L2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L42")
Range("L2:L42").Select
Selection.Copy
Range("F2:F42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J2:L42").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F2").Select |