03/08/2011, 10:50
|
| | | Fecha de Ingreso: agosto-2011
Mensajes: 23
Antigüedad: 12 años, 9 meses Puntos: 0 | |
| Respuesta: Macro para copiar y pegar en otra hoja
Sheets("Captura").Select
Range("B3:B16").Select
Selection.Copy
Sheets("Base de datos").Select
Dim fila3 As Integer
fila3 = ActiveSheet.Range("C1000").End(xlUp).Row + 1
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Base de datos").Select
Range("C1").Select
Selection.End(xlDown).Select
Range("C3:P3").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C4").Select
Application.CutCopyMode = False
Selection.End(xlUp).Select
End Sub
lo que tiene es que cuando la corro copia donde esta el cursos, entonces no aplica
gracias |