Necesita ayuda para una macro
Hola a todos:
Mi problema es que he creado un formulario con excel y he creado una macro para que me copie los datos del formulario y los pase a otra hoja donde se valla insertando en una fila a modo de resumen, la macro tb borra todos los datos del formulario para poder ir metiendo otros datos. El problema lo tengo con las celdas que contienen números pk éstos no me los copia bien, los texto si pero los números o las celdas con formulas no
la macro es la siguiente:
Sheets("FACT 01").Select
Range("B2").Select
Selection.Copy
Sheets("RESUMEN").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B3:C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("B2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("G2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("H2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("I2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("J2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("K2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("L2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("M2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("J27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("N2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B3:C3").Select
ActiveCell.FormulaR1C1 = ""
Range("B4").Select
ActiveCell.FormulaR1C1 = ""
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
Range("B6").Select
ActiveCell.FormulaR1C1 = ""
Range("F10").Select
ActiveCell.FormulaR1C1 = ""
Range("F11").Select
ActiveCell.FormulaR1C1 = ""
Range("F12").Select
ActiveCell.FormulaR1C1 = ""
Range("F13").Select
ActiveCell.FormulaR1C1 = ""
Range("F14").Select
ActiveCell.FormulaR1C1 = ""
Range("F15").Select
ActiveCell.FormulaR1C1 = ""
Range("F16").Select
ActiveCell.FormulaR1C1 = ""
Range("F17").Select
ActiveCell.FormulaR1C1 = ""
Range("F18").Select
ActiveCell.FormulaR1C1 = ""
Range("A19").Select
ActiveCell.FormulaR1C1 = "0"
Range("C20").Select
ActiveCell.FormulaR1C1 = "0"
Range("D25").Select
ActiveCell.FormulaR1C1 = "0"
Range("D27").Select
ActiveCell.FormulaR1C1 = "0"
Range("D28").Select
End Sub
las celdas B2:B6 SON TEXTO