Macro que me copia los datos de un formulario

Cerrado
qki13
Message postés
1
Date d'inscription
jueves, 29 de noviembre de 2012
Estatus
Miembro
Última intervención
jueves, 29 de noviembre de 2012
- 29 nov 2012 a las 14:02
 boots - 1 dic 2012 a las 07:24
buenas a todos
he creado un macro que me copia los datos de un formulario y me los va introduciendo en una lista y luego me borra los datos del formulario para poder introducir nuevos datos
y el problema lo tengo cuando intento hacer lo mismo pero los datos a copiar son numeros,
dejo aqui la macro
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("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("B7").Select
Range("J20").Select
Selection.Copy
Sheets("RESUMEN").Select
Range("G2").Select
Selection.Insert Shift:=xlDown
End Sub

no tengo mucha idea de basic la macro la creo con el programador , grabar macro, detener macro
gracias por cualquier ayuda

1 respuesta

pon le en la pura eskina drecha y con el mause y va a aparecer un tipo d x y lo vas a apretar yescojer hasta ke celda lo kieres copear
0