
04/09/2012, 11:44
|
 | | | Fecha de Ingreso: diciembre-2003
Mensajes: 145
Antigüedad: 21 años, 3 meses Puntos: 7 | |
Respuesta: Macro Excel. No sé cómo hacerlo. yo hice algo parecido con esto, pero no borro la formula de la primera fila,
espero te sirva
Sheets("Estandard").Select
Range("J7:K7").Select <=== AQUI ESTAN LAS FORMULAS
Range(Selection, Selection.End(xlDown)).Select <=== LAS COPIA HASTA EL FINAL
Selection.ClearContents
Dim RwEnd, x As Integer
Application.Goto Reference:="R6C1"
'copia formulas
RwEnd = Range(Cells(1, 6), Selection.End(xlDown)).Count
Range(Cells(6, 10), Cells(6, 11)).Copy
Application.Goto Reference:="R6C10"
Range(Cells(7, 10), Cells(RwEnd, 11)).Activate
Selection.PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
Application.Goto Reference:="R1C1"
Range("J7:K7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' ESTO ES VANIDAD
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="#¡VALOR!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
__________________ 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 |